msgbox
Publicado por JESUS (48 intervenciones) el 05/08/2005 20:47:30
como hacerle para que se obedesca a un msgbox?
por ejemplo tengo el siguiente codigo:
Set base = New ADODB.Connection
Set Personas = New ADODB.Recordset
base.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\isce.mdb" & ";Persist Security Info=False"
MsgBox "Esta seguro que desea eliminar este registro", vbYesNo, "Eliminar"
Personas.Open "DELETE FROM clientes WHERE IDcliente='" & Text1(0) & "'", base
Dim i As Integer
For i = 0 To 8
Text1(i) = ""
Next
Text1(0).SetFocus
como hacerle para que cuando le de que "no" del msgbox no me borre el registro???
de antemano muchas gracias
por ejemplo tengo el siguiente codigo:
Set base = New ADODB.Connection
Set Personas = New ADODB.Recordset
base.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\isce.mdb" & ";Persist Security Info=False"
MsgBox "Esta seguro que desea eliminar este registro", vbYesNo, "Eliminar"
Personas.Open "DELETE FROM clientes WHERE IDcliente='" & Text1(0) & "'", base
Dim i As Integer
For i = 0 To 8
Text1(i) = ""
Next
Text1(0).SetFocus
como hacerle para que cuando le de que "no" del msgbox no me borre el registro???
de antemano muchas gracias
Valora esta pregunta


0