No funciona el DropDown en combobox control
Publicado por Pelida (7 intervenciones) el 28/05/2024 09:04:34
Hola a todos
En un formulario tengo un combobox (cuadro combinado) que cambia de forma dinámica es decir en ejecución cada vez que lo selecciono, todo funciona bien excepto el DropDown que no se "autodespliega", envío el código que estoy utilizando.
Gracias de antemano
En un formulario tengo un combobox (cuadro combinado) que cambia de forma dinámica es decir en ejecución cada vez que lo selecciono, todo funciona bien excepto el DropDown que no se "autodespliega", envío el código que estoy utilizando.
Gracias de antemano
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Const MarcaSQL1 As String = "SELECT pres_marca.Marca FROM pres_marca;"
Const MarcaSQL2 As String = "SELECT pres_modelo.Descripcion FROM pres_modelo WHERE (((pres_modelo.marca)=[textomarca]));"
Const MarcaSQL3 As String = "SELECT pres_cisterna.descripcion, pres_cisterna.Marca FROM pres_cisterna WHERE (((pres_cisterna.Marca) = [Textomarca])) ORDER BY pres_cisterna.Cisterna;"
Private Sub Form_Current()
Seleccion = 1Caracteristicas.RowSource = MarcaSQL1
Caracteristicas.RequeryEnd Sub
Private Sub Caracteristicas_AfterUpdate()
If Seleccion = 1 Then Textomarca = Caracteristicas Seleccion = 2Caracteristicas.RowSource = MarcaSQL2
Caracteristicas.setfocusDoCmd.GoToControl "Caracteristicas"
Caracteristicas.Dropdown ElseIf Seleccion = 2 Then Textomodelo = Caracteristicas Seleccion = 3Caracteristicas.RowSource = MarcaSQL3
Caracteristicas.Requery Caracteristicas.setfocusDoCmd.GoToControl "Caracteristicas"
Caracteristicas.Dropdown ElseIf Seleccion = 3 Then TextoCisterna = Caracteristicas Seleccion = 1Caracteristicas.RowSource = MarcaSQL1
Caracteristicas.Requery Caracteristicas.setfocusDoCmd.GoToControl "Caracteristicas"
Caracteristicas.DropdownEnd If
End Sub
Valora esta pregunta
0
