ODBC - Call Failled vers table SQL Server
Bonjour,
Je essaye de faire marcher cette requete:
Code:
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 |
Mais elle ne marche que dans le cas "Else".
Le cas "-1" donne "ODBC - Call Failled"
Est-ce que quelqu'un peut m'aider, svp?
Merci d'avance