Formulario mdi y campos obligatorios

[APENA01]

Como estamos amigos.

les pido de favor me ayuden con este caso.

he creado un form mdi y dentro de el sus form hijos

y he crado sus botones de mantenimiento en la barra principal del mdi

pero necesito que al pulsar el boton grabar me envie a pantalla un mensaje si algun campo quedo vacio o en blanco que por olvido del user no ingreso datos en el , y sea obligatorio llenar todos los campos para que el sistema deje grabar

nota: que tome en cuenta que se esta trabajando con el form actual en pantalla

gracias de antemano por su ayuda.

alberto.

[David]

Con ActiveForm podrás saber cuál es la ventana activa y manejarlo.

Puedes, por ejemplo, recorrer todos los TextBox y ver si alguno está vacío (con un For Each a Form.Controls)

[APENA01]

Gracias por tu ayuda

disculpa podrias ser mas especifico un poquito mas de ayudita

gracias.

[David]

¿Cuál es exactamente la parte que no entiendes?

[totigo]

Podes validar el formulario activo de la siguiente manera:

Código vb:

Public Sub validaCampos()
Dim i As Integer
    On Error Resume Next
    For i = 0 To Screen.ActiveForm.Controls.Count - 1
        If TypeOf Screen.ActiveForm.Controls(i) Is TextBox Then
            If Not Len(Screen.ActiveForm.Controls(i).Text) > 0 Then
                Screen.ActiveForm.Controls(i).SetFocus
                MsgBox "Debe ingresar un dato en este campo", vbExclamation
            End If
'       ElseIf TypeOf Screen.ActiveForm.Controls(i) Is ComboBox Then
'       ElseIf TypeOf Screen.ActiveForm.Controls(i) Is CheckBox Then
'       ElseIf TypeOf Screen.ActiveForm.Controls(i) Is OptionButton Then
       End If
    Next i
End Sub
 

[APENA01]

Gracias por ayuda solo una pregunta

este codigo lo ingreso en el boton grabar

y abajo de este codigo le escribo el codigo para grabar supongo??

Gracias las disculpas del caso es que casi no conozco el lenguaje

[totigo]

Si asi es!, de hecho el codigo funciona ya tu lo amoldas a tu propio codigo

El procedimiento validaCampos, valida el formulario hijo (child) que se encuentre activo en ese preciso momento.

Se supone que debes colocar el llamado al Procedimiento validaCampos antes del codigo para grabar.

Esto es:

Call validaCampos

[APENA01]

hey muchas gracias si me funciono me da el mensaje de que rellene todos los campos

pero despues al rellenarlos y darle grabar de nuevo me da el error siguiente:

el proveedor de datos u otro servicio devolvio un estado; E_FAIL

y luego muestra

METHOD REFRESH OF OBJECT 'IADODC1' FAILED

le elimino la linea de codigo adodc1.refresh ya no me da el error pero no graba los cambios

me das una una ultima ayudita por favor

gracias.

[totigo]

Bueno ese error corresponde al Codigo donde esta grabando.

Publica el codigo para analizar donde puede estar la falla.

[APENA01]

BUENO EL CODIGO QUE HE HECHO ES PARA UNA BARRA DE HERRAMIENTAS EN UN FORM MDI
HE CREADO UN INDEX PARA LA BARRA

Y ENVIO EL CODIGO DE TODOS LOS BOTONES INCLUYENDO EL BOTON GRABAR QUE ES EL QUE ME DA ERROR AL CORRER EL PROGRAMA


Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
Me.ActiveForm.Adodc1.Recordset.AddNew

Case 2
validaCampos
Me.ActiveForm.Adodc1.Recordset.Update
Me.ActiveForm.Adodc1.Recordset.Requery
Me.ActiveForm.Adodc1.Refresh
Me.ActiveForm.Adodc1.Recordset.MoveLast

Case 3
Me.ActiveForm.Adodc1.Recordset.CancelUpdate
Case 4
If vbYes = MsgBox("Desea eliminar el Registro", vbYesNo) Then
Me.ActiveForm.Adodc1.Recordset.Delete
If Me.ActiveForm.Adodc1.Recordset.EOF Then
Me.ActiveForm.Adodc1.Recordset.MoveFirst
Else
Me.ActiveForm.Adodc1.Recordset.MoveNext
If Me.ActiveForm.Adodc1.Recordset.EOF Then
Me.ActiveForm.Adodc1.Recordset.MoveLast
End If
End If
End If
Case 5
Dim Mensaje, Estilo, Título, Ctxt, Respuesta, MiCadena, ayuda
Mensaje = "¿Desea salir del programa?" ' Define el mensaje.
Estilo = vbYesNo + vbQuestion + vbDefaultButton2 ' Define los botones.
Título = "Salir del Programa" ' Define el título.
Ctxt = 1000 ' Define el tema
' el contexto
' Muestra el mensaje.
Respuesta = MsgBox(Mensaje, Estilo, Título, ayuda, Ctxt)
If Respuesta = vbYes Then ' El usuario eligió el botón Sí.
End



End If


End Select
End Sub

[totigo]

Hola! me tome la tarea de crear un proyecto simulando lo que tu tienes:

• Un Formulario MDI
• Un Toolbar con 5 botones
• Un Form child al cual le agregué: Un Adodc1 (Apuntando a la base BIBLIO.MDB, tabla Authors) y un un TextBox (Apuntando al DataSource Adodc1 y el DataField Author)

Copie tu codigo y lo pegue en mi proyecto simulado

Pulso F5........... Funciona! juego con los botones nuevo, guardar, eliminar, cancelar, salir

Trato de reventar el programa pero no me vota errores! esta perfecto mi hermano!

Revisa:

• Que no tengas tu base de datos, o una tabla abierta en modo de diseño en algun administrador, suele suceder ejemplo msAcces y quizas no esta dejando trabajar! tu programa funciona sin problemas!
  
• Que los datos que se estan ingresando en cada uno de los campos sean validos acorde al tipo de dato de las columnas de tu tabla, quizas se te esta yendo un ENTER u algun dato invalido para el tipo de dato.

Revisa y me comentas! si algo te envio mi simulacion y comparas, pero estamos iguales, yo lo tengo con la base BIBLIO.MDB de msAcces

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Archivos de programa\Microsoft Visual Studio\VB98\BIBLIO.MDB;Persist Security Info=False

[APENA01]

Hey te agradezco mucho por tomarte el tiempo para ayudarme
yo he creado mi formulario con mysql y ado
pero revisame mi codigo en algo tengo que estar fallando aun me da el error

y gracias por todo

saludos.