"cette opération n'est pas autorisée si l'objet est fermé"
Private Sub Enregistrer_Click()
If (MsgBox("êtes vous sûr de bien vouloir ajouter ce service", _
vbQuestion + vbYesNoCancel) = vbYes) Then
dbsBase.Execute ("insert into service (code_ser, nom_ser, sigle) values ('" & UCase(Trim(Replace(txtcode_ser.Text, "'", "''"))) & "', '" & Trim(Replace(txtnom_ser.Text, "'", "''")) & "', '" & Replace(txtsigle.Text, "'", "''") & "';")
MsgBox "Un service a été ajouté", vbInformation
dbsBase.Close
openbdr
End If
End Sub
2006-09-10
21:02:52
·
3 réponses
·
demandé par
franxi
1
dans
Programmation