Comando combinado
Quisiera saber si me pueden ayudar o si se puede hacer lo que quiero
se los describo
cree un comando combinado
con las opciones de recibido, trabajando, pendiente, terminado
y quiero que al momento de capturar un dato solo se pueda seleccionar el de recibido
ya después se pueda activar el de trabajando y se desactive el de recibido
no se si me explique más o menos lo que quiero hacer
Que si el comando combinado dice recibido no se pueda poner de inmediato el de terminado en el mismo comando
si se puede les agradecería la ayuda
ya sea por código o por propiedades
se los describo
cree un comando combinado
con las opciones de recibido, trabajando, pendiente, terminado
y quiero que al momento de capturar un dato solo se pueda seleccionar el de recibido
ya después se pueda activar el de trabajando y se desactive el de recibido
no se si me explique más o menos lo que quiero hacer
Que si el comando combinado dice recibido no se pueda poner de inmediato el de terminado en el mismo comando
si se puede les agradecería la ayuda
ya sea por código o por propiedades
1 Respuesta
Respuesta de alex206
1
Quizá lo que necesitas es dependiendo de lo que necesites, llenar el cuadro combinado desde código con los valores que te interesen.
Dim i As Long
For i = 0 To Lista.ListCount - 1
Lista.RemoveItem 0
Next i
'luego añades lo que te interese
Lista. AddItem "Rechazado"
Poniendo este código visual basic puedes llenar el cuadro combinado con los valores que te interesen en cada situación
Dim i As Long
For i = 0 To Lista.ListCount - 1
Lista.RemoveItem 0
Next i
'luego añades lo que te interese
Lista. AddItem "Rechazado"
Poniendo este código visual basic puedes llenar el cuadro combinado con los valores que te interesen en cada situación
Lo he checado como dices pero la verdad no entiendo mucho
te pongo un ejemplo de más o menos como lo quiero
tengo añadido
recibido
trabajado
pendiente
terminado
lo que quiero es que no puedan pasar de recibido ha terminado sin antes haber pasado por trabajado
Y si esta en terminado no se pueda poner las opciones anteriores
el poco código que tengo es
Private Sub cbo_status_Change()
Me.txtFecha = Date
Me.TxtObserv = " "
If Me.cbo_status = 5 Then
MsgBox ("El Status ya no se puede modificar, hable con el administrador, para modificaciones")
Me.cbo_status = 5
End If
End Sub
Espero que me puedas ayudar
Gracias
te pongo un ejemplo de más o menos como lo quiero
tengo añadido
recibido
trabajado
pendiente
terminado
lo que quiero es que no puedan pasar de recibido ha terminado sin antes haber pasado por trabajado
Y si esta en terminado no se pueda poner las opciones anteriores
el poco código que tengo es
Private Sub cbo_status_Change()
Me.txtFecha = Date
Me.TxtObserv = " "
If Me.cbo_status = 5 Then
MsgBox ("El Status ya no se puede modificar, hable con el administrador, para modificaciones")
Me.cbo_status = 5
End If
End Sub
Espero que me puedas ayudar
Gracias
Supongo que los status van por orden numérico
Prueba poner esto
Private Sub cbo_status_Change()
Me.txtFecha = Date
Me.TxtObserv = " "
If Me.cbo_status = 5 Then
MsgBox ("El Status ya no se puede modificar, hable con el administrador, para modificaciones")
Me.cbo_status = 5
End If
'comparamos el valor puesto con el grabado + 1
If Me.cbo_status > me.recordset!cbo_status + 1 then
'si teniamos 1 por ejemplo y ha puesto el 3 avisamos y le ponemos el 2 que es el que toca
MsgBox ("El Status solicitado no es valido")
Me.cbo_status = me.recordset!cbo_status + 1
end if
End Sub
Prueba poner esto
Private Sub cbo_status_Change()
Me.txtFecha = Date
Me.TxtObserv = " "
If Me.cbo_status = 5 Then
MsgBox ("El Status ya no se puede modificar, hable con el administrador, para modificaciones")
Me.cbo_status = 5
End If
'comparamos el valor puesto con el grabado + 1
If Me.cbo_status > me.recordset!cbo_status + 1 then
'si teniamos 1 por ejemplo y ha puesto el 3 avisamos y le ponemos el 2 que es el que toca
MsgBox ("El Status solicitado no es valido")
Me.cbo_status = me.recordset!cbo_status + 1
end if
End Sub
