Questione : L'errore 3078 non può trovare la tabella

Quando faccio funzionare il codice qui sotto io ottenere un errore 3078 che non può trovare la tabella o la domanda.  Sta accadendo a questa linea: lo strSQL del
= “INSERTO in tbl_HISTORY (CLIENT_ID) STIMA (Me.CLIENT_ID) “il
CurrentDb.Execute strSQL1, il dbFailOnError

If che la risposta al msgbox è sì, che lo voglio generare un nuovo record nel tbl_HISTORY ed allora visualizzare CLI_HISTORY_subform using quel nuovo record.  Può chiunque dirmi perché sto ottenendo questo errore? class= > " libero " 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:
strSQL notpretty del >Dim " del class= " " di codeSnippet960757 del id= del 
 “frm_STU_SCHEDULE„ di .stuSchedule_subform.SourceObject allora
          .stuSchedule_subform.SourceObject = “frm_STU_SCHEDULE„
        Concluder se
        Se <> “frm_STU_ACAD„ di .academics_subform.SourceObject allora
          .academics_subform.SourceObject = “frm_STU_ACAD„
        Concluder se

     Caso 2 'terzo TabPage (storia)
        'Storia del cliente del ritrovamento.
        Se DLookup (“CLIENT_ID„, “tbl_HISTORY„, “CLIENT_ID =„ & Me.CLIENT_ID) allora
           .CLI_HISTORY_subform.SourceObject = “frm_CLI_HISTORY„
        Altrimenti
           'Se non c'è nessuna storia utente disponibile e rapido aggiungere la storia del cliente.
           Se MsgBox (“nessuna storia del cliente disponibile.  gradite ora aggiungerli? „, vbYesNo) = vbYes allora
                'Inserire un nuovo record in tbl_CLI_HISTORY
                strSQL = “INSERTO NEI VALORI del tbl_HISTORY (CLIENT_ID) (Me.CLIENT_ID)„
                CurrentDb.Execute strSQL1, dbFailOnError
                'Nuovo record ed esposizione del ritrovamento come subform
                Se DLookup (“CLIENT_ID„, “tbl_HISTORY„, “CLIENT_ID =„ & Me.CLIENT_ID) allora
                   .CLI_HISTORY_subform.SourceObject = “frm_CLI_HISTORY„
                Concluder se
           Concluder se
        Concluder se
     Caso 3
         '…
     Caso 4
         '…
         '…
   Estremità prescelta
 Estremità con
 DoCmd.Hourglass falso
class= del

Risposta : L'errore 3078 non può trovare la tabella

provare questo


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:

tabClients_Change secondario del rivate ()

Sul tabClients_Change_Err di avanzamento di errore
 strSQL fioco come stringa
 
 DoCmd.Hourglass allineare
 Application.Echo falsi, “procedando…„
 Con me
   Selezionare i tabClients di caso
     Caso 0    'primi TabPage (generali)
       'Non fare niente. SourceObject ha caricato.

     Caso 1     'in secondo luogo TabPage (Academic)
        'Oggetti di fonte del carico sulla linguetta accademica
        Se .stuSchedule_subform.SourceObject <> “frm_STU_SCHEDULE„ allora
          .stuSchedule_subform.SourceObject = “frm_STU_SCHEDULE„
        Concluder se
        Se .academics_subform.SourceObject <> “frm_STU_ACAD„ allora
          .academics_subform.SourceObject = “frm_STU_ACAD„
        Concluder se

     Caso 2    'terzo TabPage (storia)
        'Storia del cliente del ritrovamento.
        Se DLookup (“CLIENT_ID„, “tbl_HISTORY„, “CLIENT_ID =„ & Me.CLIENT_ID) allora
           .CLI_HISTORY_subform.SourceObject = “frm_CLI_HISTORY„
        Altrimenti
           'Se non c'è nessuna storia utente disponibile e rapido aggiungere la storia del cliente.
           Se MsgBox (“nessuna storia del cliente disponibile.  gradite ora aggiungerli? „, vbYesNo) = vbYes allora
                'Inserire un nuovo record in tbl_HISTORY
             
               con currentdb.openrecordset (“tbl_History„)
                    .addnew
                    ! Client_ID=Me.Client_ID
                    .update
               estremità con

               'strSQL = “INSERTO NEI VALORI del tbl_HISTORY (CLIENT_ID) (" & in Me.CLIENT_ID & ")„
               'CurrentDb.Execute strSQL1, dbFailOnError
                'Nuovo record ed esposizione del ritrovamento come subform
                Se DLookup (“CLIENT_ID„, “tbl_HISTORY„, “CLIENT_ID =„ & Me.CLIENT_ID) allora
                   .CLI_HISTORY_subform.SourceObject = “frm_CLI_HISTORY„
                Concluder se
           Concluder se
        Concluder se
     Caso 3
         '…
     Caso 4
         '…
         '…
   Estremità prescelta
 Estremità con
 DoCmd.Hourglass falso
Altre soluzioni  
 
programming4us programming4us