Question : Pourquoi je ne peux pas ouvrir la base de données encore à l'événement de Worksheet_Change

Bonjour, le
I ont une question au sujet de pourquoi je ne peux pas base de données ouverte encore à l'event
MsgBox rst.RecordCount de Worksheet_Change, qu'il le retour -1

anyone pourrait-il aider ?
Thank vous !
Francis SZE class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
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 " de l'id= " codeSnippet963141 de
class= de

Réponse : Pourquoi je ne peux pas ouvrir la base de données encore à l'événement de Worksheet_Change

désolé résolu près
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 secondaire privé ()
Appel sub1
Sous-marin d'extrémité

Sous-marin privé sub1 ()
  
Faible wb comme cahier de travail
Le faible WS comme feuille de travail

Placer wb = ThisWorkbook
Placer le WS = le wb. Feuilles de travail (« Sheet1 »)

Faible CNN comme ADODB.Connection
Faible rst comme ADODB.Recordset
Faible navire de débarquement de chars comme corde

Placer CNN = nouvel ADODB.Connection
Placer le rst = nouvel ADODB.Recordset


CNN. Ouvrir le « kennamora », « kennam », « kennam007 »
rst.ActiveConnection = CNN
rst.CursorLocation = adUseClient
rst.CursorType = adOpenStatic
rst.LockType = adLockBatchOptimistic

rst. La source = « CHOISISSENT * À PARTIR des clients   »
rst. Ouvert

Tandis que pas rst.EOF
    navire de débarquement de chars = navire de débarquement de chars et rst. Champs (« com_address »). Valeur et » : « et rst. Champs (« tid »). Valeur et », « 
    rst.MoveNext
Wend

rst. Fin
CNN. Fin

Placer le rst = rien
Placer CNN = rien

Sur l'erreur n1 GoTo
    Avec le WS. Gamme (« F9 »). Validation
        . Suppression
        . Ajouter le type : =xlValidateList, AlertStyle : =xlValidAlertStop, opérateur : =xlBetween, Formula1 : = "" et navire de débarquement de chars
        .IgnoreBlank = rectifient
        .InCellDropdown = rectifient
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = « choisissent svp parmi la liste dropdown. »
        .ShowInput = rectifient
        .ShowError = rectifient
    Extrémité avec

Sortir le sous-marin
n1 :

MsgBox Err.Description
Sous-marin d'extrémité

Worksheet_Change secondaire privé (cible de ByVal comme gamme)
    
    Si Target.Address = « $F$9 » puis
'        Chaîne de MsgBox (« F9 »). Valeur
        spitted = dédoubler (gamme (« F9 »). Valeur, » : ")
'        MsgBox spitted (1)

        Faible CNN comme ADODB.Connection
        Faible rst comme ADODB.Recordset
        
        Placer CNN = nouvel ADODB.Connection
        Placer le rst = nouvel ADODB.Recordset
        
        CNN. Ouvrir le « kennamora », « kennam », « kennam007 »
        rst.ActiveConnection = CNN
'        rst.CursorLocation = adUseServer
        rst.CursorLocation = adUseClient
        rst.CursorType = adOpenStatic
        rst.LockType = adLockBatchOptimistic
        
        
        rst. La source = « CHOISISSENT * À PARTIR des customer_produces où com_id= » et spitted (1)
        rst. Ouvert
        
        MsgBox rst.RecordCount
        
        
        
        rst. Fin
        CNN. Fin
        
        Placer le rst = rien
        Placer CNN = rien


    Finir si
Finir le sous-marin
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us