pikamo | salut
le problème je le pense ici If rs.EOF Then '(si pas d'enregistrements)
il ne teste pas il fait isnser automatique
merci de m'aider
Code :
- Dim con As New ADODB.Connection
- Dim rs As New ADODB.Recordset
- Dim sql As String
- Dim sql2 As String
- nom = ComboBox1.Value
- prenom = ComboBox2.Value
- sal = ComboBox3.Value
- gar = ComboBox4.Value
- .....
- 'conection a la bse de données
- If ComboBox5.Value = "Oui" Then
- 'Vérif si enregistrement existant
- Set rs.ActiveConnection = con
- rs.Open " Select * from acteurcorr where Nom ='" & nom & "' and Prenom ='" & prenom & "'and datebut = # " & date1 & "# " ' c'est dtpicker
- 'il ne teste pas
- 'Traitement
- If rs.EOF Then '(si pas d'enregistrements)
- 'insertion
- sql = " insert into acteurcorr (Nom,Prenom,Salaire,grade,datedebut,datefinale) Values ('" & nom & "' ,'" & prenom & "','" & sal & "', '" & gar & "','" & datedebu & "','" & datefina & "' )"
- con.Execute sql
- Else '(au moins un enregistrement)
- sql2 = " update acteurcorr set datefinale = '" & datefina & "', grade = '" & gar & "' where Nom ='" & nom & "' and Prenom ='" & prenom & "' and datefinale Is Null "
- con.Execute sql2
- rs.Close
- Set rs = Nothing
- End If
|
|
