Vraag : Fout 3078 kan geen lijst vinden

Wanneer ik de code in werking stel krijg hieronder ik een fout 3078 dat het niet de lijst of de vraag kan vinden.  Het gebeurt bij deze lijn:
strSQL = „TUSSENVOEGSEL IN tbl_HISTORY (CLIENT_ID) WAARDEN (Me.CLIENT_ID) „
CurrentDb.Execute strSQL1, dbFailOnError

If het antwoord op msgbox ja is, dan ik het tot een nieuw verslag in tbl_HISTORY en dan vertoning CLI_HISTORY_subform wil leiden gebruikend dat nieuw verslag.  Kan iedereen vertellen me waarom ik deze fout krijg?
" codeBody " 
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:

Dim strSQL als Koord
 
 DoCmd.Hourglass Waar
 Application.Echo Vals, „Verwerkend…“
 Met me
   Selecteer Geval tabClients
     Geval 0 'Eerste (Algemene) TabPage
       'Doe niets. Geladen SourceObject.

     Geval 1 'Tweede (Academische) TabPage
        'Van de bron lading voorwerpen op Academisch lusje
        Als .stuSchedule_subform.SourceObject <> „frm_STU_SCHEDULE“ toen
          .stuSchedule_subform.SourceObject = „frm_STU_SCHEDULE“
        Eind als
        Als .academics_subform.SourceObject <> „frm_STU_ACAD“ toen
          .academics_subform.SourceObject = „frm_STU_ACAD“
        Eind als

     Geval 2 'Derde TabPage (Geschiedenis)
        'Vind cliëntgeschiedenis.
        Als DLookup („CLIENT_ID“, „tbl_HISTORY“, „CLIENT_ID =“ & Me.CLIENT_ID) Dan
           .CLI_HISTORY_subform.SourceObject = „frm_CLI_HISTORY“
        Anders
           'Als geen geschiedenis beschikbare, snelle gebruiker is om cliëntgeschiedenis toe te voegen.
           Als MsgBox („Geen beschikbare cliëntgeschiedenis.  Zou u het willen nu toevoegen? “, vbYesNo) = vbYes toen
                'Tussenvoegsel een nieuw verslag in in tbl_CLI_HISTORY
                strSQL = „NEEM IN tbl_HISTORY (CLIENT_ID) WAARDEN op (Me.CLIENT_ID)“
                CurrentDb.Execute strSQL1, dbFailOnError
                'Vind nieuwe verslag en vertoning als subform
                Als DLookup („CLIENT_ID“, „tbl_HISTORY“, „CLIENT_ID =“ & Me.CLIENT_ID) Dan
                   .CLI_HISTORY_subform.SourceObject = „frm_CLI_HISTORY“
                Eind als
           Eind als
        Eind als
     Geval 3
         '…
     Geval 4
         '…
         '…
   Uitgezocht eind
 Eind met
 DoCmd.Hourglass Vals

Antwoord : Fout 3078 kan geen lijst vinden

probeer dit


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:

rivate SubtabClients_Change ()

Op Fout GoTo tabClients_Change_Err
 Schemerige strSQL als Koord
 
 DoCmd.Hourglass Waar
 Application.Echo Vals, „Verwerkend…“
 Met me
   Selecteer Geval tabClients
     Geval 0    'Eerste (Algemene) TabPage
       'Doe niets. Geladen SourceObject.

     Geval 1     'Tweede (Academische) TabPage
        'Van de bron lading voorwerpen op Academisch lusje
        Als .stuSchedule_subform.SourceObject <> „frm_STU_SCHEDULE“ toen
          .stuSchedule_subform.SourceObject = „frm_STU_SCHEDULE“
        Eind als
        Als .academics_subform.SourceObject <> „frm_STU_ACAD“ toen
          .academics_subform.SourceObject = „frm_STU_ACAD“
        Eind als

     Geval 2    'Derde TabPage (Geschiedenis)
        'Vind cliëntgeschiedenis.
        Als DLookup („CLIENT_ID“, „tbl_HISTORY“, „CLIENT_ID =“ & Me.CLIENT_ID) Dan
           .CLI_HISTORY_subform.SourceObject = „frm_CLI_HISTORY“
        Anders
           'Als geen geschiedenis beschikbare, snelle gebruiker is om cliëntgeschiedenis toe te voegen.
           Als MsgBox („Geen beschikbare cliëntgeschiedenis.  Zou u het willen nu toevoegen? “, vbYesNo) = vbYes toen
                'Tussenvoegsel een nieuw verslag in in tbl_HISTORY
             
               met currentdb.openrecordset („tbl_History“)
                    .addnew
                    ! Client_ID=Me.Client_ID
                    .update
               eind met

               'strSQL = „NEEM IN tbl_HISTORY (CLIENT_ID) WAARDEN (“ & Me.CLIENT_ID op & „)“
               'CurrentDb.Execute strSQL1, dbFailOnError
                'Vind nieuwe verslag en vertoning als subform
                Als DLookup („CLIENT_ID“, „tbl_HISTORY“, „CLIENT_ID =“ & Me.CLIENT_ID) Dan
                   .CLI_HISTORY_subform.SourceObject = „frm_CLI_HISTORY“
                Eind als
           Eind als
        Eind als
     Geval 3
         '…
     Geval 4
         '…
         '…
   Uitgezocht eind
 Eind met
 DoCmd.Hourglass Vals
Andere oplossingen  
 
programming4us programming4us