Ya ha pasado esto sin duda. ¡Ayuda plz!
Publicado por Victor Manuel (101 intervenciones) el 31/03/2007 18:30:15
Tengo un formulario con 4 DTpickers, al cargar el formulario tengo este codigo:
Private Sub Form_Load()
For Each campos In Me.Controls
If TypeOf campos Is TextBox Then
campos.Enabled = False
End If
If TypeOf campos Is CheckBox Then
campos.Enabled = False
End If
If TypeOf campos Is ComboBox Then
campos.Enabled = False
End If
if typeof campos is DTPicker then
campos.enabled=false
If TypeOf campos Is CommandButton Then
campos.Enabled = False
End If
End sub
Este codigo me sirve para todos los campos menos para los DTPickers, osea, que al cargar el formulario todos los campos menos los DTPicker me aparecen deshabilitados.
mi pregunta es ¿Porque para los DTPickers no funciona este codigo y para los demas si funciona?
Ahora despues de que no se pudo con este codigo le agregue este al mismo:
FechaI.Enabled = False
FechaF.Enabled = False
HoraI.Enabled = False
HoraF.Enabled = False
Le agregue para que me aparecieran deshabilitados y vaya si funciono.
Ahora tengo un boton que se llama Alta de registros donde tengo este codigo:
Private Sub CmdNuevo_Click()
For Each campos In Me.Controls
If TypeOf campos Is TextBox Then
campos.Enabled = True
End If
If TypeOf campos Is CheckBox Then
campos.Enabled = True
End If
If TypeOf campos Is ComboBox Then
campos.Enabled = True
End If
If TypeOf campos Is CommandButton Then
campos.Enabled = True
End If
Next campos
DoCmd.GoToRecord , , acNewRec
NumeroReporte.SetFocus
FechaI.Enabled = True
FechaF.Enabled = True
HoraI.Enabled = True
HoraF.Enabled = True
End Sub
Esto para que todos los campos incluyendo los DTpickers se me habiliten y poder capturar registros, pero aqui un problema grande, cuando le doy click en el boton si todo bien con los demas controles pero los DTPickers se me desaparecen y solamente uno me aparece en la ezquina superior izquierda de mi formulario, mi pregunta es:
¿Porque pasa esto con los DTPickers, acaso son tan inestables para trabajar con ellos o que estoy haciendo mal?
Espero alguien me pueda ayudar, ya me duele la cabeza de tanto buscarle, Muchas gracias por su tiempo.
Private Sub Form_Load()
For Each campos In Me.Controls
If TypeOf campos Is TextBox Then
campos.Enabled = False
End If
If TypeOf campos Is CheckBox Then
campos.Enabled = False
End If
If TypeOf campos Is ComboBox Then
campos.Enabled = False
End If
if typeof campos is DTPicker then
campos.enabled=false
If TypeOf campos Is CommandButton Then
campos.Enabled = False
End If
End sub
Este codigo me sirve para todos los campos menos para los DTPickers, osea, que al cargar el formulario todos los campos menos los DTPicker me aparecen deshabilitados.
mi pregunta es ¿Porque para los DTPickers no funciona este codigo y para los demas si funciona?
Ahora despues de que no se pudo con este codigo le agregue este al mismo:
FechaI.Enabled = False
FechaF.Enabled = False
HoraI.Enabled = False
HoraF.Enabled = False
Le agregue para que me aparecieran deshabilitados y vaya si funciono.
Ahora tengo un boton que se llama Alta de registros donde tengo este codigo:
Private Sub CmdNuevo_Click()
For Each campos In Me.Controls
If TypeOf campos Is TextBox Then
campos.Enabled = True
End If
If TypeOf campos Is CheckBox Then
campos.Enabled = True
End If
If TypeOf campos Is ComboBox Then
campos.Enabled = True
End If
If TypeOf campos Is CommandButton Then
campos.Enabled = True
End If
Next campos
DoCmd.GoToRecord , , acNewRec
NumeroReporte.SetFocus
FechaI.Enabled = True
FechaF.Enabled = True
HoraI.Enabled = True
HoraF.Enabled = True
End Sub
Esto para que todos los campos incluyendo los DTpickers se me habiliten y poder capturar registros, pero aqui un problema grande, cuando le doy click en el boton si todo bien con los demas controles pero los DTPickers se me desaparecen y solamente uno me aparece en la ezquina superior izquierda de mi formulario, mi pregunta es:
¿Porque pasa esto con los DTPickers, acaso son tan inestables para trabajar con ellos o que estoy haciendo mal?
Espero alguien me pueda ayudar, ya me duele la cabeza de tanto buscarle, Muchas gracias por su tiempo.
Valora esta pregunta


0