Frage : Störung 3078 kann Tabelle nicht finden

Wenn ich den Code unten ich laufen lasse, eine Störung 3078 erhalten, dass sie die Tabelle oder die Frage nicht finden kann.  Sie geschieht an dieser Linie:
strSQL = „EINSATZ IN tbl_HISTORY (CLIENT_ID) BEWERTET (Me.CLIENT_ID) „
CurrentDb.Execute strSQL1, dbFailOnError

If, welches die Antwort zum msgbox ja ist, als ich es einen neuen Rekord im tbl_HISTORY verursachen und CLI_HISTORY_subform using diesen neuen Rekord dann anzeigen wünsche.  Kann jemand mir erklären, warum ich diese Störung erhalte? 
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:

Dim strSQL als Schnur
 
 DoCmd.Hourglass zutreffend
 Application.Echo falsch, „verarbeitend…“
 Mit mir
   Fall tabClients vorwählen
     0 'erstes TabPage Rechtssache (allgemein)
       'Nichts tun. SourceObject lud.

     Rechtssache 1 'an zweiter Stelle TabPage (akademisch)
        'Lastsquellgegenstände auf akademischem Vorsprung
        Wenn .stuSchedule_subform.SourceObject <> „frm_STU_SCHEDULE“ dann
          .stuSchedule_subform.SourceObject = „frm_STU_SCHEDULE“
        Beenden wenn
        Wenn .academics_subform.SourceObject <> „frm_STU_ACAD“ dann
          .academics_subform.SourceObject = „frm_STU_ACAD“
        Beenden wenn

     Rechtssache 2 'drittes TabPage (Geschichte)
        'Entdeckungklientengeschichte.
        Wenn DLookup („CLIENT_ID“, „tbl_HISTORY“, „CLIENT_ID =“ u. Me.CLIENT_ID) dann
           .CLI_HISTORY_subform.SourceObject = „frm_CLI_HISTORY“
        Sonst
           'Wenn keine Geschichte vorhandener, sofortiger Benutzer ist, Klientengeschichte zu addieren.
           Wenn MsgBox („keine Klientengeschichte vorhanden.  Wurden Sie mögen sie jetzt addieren? “, vbYesNo) = vbYes dann
                'Einen neuen Rekord in in tbl_CLI_HISTORY einsetzen
                strSQL = „EINSATZ IN tbl_HISTORY (CLIENT_ID) WERTE (Me.CLIENT_ID)“
                CurrentDb.Execute strSQL1, dbFailOnError
                'Entdeckung-neuer Rekord und -anzeige als subform
                Wenn DLookup („CLIENT_ID“, „tbl_HISTORY“, „CLIENT_ID =“ u. Me.CLIENT_ID) dann
                   .CLI_HISTORY_subform.SourceObject = „frm_CLI_HISTORY“
                Beenden wenn
           Beenden wenn
        Beenden wenn
     Rechtssache 3
         '…
     Rechtssache 4
         '…
         '…
   Ende auserwählt
 Ende mit
 DoCmd.Hourglass falsch

Antwort : Störung 3078 kann Tabelle nicht finden

dieses versuchen


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:

rivate VortabClients_Change ()

Auf Störung Goto- tabClients_Change_Err
 Schwaches strSQL als Schnur
 
 DoCmd.Hourglass zutreffend
 Application.Echo falsch, „verarbeitend…“
 Mit mir
   Fall tabClients vorwählen
     0 '    erstes TabPage Rechtssache (allgemein)
       'Nichts tun. SourceObject lud.

     Rechtssache 1     'an zweiter Stelle TabPage (akademisch)
        'Lastsquellgegenstände auf akademischem Vorsprung
        Wenn .stuSchedule_subform.SourceObject <> „frm_STU_SCHEDULE“ dann
          .stuSchedule_subform.SourceObject = „frm_STU_SCHEDULE“
        Beenden wenn
        Wenn .academics_subform.SourceObject <> „frm_STU_ACAD“ dann
          .academics_subform.SourceObject = „frm_STU_ACAD“
        Beenden wenn

     Rechtssache 2    'drittes TabPage (Geschichte)
        'Entdeckungklientengeschichte.
        Wenn DLookup („CLIENT_ID“, „tbl_HISTORY“, „CLIENT_ID =“ u. Me.CLIENT_ID) dann
           .CLI_HISTORY_subform.SourceObject = „frm_CLI_HISTORY“
        Sonst
           'Wenn keine Geschichte vorhandener, sofortiger Benutzer ist, Klientengeschichte zu addieren.
           Wenn MsgBox („keine Klientengeschichte vorhanden.  Wurden Sie mögen sie jetzt addieren? “, vbYesNo) = vbYes dann
                'Einen neuen Rekord in in tbl_HISTORY einsetzen
             
               mit currentdb.openrecordset („tbl_History“)
                    .addnew
                    ! Client_ID=Me.Client_ID
                    .update
               Ende mit

               'strSQL = „EINSATZ IN tbl_HISTORY (CLIENT_ID) WERTE (“ u. Me.CLIENT_ID u. ")“
               'CurrentDb.Execute strSQL1, dbFailOnError
                'Entdeckung-neuer Rekord und -anzeige als subform
                Wenn DLookup („CLIENT_ID“, „tbl_HISTORY“, „CLIENT_ID =“ u. Me.CLIENT_ID) dann
                   .CLI_HISTORY_subform.SourceObject = „frm_CLI_HISTORY“
                Beenden wenn
           Beenden wenn
        Beenden wenn
     Rechtssache 3
         '…
     Rechtssache 4
         '…
         '…
   Ende auserwählt
 Ende mit
 DoCmd.Hourglass falsch
Weitere Lösungen  
 
programming4us programming4us