Bonjour,

Je essaye de faire marcher cette requete:
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
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