vba help

[vartaxe]

hi,

can't get this to work properly

Private Sub Numéro_du_projet_Click()

If Len(Me.Numéro_du_projet & "") < 1 Then
ElseIf Me.Localité.Column(2) = "" Or Me.Type.Column(2) = "" Then
    MsgBox "Veuillez renseigner la localité et le type de projet."
Else
    tSeq = Nz(DMax("Séquence", "Projets", "Localité=" & Me.Localité & " and " & "Type=" & Me.Type))
    hiCount = Nz(DLookup("Compteur", "Projets", "Séquence=" & tSeq), 0) + 1
    Me.Numéro_du_projet = Me.Localité.Column(2) & "-" & Me.Type.Column(2) & "-" & Format(Compteur, "000")
End If

End Sub

 

[vartaxe]

i need to generate project numbers concatenating two fields and increasing count by 1 (every project number has to be unique) so for instance first project in SPAIN for CABLE should be named ES-CA-1 second one ES-CA-2 but if the third one is for instance in another location or type then counter should check for number to use

location=SPAIN=ES
type=CABLE=CA

Len function was just to see if project already had a project number then it should skip it otherwise it could modify the number which isn't good

 

[Joe4]

Cross-posted here: vba help

While we do not prohibit Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule #10 here: Forum Rules).

This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.

For a more complete explanation on cross-posting, see here: Excelguru Help Site - A message to forum cross posters).

 

[vartaxe]

oh sorry didn't know

here's a link to sample db for better understanding

https://www.dropbox.com/s/yjatdlq9wvuh7n1/Projets.accdb?dl=0

 

[Joe4]

Looks like you got a reply on your Cross-Post that you never replied to (http://www.accessforums.net/access/vba-help-51628.html).