Frage : Warum ich Datenbank nicht am Worksheet_Change Ereignis wieder öffnen kann

Hallo, haben
I eine Frage über, warum ich nicht geöffnete Datenbank wieder am Worksheet_Change event
MsgBox rst.RecordCount kann, das es, könnte Rückkehr -1

anyone helfen?
Thank Sie!
Francis SZE 
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:
6:
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 VorWorksheet_Activate ()
Anruf sub1
Enden-Unterseeboot

Privates Unterseeboot sub1 ()
  
Schwache WB als Arbeitsbuch
Schwaches WS als Arbeitsblatt, ws2 als Arbeitsblatt

Einstellen WB = ThisWorkbook
Einstellen WS = WB. Arbeitsblätter („Sheet1“)

Schwaches CNN als ADODB.Connection
Schwaches rst als ADODB.Recordset
Schwacher lst als Schnur
I als lang verdunkeln

Einstellen CNN = neues ADODB.Connection
Rst einstellen = neues ADODB.Recordset


CNN. „Kennamora“ öffnen, „kennam“, „kennam007“
rst.ActiveConnection = CNN
rst.CursorLocation = adUseServer

rst. Quelle = „WÄHLEN * von den Kunden“ vor
rst. Geöffnet

Während nicht rst.EOF
    lst = lst u. rst. Felder („com_address“). Wert u.“: „u. rst. Felder („tid“). Wert u.“, „
    rst.MoveNext
Wend

rst. Abschluss

Rst einstellen = nichts
Einstellen CNN = nichts

Auf Störung Goto- n1
    Mit WS. Strecke („F9“). Gültigkeitserklärung
        . Löschung
        . Art addieren: =xlValidateList, AlertStyle: =xlValidAlertStop, Operator: =xlBetween, Formula1: = "" u. lst
        .IgnoreBlank = richten aus
        .InCellDropdown = richten aus
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = „wählen bitte von der Drop-Down-Liste.“ vor
        .ShowInput = richten aus
        .ShowError = richten aus
    Ende mit

Unterseeboot herausnehmen
n1:

MsgBox Err.Description
Enden-Unterseeboot

Privates VorWorksheet_Change (ByVal Ziel als Strecke)
    
    Wenn Target.Address = „$F$9“ dann
'MsgBox Strecke („F9“). Wert
        spitted = aufspalten (Strecke („F9“). Wert,“: ")
'MsgBox spitted (1)

        Schwaches CNN als ADODB.Connection
        Schwaches rst als ADODB.Recordset
        
        Einstellen CNN = neues ADODB.Connection
        Rst einstellen = neues ADODB.Recordset
        
        CNN. „Kennamora“ öffnen, „kennam“, „kennam007“
        rst.ActiveConnection = CNN
        rst.CursorLocation = adUseServer
        
        
        rst. Quelle = „* von den customer_produces in denen com_id=“ VORWÄHLEN u. spitted (1)
        rst. Geöffnet
        
        MsgBox rst.RecordCount
        
        
        
        rst. Abschluss

        Rst einstellen = nichts
        Einstellen CNN = nichts


    Beenden wenn
Unterseeboot beenden

Antwort : Warum ich Datenbank nicht am Worksheet_Change Ereignis wieder öffnen kann

trauriges vorbei gelöst
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:
6:
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:

Privates VorWorksheet_Activate ()
Anruf sub1
Enden-Unterseeboot

Privates Unterseeboot sub1 ()
  
Schwache WB als Arbeitsbuch
Schwaches WS als Arbeitsblatt

Einstellen WB = ThisWorkbook
Einstellen WS = WB. Arbeitsblätter („Sheet1“)

Schwaches CNN als ADODB.Connection
Schwaches rst als ADODB.Recordset
Schwacher lst als Schnur

Einstellen CNN = neues ADODB.Connection
Rst einstellen = neues ADODB.Recordset


CNN. „Kennamora“ öffnen, „kennam“, „kennam007“
rst.ActiveConnection = CNN
rst.CursorLocation = adUseClient
rst.CursorType = adOpenStatic
rst.LockType = adLockBatchOptimistic

rst. Quelle = „VORWÄHLEN * von den Kunden  “
rst. Geöffnet

Während nicht rst.EOF
    lst = lst u. rst. Felder („com_address“). Wert u.“: „u. rst. Felder („tid“). Wert u.“, „
    rst.MoveNext
Wend

rst. Abschluss
CNN. Abschluss

Rst einstellen = nichts
Einstellen CNN = nichts

Auf Störung Goto- n1
    Mit WS. Strecke („F9“). Gültigkeitserklärung
        . Löschung
        . Art addieren: =xlValidateList, AlertStyle: =xlValidAlertStop, Operator: =xlBetween, Formula1: = "" u. lst
        .IgnoreBlank = ausrichten en
        .InCellDropdown = ausrichten en
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = „vorwählen bitte von der Drop-Down-Liste.“
        .ShowInput = ausrichten en
        .ShowError = ausrichten en
    Ende mit

Unterseeboot herausnehmen
n1:

MsgBox Err.Description
Enden-Unterseeboot

Privates VorWorksheet_Change (ByVal Ziel als Strecke)
    
    Wenn Target.Address = „$F$9“ dann
'        MsgBox Strecke („F9“). Wert
        spitted = aufspalten (Strecke („F9“). Wert,“: ")
'        MsgBox spitted (1)

        Schwaches CNN als ADODB.Connection
        Schwaches rst als ADODB.Recordset
        
        Einstellen CNN = neues ADODB.Connection
        Rst einstellen = neues ADODB.Recordset
        
        CNN. „Kennamora“ öffnen, „kennam“, „kennam007“
        rst.ActiveConnection = CNN
'        rst.CursorLocation = adUseServer
        rst.CursorLocation = adUseClient
        rst.CursorType = adOpenStatic
        rst.LockType = adLockBatchOptimistic
        
        
        rst. Quelle = „* von den customer_produces in denen com_id=“ VORWÄHLEN u. spitted (1)
        rst. Geöffnet
        
        MsgBox rst.RecordCount
        
        
        
        rst. Abschluss
        CNN. Abschluss
        
        Rst einstellen = nichts
        Einstellen CNN = nichts


    Beenden wenn
Unterseeboot beenden
Weitere Lösungen  
 
programming4us programming4us