J'arrive pas à mettre à jours un enregistrement à travers ADO
Je veux mettre à jours le champ NRRE de la table t/non-conformite quand un élémént n'est pas enrgistréé dans la table.
le test de l'element s'effectue par :le formulaire f/reclamation et le sous-formulaire t/nre
voila le code :
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 Dim cnn As ADODB.Connection Set cnn = CurrentProject.Connection Dim rst As New ADODB.Recordset rst.Open "SELECT [t/non-conformite].nrre FROM [T/NON-CONFORMITE]", cnn, adOpenKeyset, adLockBatchOptimistic rst.Filter = "nrre='" & Forms![F/RECLAMATION-MAJ]![T/NRE sous-formulaire].Form![NRE] & "'" If rst.RecordCount = 0 Then MsgBox "l'element n'est pas enregisté " rst.AddNew rst!NRRE = "444444m01" rst.Update rst.Close Else MsgBox "élémént existe" end if
modération : cafeine,![]()
![]()
Partager