aparezca un cmd según si hay datos
Publicado por ANTONIO (81 intervenciones) el 22/09/2013 18:51:01
hola a todos,
tengo un formulario continuo donde a través de los campos debe(Texto20) y haber (Haber) conozco el saldo.
Lo que quiero es que en la propiedad al cargar si en el debe no hay ningún valor me aparezca un cmd que me abrirá un informe, si tiene valor me aparezca otro cmd que me abrirá un informe
Private Sub Form_Load()
'Al cargar los cmd estén ocultos
Recibi.Visible = False
cmdentrega.Visible = False
'Defino las variales
Dim vhaber As Integer, vdebe As Integer
'saco los valores
vhaber = Nz(Me.Haber.Value, 0)
vdebe = Nz(Me.Texto20.Value, 0)
' si en el campo haber no hay ningun dato, entonces haré visible un cmd
If vhaber = 0 Then
Recibi.Visible = True
Else
End If
If vdebe = 0 Then
Recibi.Visible = False
cmdentrega.Visible = True
Else
End If
End Sub
Gracias
tengo un formulario continuo donde a través de los campos debe(Texto20) y haber (Haber) conozco el saldo.
Lo que quiero es que en la propiedad al cargar si en el debe no hay ningún valor me aparezca un cmd que me abrirá un informe, si tiene valor me aparezca otro cmd que me abrirá un informe
Private Sub Form_Load()
'Al cargar los cmd estén ocultos
Recibi.Visible = False
cmdentrega.Visible = False
'Defino las variales
Dim vhaber As Integer, vdebe As Integer
'saco los valores
vhaber = Nz(Me.Haber.Value, 0)
vdebe = Nz(Me.Texto20.Value, 0)
' si en el campo haber no hay ningun dato, entonces haré visible un cmd
If vhaber = 0 Then
Recibi.Visible = True
Else
End If
If vdebe = 0 Then
Recibi.Visible = False
cmdentrega.Visible = True
Else
End If
End Sub
Gracias
Valora esta pregunta


0