Bonjour,
Je essaye de faire marcher cette requete:
Mais elle ne marche que dans le cas "Else".
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
23
24 Set rs = New ADODB.Recordset rs.ActiveConnection = CurrentProject.Connection Select Case Me.Liste63.ListIndex Case -1 rs.Source = "SELECT * FROM [T_prets_alertes]" rs.CursorType = adOpenDynamic rs.LockType = adLockOptimistic rs.Open rs.AddNew rs![Pret] = Me.txtPret.Value rs![Titre] = Me.txtTitre.Value rs![Description] = Me.txtDescription.Value rs![D_alerte] = Me.dtDate.Value Case Else rs.Source = "SELECT * FROM [T_prets_alertes] WHERE Alerte=" & Me.Liste63.Value rs.CursorType = adOpenDynamic rs.LockType = adLockOptimistic rs.Open rs![Titre] = Me.txtTitre.Value rs![Description] = Me.txtDescription.Value rs![D_alerte] = Me.dtDate.Value End Select rs.Update rs.Close
Le cas "-1" donne "ODBC - Call Failled"
Est-ce que quelqu'un peut m'aider, svp?
Merci d'avance
Partager