Bonjour à tous
Via un formulaire contrôle Onglet je renseigne une table .
Onglet 1- nouvel enregistrement , tout fonctionne comme je le souhaite (4 zones de textes avec leur source de contrôle)
Onglet 2- Là je n'arrive pas a modifier les enregistrements !
Les codes que j'ai écris me faisais un nouvel enregistrement ou ne modifiait pas le champs.
J'ai parcouru le forum sans trouver de solution; Faut utiliser un recordset ?
Merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 Private Sub Texte57_AfterUpdate() Dim Zone As String If IsNull(DLookup("Texte57", "enregistrement MSL", "[N° de Série] = '" & Me.Texte57 & "'")) Then MsgBox "Ce numéro de série n'est pas enregistré !", vbInformation Texte57 = "" Texte57.SetFocus Exit Sub End If Zone = DLookup("[Zone]", "enregistrement MSL", "[N° de Série] = '" & Me.Texte57 & "'") If Zone = "Armoire" Then MsgBox "Ce numéro de série est déjà enregistré dans l'armoire !", vbInformation Texte57 = "" Texte57.SetFocus Exit Sub Else ' Là je voudrais modifier la valeur "Zone"(champs) de "Enregistrement MSL"(table) soit par "Ligne" ou un textbox ' End If End Sub
Partager