Mensaje VBYesNO al reponder

[gasuton]

Buenos de nuevo estoy en mi proyecto que estoy haciendo y tengo el siguiente problem:

Mi form se comunica con mi DB acces por medio de un data, y la idea es que a la hora de preguntar por agregar un dato el sistema me arroja un mensaje preguntando si estoy seguro de agregar los datos, si le respondo que si los debe de agrega (este no es el probelma). El tema que tengo es que a la hora de seleccionar el boton No, ses supone que no deberia de guardar ningun dato en la db, pero igualmente lo hace.

les dejo el codigo para que le hechen un ojo.

Código:

Private Sub guardar_Click()

mensaje = MsgBox("Esta seguro que quiere guardar los datos?", vbYesNo, "ABM Grupos")

If vbYes Then
grupo.Recordset.Update
mensaje = MsgBox("Los datos han sido actualizados!", vbInformation, "ABM Grupos")
Else:
End If

End Sub

El problema por lo que me imagino lo tengo en el Else, ya intente con varias opciones pero no me funcionaron.

[fantasma21]

if mensaje = vbYes then

.....

Saludos

[gasuton]

Iniciado por fantasma21

if mensaje = vbYes then

.....

Saludos

Ok despues de probar logre que me funcione pero no como se soupone, ya que caundo le pongo la opcion "No", igualmente me guardaba los regitro, por lo que me ocurrio poner lo siguiente:

Código:

Private Sub guardar_Click()

mensaje = MsgBox("Esta seguro que quiere guardar los datos?", vbYesNo, "ABM Grupos")

If mensaje = vbYes Then
grupo.Recordset.Update
mensaje = MsgBox("Los datos han sido actualizados!", vbInformation, "ABM Grupos")
Else: grupo.Recordset.Delete
      grupo.Recordset.MoveNext
      If grupo.Recordset.EOF Then
      grupo.Recordset.MoveLast
      End If
End If

End Sub

El problema es que si bien con el Else no me guarda los registros, si me consume un ID dentro de mi DB.

Habra algo que pueda hacer para que esto no pase?

Saludos y Gracias

[gasuton]

Ya lo solucione den por cerrado el tema, Muchachos sobre todo los nuevos como yo, usemos mas el MSDN de visual la ayuda realmente si funciona.

como lo solucione?, de la siguiente manera:

Código:

Private Sub guardar_Click()

mensaje = MsgBox("Esta seguro que quiere guardar los datos?", vbYesNo, "ABM Grupos")

If mensaje = vbYes Then
grupo.Recordset.Update
mensaje = MsgBox("Los datos han sido actualizados!", vbInformation, "ABM Grupos")
Else: grupo.Recordset.CancelUpdate
      grupo.Recordset.MoveNext
        If grupo.Recordset.EOF Then
        grupo.Recordset.MoveLast
        End If
End If

End Sub

Simplemente modifique la opcion delete por cancelupdate

Saludos.

[lokoman]

Aunque es mas facil, solo 1 linea:

Código vb:

IF MSGBOX ("GUARDAR DATOS?",VBQUESTION+VBYESNO)=VBYES THEN grupo.Recordset.Update
 

No hay que usar ELSE ni CANCELUPDATE

[gasuton]

Iniciado por lokoman

Aunque es mas facil, solo 1 linea:

Código vb:

IF MSGBOX ("GUARDAR DATOS?",VBQUESTION+VBYESNO)=VBYES THEN grupo.Recordset.Update
 

No hay que usar ELSE ni CANCELUPDATE

Es lo malo de ser autodidacta las cosas que podrian ser mas simples las haces complicadas, .

Igualmente esta muy buena es la voy a probar para ver que onda

Gracias y Saludos.