Programación General > Bases de Datos

 Boton de guardar

(1/1)

mega_taco:
buenas tardes noches o dias segun su zona horaria, bueno pues tengo una duda estoy haciendo un trabajo para la prepa y en una ventan donde se muestra varios textbox y muestran la informacion de una base de datos de access logro que el boton buscar funcione mientras todos los textbox estan bloqueados y al momento de presionar el boton editar se desbloquean para editarlos pero cuando presiono el boton guardar me marca el error de "La operacion no esta permitida si el objeto esta cerrado".

este es el codigo del boton, alguien me puede decir donde esta el error? se lo agradeceria mucho


Private Sub cmdguardar_Click()
If txtFOLIO.Text = "" Then
MsgBox "Falta el numero de folio", vbExclamation, "Error"
txtFOLIO.SetFocus
Else
If txtDEPARTAMENTO.Text = "" Then
MsgBox "falta el departamento", vbExclamation, "Error"
txtDEPARTAMENTO.SetFocus
Else
Mantenimiento.rsDatos.Update
MsgBox "El registro fue guardado satisfactoriamente.", vbInformation, "Exitoso"
End If
End If

End Sub

seba123neo:
Hola, la logica de eso esta mal, fijate que si falta un dato no se va del Sub y sigue ejecutando el codigo.


--- Código: Visual Basic ---Private Sub Form_Load()   If txtFOLIO.Text = "" Then      MsgBox "Falta el numero de folio", vbExclamation, "Error"      txtFOLIO.SetFocus      Exit Sub   End If   If txtDEPARTAMENTO.Text = "" Then      MsgBox "falta el departamento", vbExclamation, "Error"      txtDEPARTAMENTO.SetFocus      Exit Sub   End If   'aca tendrias que asignarle al recordset los valores de los textbox...   Mantenimiento.rsDatos.Update   MsgBox "El registro fue guardado satisfactoriamente.", vbInformation, "Exitoso"End Sub 
me imagino que antes de todo esto el recodset debe estar abierto con .Open  y despues con el .AddNew

saludos.

Navegación

[0] Índice de Mensajes