Cuestión : El error 3078 no puede encontrar la tabla

Cuando funciono con el código abajo yo conseguir un error 3078 que no pueda encontrar la tabla o la pregunta.  Está sucediendo en esta línea: el strSQL del
= “PARTE MOVIBLE EN el tbl_HISTORY (CLIENT_ID) VALORA (Me.CLIENT_ID) “el
CurrentDb.Execute strSQL1, dbFailOnError

If que la respuesta al msgbox está sí, que quisiera que cree un nuevo récord en tbl_HISTORY y después que exhibiera CLI_HISTORY_subform usar ese nuevo récord.  ¿Puede cualquier persona decirme porqué estoy consiguiendo este error? class= > " claro " 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= " de " codeSnippet960757 del id= del 
 “frm_STU_SCHEDULE” de .stuSchedule_subform.SourceObject entonces
          .stuSchedule_subform.SourceObject = “frm_STU_SCHEDULE”
        Terminar si
        Si <> “frm_STU_ACAD” de .academics_subform.SourceObject entonces
          .academics_subform.SourceObject = “frm_STU_ACAD”
        Terminar si

     Caso 2 'tercer TabPage (historia)
        'Historia del cliente del hallazgo.
        Si DLookup (“CLIENT_ID”, “tbl_HISTORY”, “CLIENT_ID =” y Me.CLIENT_ID) entonces
           .CLI_HISTORY_subform.SourceObject = “frm_CLI_HISTORY”
        
           'Si no hay historia usuario disponible, pronto agregar historia del cliente.
           Si MsgBox (“ninguna historia del cliente disponible.  ¿Usted tiene gusto ahora de agregarla? ”, vbYesNo) = vbYes entonces
                'Insertar un nuevo récord en en tbl_CLI_HISTORY
                strSQL = “PARTE MOVIBLE EN LOS VALORES del tbl_HISTORY (CLIENT_ID) (Me.CLIENT_ID)”
                CurrentDb.Execute strSQL1, dbFailOnError
                'Nuevo récord y exhibición del hallazgo como subform
                Si DLookup (“CLIENT_ID”, “tbl_HISTORY”, “CLIENT_ID =” y Me.CLIENT_ID) entonces
                   .CLI_HISTORY_subform.SourceObject = “frm_CLI_HISTORY”
                Terminar si
           Terminar si
        Terminar si
     Caso 3
         '…
     Caso 4
         '…
         '…
   Extremo selecto
 Extremo con
 DoCmd.Hourglass falso
class= del

Respuesta : El error 3078 no puede encontrar la tabla

intentar esto


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 secundario del rivate ()

En tabClients_Change_Err indicado del error
 strSQL dévil como secuencia
 
 DoCmd.Hourglass verdad
 Application.Echo falsos, “procesando…”
 Conmigo
   Seleccionar los tabClients del caso
     Encajonar 0    'primeros TabPage (generales)
       'No hacer nada. SourceObject cargó.

     Caso 1     'en segundo lugar TabPage (académico)
        'Objetos de la fuente de la carga en lengüeta académica
        Si .stuSchedule_subform.SourceObject <> “frm_STU_SCHEDULE” entonces
          .stuSchedule_subform.SourceObject = “frm_STU_SCHEDULE”
        Terminar si
        Si .academics_subform.SourceObject <> “frm_STU_ACAD” entonces
          .academics_subform.SourceObject = “frm_STU_ACAD”
        Terminar si

     Caso 2    'tercer TabPage (historia)
        'Historia del cliente del hallazgo.
        Si DLookup (“CLIENT_ID”, “tbl_HISTORY”, “CLIENT_ID =” y Me.CLIENT_ID) entonces
           .CLI_HISTORY_subform.SourceObject = “frm_CLI_HISTORY”
        
           'Si no hay historia usuario disponible, pronto agregar historia del cliente.
           Si MsgBox (“ninguna historia del cliente disponible.  ¿Usted tiene gusto ahora de agregarla? ”, vbYesNo) = vbYes entonces
                'Insertar un nuevo récord en en tbl_HISTORY
             
               con currentdb.openrecordset (“tbl_History”)
                    .addnew
                    ¡! Client_ID=Me.Client_ID
                    .update
               extremo con

               'strSQL = “PARTE MOVIBLE EN VALORES del tbl_HISTORY (CLIENT_ID) (” y Me.CLIENT_ID y ")”
               'CurrentDb.Execute strSQL1, dbFailOnError
                'Nuevo récord y exhibición del hallazgo como subform
                Si DLookup (“CLIENT_ID”, “tbl_HISTORY”, “CLIENT_ID =” y Me.CLIENT_ID) entonces
                   .CLI_HISTORY_subform.SourceObject = “frm_CLI_HISTORY”
                Terminar si
           Terminar si
        Terminar si
     Caso 3
         '…
     Caso 4
         '…
         '…
   Extremo selecto
 Extremo con
 DoCmd.Hourglass falso
Otras soluciones  
 
programming4us programming4us