Susan
28 de Febrero del 2003

He echo un programa en visual con un modulo.He llamado a ese modulo desde el programa con la funcion call pero no me coge las modificaciones aunque tampoco me da fallo
Este es el codigo
todo el ejercicio

Option Explicit
Dim RESPUESTA As String

Private Sub Command1_Click()
Frm_alumnos.Show
mn_clientes.Enabled = True
End Sub

Private Sub MDIForm_Load()
mn_clientes.Enabled = False
End Sub

Private Sub mn_alta_Click()
Call desbloquear_tabla
Frm_alumnos.inicio.Enabled = False
Frm_alumnos.anterior.Enabled = False
Frm_alumnos.final.Enabled = False
Frm_alumnos.Text1.Text = ""
RESPUESTA = MsgBox("Va ha insertar un registro.¿Desea Continuar?", vbYesNo, "Añadir Alumno")
If RESPUESTA = vbYes Then
RESPUESTA = MsgBox("Introduzca los valores en los campos y dele a siguiente para guardar", vbInformation)
MAZRAM.rsAlumnos.AddNew
Frm_alumnos.txtDNI.Enabled = True
Frm_alumnos.txtDNI.SetFocus
End If
End Sub

Private Sub mn_baja_Click()
RESPUESTA = MsgBox("Va ha borrar el registro activo.¿Desea Continuar?", vbYesNo, "Borrado de Alumno")
If RESPUESTA = vbYes Then
MAZRAM.rsAlumnos.Delete
MsgBox ("REGISTRO BORRADO")
MAZRAM.rsAlumnos.MovePrevious
If MAZRAM.rsAlumnos.BOF = True Then
MAZRAM.rsAlumnos.MoveNext
End If
End If
End Sub

Private Sub mn_modificar_Click()
RESPUESTA = MsgBox("Ha seleccionado Modificar Cliente.¿Desea Continuar?", vbYesNo, "Modificar Cliente")
If RESPUESTA = vbYes Then
Frm_alumnos.inicio.Enabled = False
Frm_alumnos.anterior.Enabled = False
Frm_alumnos.final.Enabled = False
RESPUESTA = MsgBox("Modifica los campos necesarios y pulse siguiente", vbInformation)
Call desbloquear_tabla
MAZRAM.rsAlumnos.Update
End If
End Sub

Private Sub MN_SALIR_Click()
Unload Me
End Sub


EL MODULO

Public Sub desbloquear_tabla()
Frm_alumnos.txtDNI.Enabled = False
Frm_alumnos.txtNOMBRE.Enabled = False
Frm_alumnos.txtAPELLIDO1.Enabled = False
Frm_alumnos.txtAPELLIDO2.Enabled = False
Frm_alumnos.txtDIRECCION.Enabled = False
Frm_alumnos.txtTELEFONO.Enabled = False
Frm_alumnos.txtPROVINCIA.Enabled = False
Frm_alumnos.txtFECHA_NAC.Enabled = False
Frm_alumnos.txtNOMBRETUTOR.Enabled = False
End Sub

Public Sub bloquear_tabla()
Frm_alumnos.txtDNI.Enabled = True
Frm_alumnos.txtNOMBRE.Enabled = True
Frm_alumnos.txtAPELLIDO1.Enabled = True
Frm_alumnos.txtAPELLIDO2.Enabled = True
Frm_alumnos.txtDIRECCION.Enabled = True
Frm_alumnos.txtTELEFONO.Enabled = True
Frm_alumnos.txtPROVINCIA.Enabled = True
Frm_alumnos.txtFECHA_NAC.Enabled = True
Frm_alumnos.txtnombre_tutor.Enabled = True
End Sub

GRACIAS