Ver Mensaje Individual
  #2 (permalink)  
Antiguo 30/05/2006, 21:49
Avatar de marcos1979
marcos1979
 
Fecha de Ingreso: abril-2004
Ubicación: 62º 06' 18" O / 33º 07' 47" S
Mensajes: 331
Antigüedad: 20 años, 10 meses
Puntos: 1
Proba asi:
A los controles que necesitas ver si tienen algo poneles un Tag con el nombre, por ejemplo si el textbox se llama txtDireccion y es para que ponga la direccion agregale un tag "Direccion", despues pone esto en el boton de guardar:

Código:
    Dim i As Control
    
    For Each i In Controls
        If TypeName(i) = "TextBox" Or TypeName(i) = "ComboBox" Then
            If Len(i.Text) = 0 Then
                MsgBox "Faltan datos en " & i.Tag
                Exit Sub
            End If
        End If
    Next
    
    MsgBox "Todos llenos"
El problema es que no se como ordenar los controles, los 'revisa' en un orden medio 'raro'.
Un saludo y espero que te sirva
__________________
Marcos

El dinero no da la felicidad... démelo y sea feliz!!!