[VBA] ne reconnait pas une variable
Bonjour !!
j'ai une zone de texte appelé date ( date = Aujourd'hui()).
donc je voudrait qu'il y ait un formulaire par date donc dés l'ouverture du formulaire, je prend le dernier formulaire qui a étè crée et je compare le champs date avec la date d'aujourd'hui
si c'est la meme date il m'ouvre le formulaire sinon il en crée un nouveau.
seulement le code que j'ai mis ne fonctionne pas car il me met un message d'erreur qui me signale qu'une variable est introuvable !
Code:
1 2 3 4 5 6 7 8 9 10 11
| Private Sub Form_Open(Cancel As Integer)
Dim nbr As Long
nbr = 0
nbr = Me.RecordsetClone.RecordCount
If nbr = 0 Or Me.Date.Value <> Date Then
DoCmd.GoToRecord acDataForm, Me.FormName, acNewRec
End If
End Sub |
Merci pour votre aide
version = access 97