Tengo el siguiente código y me da muchos problemas. Graba registros encima de otros, no me ordena los datos. La verdad es que he mirado el manual 100 vezes, pero me estoy volviendo loca. Una ayudita Pliss!!
Private Sub DataCombo1_Click(Area As Integer)
If DataCombo1.DataChanged Then
Adodc1.Recordset.Bookmark = DataCombo1.SelectedItem
End If
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As Button)
Select Case Button.Key
Case "StNuevo"
Adodc1.Recordset.AddNew
Case "StBorrar"
Confirm = MsgBox("¿Estas seguro de Borrar este registro?", vbYesNo, "confirmación de Borrar")
If Confirm = vbYes Then
MsgBox "Registro borrado!", , "Mensaje"
Adodc1.Recordset.Delete
Else
MsgBox "Registro no borrado!", , "Mensaje"
End If
Case "StGuardar"
Confirm = MsgBox("¿Estas seguro de Guardar este registro?", vbYesNo, "confirmación de Guardar")
If Confirm = vbYes Then
MsgBox "Registro guardado!", , "Mensaje"
Adodc1.Recordset.Update
Else
MsgBox "Registro no guardado!", , "Mensaje"
End If
Case "StSalir"
FrmStrobe.Hide
FrmContratos.Show
End Select
End Sub
