boton guardar

[KenMasters]

Una solución es asignarles banderas a cada text, y un comprobador de el resto de banderas para el resto de text, algo asi:

Código:

Private Sub Text1_Change()
 
  If Not (text1.text="") then 
    bandera1=true
    If (bandera1=true) and (bandera2=true) and (bandera3=true) then
       Command1.enabled = true
    end if
  Else
    bandera1=False
    Command1.enabled = False
  End if
 
End Sub 
 
Private Sub Text2_Change()
 
  If Not (text2.text="") then 
    bandera2=true
    If (bandera1=true) and (bandera2=true) and (bandera3=true) then
       Command1.enabled = true
    end if
  Else
    bandera2=False
    Command1.enable = False
  End If
 
End Sub
 
Private Sub Text3_Change()
 
  If Not (text3.text="") then 
    bandera3=true
    If (bandera1=true) and (bandera2=true) and (bandera3=true) then
       Command1.enabled = true
    end if
  Else
    bandera3=False
    Command1.enabled = False
  End If
 
End Sub

El ejemplo es aplicado para 3 text, tendrias que agregar el resto para con las demàs cajas de texto