
Actualizar combos en cascada
Publicado por Marta (5 intervenciones) el 20/07/2017 11:26:58
Buenos días,
tengo una base de datos en access, hice un formulario con cuadros combinados en cascada (a través de consultas para cada cuadro).
Necesito que se actualicen los cuadros combinados cuando me equivoco al elegir una opción, y que no se queden las opciones de la primera elección.
Y si es posible que si elijo un cuadro combinado superior, pues que los inferiores se pongan en blanco.
no me sirve .requery
y este es el código que tengo, que seguro que habrá que modificar algo:

tengo una base de datos en access, hice un formulario con cuadros combinados en cascada (a través de consultas para cada cuadro).
Necesito que se actualicen los cuadros combinados cuando me equivoco al elegir una opción, y que no se queden las opciones de la primera elección.
Y si es posible que si elijo un cuadro combinado superior, pues que los inferiores se pongan en blanco.
no me sirve .requery
y este es el código que tengo, que seguro que habrá que modificar algo:
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Option Compare Database
Private Sub CBOCENTRO_Change()
Me.CBOCODIGOCURSO.Requery
Me.CBONOMBRECURSO.Requery
End Sub
Private Sub CBOCODIGOCURSO_Change()
Me.CBODOCENTE.Requery
Me.CBONOMBRECURSO.Requery
End Sub
Private Sub CBODOCENTE_Change()
Me.CBOCODIGOCURSO.Requery
Me.CBOCENTRO
End Sub
Private Sub CBONOMBRECURSO_Change()
Me.CBOCENTRO.Requery
Me.CBODOCENTE.Requery
End Sub
Private Sub CBOEMRECU_Change()
Me.CBOTIPCUR.Requery
Me.CBOCENTRO.Requery
End Sub
Private Sub CBOTIPCUR_Change()
Me.CBOCENTRO.Requery
Me.CBOISLA.Requery
End Sub
Private Sub CBOCODIGOCURSO_AfterUpdate()
Me.CBODOCENTE.Requery
Me.CBONOMBRECURSO.Requery
End Sub
Private Sub CBODOCENTE_AfterUpdate()
Me.CBOCODIGOCURSO.Requery
Me.CBOCENTRO
End Sub
Private Sub CBONOMBRECURSO_AfterUpdate()
Me.CBOCENTRO.Requery
Me.CBODOCENTE.Requery
End Sub
Private Sub CBOCENTRO_AfterUpdate()
Me.CBOCODIGOCURSO.Requery
Me.CBONOMBRECURSO.Requery
End Sub
Private Sub CBOEMRECU_AfterUpdate()
Me.CBOTIPCUR.Requery
Me.CBOCENTRO.Requery
End Sub
Private Sub CBOTIPCUR_AfterUpdate()
Me.CBOCENTRO.Requery
Me.CBOISLA.Requery
End Sub

Valora esta pregunta


0