[VBA et ACCESS] mettre à jour enregistrement
zoupata
-
Jean Claude -
Jean Claude -
Dans un formulaire access, je souhaiterais que le clic sur un bouton de validation récupère la valeur d'une zone de texte, saisie par l'utilisateur, et aille mettre cette valeur dans ma table de données, dans le champ correspondant à un nouvel enregistrement.
Est-ce possible facilement ?
Quel est le code VBA correspondant à l'ajout d'une valeur dans le chap d'une table ?
Merci à tous
Zoup.
Est-ce possible facilement ?
Quel est le code VBA correspondant à l'ajout d'une valeur dans le chap d'une table ?
Merci à tous
Zoup.
Configuration: Access 2003
1 réponse
-
Il y a 2 procédures évenementielles (formulaire), Le champ MaM signifie Mardi matin et BMaM signifie Box (ou Salle)Mardi matin, il s'agit d'une liste déroulante qui contient les salles que l'on peut réserver pour ce jour là.
Le formulaire est affiché en mode feuille de données, il suffit :
pour le jour concerné d'y indiquer son activité et ensuite il suffit de cliquer sur la liste déroulante et d'y choisir les salles encore dispo.
Les 2 procédures ci-dessus permettent la mise à jour dès que l'on a fait son choix (MeDirty=False)
Private Sub BMaM_AfterUpdate()
On Error GoTo Fin
If MsgBox("Etes-vous sur de votre choix ?", vbYesNo + vbInformation, "Question") = vbYes Then
Me.Dirty = False
Else
End If
Exit Sub
Fin:
MsgBox "Cette salle est déjà réservée !!!"
Call BMaM_Click
End Sub
Private Sub BMaM_Click()
Dim A As String
A = ""
Me!MaM = IIf(IsNull(Me!MaM), "", Me!MaM)
If Me!MaM = "" Then
Do Until Me!MaM <> ""
A = InputBox("Entrez d'abord votre activité, svp ")
Me!MaM = A
Loop
Call BMaM_AfterUpdate
End If
Call Box_Fev_2
End Sub
