Search results

Private Sub Numéro_du_projet_Click() If Len(Me.Numéro_du_projet & "") < 1 Then If Me.Localité.Column(2) = "" Or Me.Type.Column(2) = "" Then MsgBox "Veuillez renseigner la localité et le type de projet." Exit Sub End If tSeq = Nz(DMax("Séquence", "Projets"...

can't get it to work :/ 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é=" &...

here is a sample db if it helps

no it doesn't because every project number has 001 number im missing something

this is what i have so far Private Sub Numéro_du_projet_Click() If Me.Localité.Column(2) = "" Or Me.Type.Column(2) = "" Then Me.Numéro_du_projet = "" Else Compteur = Nz(DMax("Séquence", "Projets", "Localité=" & Me.Localité & " and " & "Type=" & Me.Type), 0) + 1 Me.Numéro_du_projet =...

oh sorry doesn't work very well because it keeps making 001 something missing :/

yeah got it

thanks for helping i came up with this but doesn't work... keep getting error 2471

understanding this isn't very easy because english is not my mother tong language hxxp://xxx.techonthenet.com/access/functions/domain/dmax.php (dmax) hxxp://allenbrowne.com/func-09.html (dmax) hxxp://xxx.utteraccess.com/wiki/index.php/Sequential_Numbering (dmax)...

ok thats promising :) so can you help me with the full vba code for this to work actually my projects table already have those fields except for SequenceNo hxxp://i.imgur.com/lt5SkqS.png?1 so i can add SequenceNo that's no problem but will i need to input data in sequenceno? because after...

well there are 3 main tables "Projects" "Locations" "Types" the projects one is "clean" its mainly for input through the form which has one column for projectid called "Project_Number" then there is a cell linked to "locations" and another linked to "types" locations has "location" "type_a"...

im not sure how to proceed... ive seen people use sql in access vba or even dlookup function but dunno how to use it. :/ ps: and i don't think excel macros are the way to go

i added types columns in towns all of which have 0 in it TOWN A B F L M R SPAIN 0 2 5 0 3 0 if the new project is in SPAIN and type B is selected it should check that the latest one was SPAIN-B-2 so +1 the new one will be called SPAIN-B-3

towns SELECT [Localités].[N°], [Localités].[Français], [Localités].[Abréviation], [Localités].[Commune], [Localités].[Réseau], [Localités].[A], [Localités].[B], [Localités].[F], [Localités].[L], [Localités].[M], [Localités].[R] FROM Localités ORDER BY [Français]; types SELECT [Types].[N°]...

ME.TOWN actually points to towns table and me.type to types table but i added types columns to the towns table all have 0 in it

hi, i need help im new to access, vba, sql,... and need to adapt this: Private Sub Project_Number_Click() If Me.Town.Column(2) = "" Or Me.Type.Column(2) = "" Then Me.Project_Number = "" Else Me.Project_Number = Me.Town.Column(2) & "-" & Me.Type.Column(2) & "-" & Me.Form.CurrentRecord End If...