Cuestión : Porqué no puedo abrir la base de datos otra vez en el acontecimiento de Worksheet_Change

¿Hola, el
I tiene una pregunta sobre porqué no puedo base de datos abierta otra vez en el event
MsgBox rst.RecordCount de Worksheet_Change, que él la vuelta -1

anyone podría ayudar? ¡
Thank usted!
Francis SZE class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
>Private notpretty Worksheet_Activate secundario " del class= " del id= " codeSnippet963141 del
class= del

Respuesta : Porqué no puedo abrir la base de datos otra vez en el acontecimiento de Worksheet_Change

apesadumbrado solucionado cerca
rst.ActiveConnection = CNN
rst.CursorLocation = adUseClient
rst.CursorType = adOpenStatic
rst.LockType = adLockBatchOptimistic
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:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:

Worksheet_Activate secundario privado ()
Llamada sub1
Submarino del extremo

Submarino privado sub1 ()
  
Wb dévil como libro de trabajo
WS dévil como hoja de trabajo

Fijar wb = ThisWorkbook
Fijar WS = wb. Hojas de trabajo (“Sheet1”)

CNN dévil como ADODB.Connection
Rst dévil como ADODB.Recordset
Lst dévil como secuencia

Fijar CNN = nuevo ADODB.Connection
Fijar el rst = nuevo ADODB.Recordset


CNN. Abrir el “kennamora”, “kennam”, “kennam007”
rst.ActiveConnection = CNN
rst.CursorLocation = adUseClient
rst.CursorType = adOpenStatic
rst.LockType = adLockBatchOptimistic

rst. La fuente = “SELECCIONA * de clientes  ”
rst. Abierto

Mientras que no rst.EOF
    lst = lst y rst. Campos (“com_address”). Valor y”: “y rst. Campos (“tid”). Valor y”, “
    rst.MoveNext
Wend

rst. Cierre
CNN. Cierre

Fijar el rst = nada
Fijar CNN = nada

En el error n1 indicado
    Con WS. Gama (“F9”). Validación
        . Cancelación
        . Agregar el tipo: =xlValidateList, AlertStyle: =xlValidAlertStop, operador: =xlBetween, Formula1: = "" y lst
        .IgnoreBlank = verdad
        .InCellDropdown = verdad
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = “seleccionan por favor de lista dropdown.”
        .ShowInput = verdad
        .ShowError = verdad
    Extremo con

Salir el submarino
n1:

MsgBox Err.Description
Submarino del extremo

Worksheet_Change secundario privado (blanco de ByVal como gama)
    
    Si Target.Address = “$F$9” entonces
'        Gama de MsgBox (“F9”). Valor
        spitted = partir (la gama (“F9”). Valor,”: ")
'        MsgBox spitted (1)

        CNN dévil como ADODB.Connection
        Rst dévil como ADODB.Recordset
        
        Fijar CNN = nuevo ADODB.Connection
        Fijar el rst = nuevo ADODB.Recordset
        
        CNN. Abrir el “kennamora”, “kennam”, “kennam007”
        rst.ActiveConnection = CNN
'        rst.CursorLocation = adUseServer
        rst.CursorLocation = adUseClient
        rst.CursorType = adOpenStatic
        rst.LockType = adLockBatchOptimistic
        
        
        rst. La fuente = “SELECCIONA * de los customer_produces donde com_id=” y spitted (1)
        rst. Abierto
        
        MsgBox rst.RecordCount
        
        
        
        rst. Cierre
        CNN. Cierre
        
        Fijar el rst = nada
        Fijar CNN = nada


    Terminar si
Terminar el submarino
Otras soluciones  
 
programming4us programming4us