Ayuda con un msgbox con vbyesno para un boton de eliminar registro
Publicado por francisco (2 intervenciones) el 19/09/2017 02:50:03
buenas noches, estoy creando un formulario en visual basic 6.0 para agregar clientes y como tal tengo 5 botones el problema lo tengo en ele boton de eliminar (como tal el cumple su funcion de eliminar el registro) pero lo que me dijeron en clase es que debo agregar un msgbox con opciones yesno y sinceramente escribi la sintaxis pero aun asi me elimina el registro sabiendo que le di en el boton NO me ayudan??
-este es mi codigo del boton
-este es mi codigo del boton
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub bt_eliminar_Click()
Dim BD As ADODB.ConnectionDim Rs As ADODB.RecordsetDim ConexBD As String
ConexBD = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\CLIENTE.mdb;Persist Security Info=False"
'creacion de objetos
Set BD = New ADODB.Connection
Set Rs = New ADODB.Recordset
'conectado con la base de datos
BD.Open ConexBDIf Me.txtid = "" Or Me.txtnom = "" Or Me.txtap = "" Or Me.txtdi = "" Or Me.txte = "" Or Me.txtem = "" Then
MsgBox "no se puede realizar esta operacion ya que no existe un registro valido para eliminar", vbCritical, "no hay registros para eliminar"
Me.txtid.SetFocus
Else
MsgBox "esta seguro que quiere eliminar el registro?", vbQuestion + vbYesNo, "proceso"
If vbYes = 6 ThenRs.Open "delete * from tbl_informacion where ID=" & Me.txtid & "", BD, adOpenDynamic, adLockOptimistic
MsgBox "Datos eliminados ", vbInformation, "correcto"
Me.txtid = ""
Me.txtnom = ""
Me.txtap = ""
Me.txtdi = ""
Me.txte = ""
Me.txtem = ""
Else
End If
End If
End Sub
Valora esta pregunta
0
