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 !
Merci pour votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
version = access 97
Partager