Discussion :

[maniani]

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 :

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

merci

modération : cafeine,

[Mateache]

Essaye avec ca

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
 
Dim SQL as string
 
...
 
 
If rst.RecordCount = 0 Then 
MsgBox "l'element n'est pas enregisté " 
SQL="INSERT INTO [t/non-conformite](nrre) values ('"444444m01"')" 
cnn.execute(SQL)
 
Else 
MsgBox "élémént  existe" 
end if
 
cnn.close
set cnn=nothing

[maniani]

merci
mais je désire savoir pourquoi ce code ne marche pas
j'ai essayé avec DAO et ça marche trés bien
je vais essayé ton code

merci encore une autre fois

[seacat]

bonjour,

j'ai eu le même pb il y a quelques semaines, qui fut resolu en 1/2 sec par un des pros du forum

il faut changer le type de verrouillage du recordset:

rst.Open "SELECT [t/non-conformite].nrre FROM [T/NON-CONFORMITE]", cnn, adOpenKeyset, adLockBatchOptimistic

adLockBatchOptimistic est la première option proposée quand tu tapes ton code mais pas celle souhaitée forcément et c'est le côté batch qui pose pb puisque suppose un traitement en file d'attente.