Question : L'erreur 3078 ne peut pas trouver la table

Quand je cours le code ci-dessous j'obtenir une erreur 3078 qu'elle ne peut pas trouver la table ou la question.  Elle se produit à cette ligne : le strSQL du
= « INSERTION DANS le tbl_HISTORY (CLIENT_ID) ÉVALUE (Me.CLIENT_ID) « le
CurrentDb.Execute strSQL1, le dbFailOnError

If que la réponse au msgbox est oui, que je veux qu'il crée un nouveau record dans le tbl_HISTORY et puis montre CLI_HISTORY_subform using ce nouveau record.  Est-ce que n'importe qui peut m'indiquer pourquoi j'obtiens cette erreur ? 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 :
strSQL " de " codeSnippet960757 d'id= " de 
Dim de class= comme corde
 
 DoCmd.Hourglass vrai
 Application.Echo faux, « traitant… »
 Avec moi
   Choisir les tabClients de cas
     Affaire les 0 'premiers TabPage (généraux)
       'Ne faire rien. SourceObject a chargé.

     Affaire 1 'en second lieu TabPage (universitaire)
        'Objets de source de charge sur l'étiquette scolaire
        Si <> « frm_STU_SCHEDULE » de .stuSchedule_subform.SourceObject puis
          .stuSchedule_subform.SourceObject = « frm_STU_SCHEDULE »
        Finir si
        Si <> « frm_STU_ACAD » de .academics_subform.SourceObject puis
          .academics_subform.SourceObject = « frm_STU_ACAD »
        Finir si

     Affaire 2 'troisième TabPage (histoire)
        'Histoire de client de trouvaille.
        Si DLookup (« CLIENT_ID », « tbl_HISTORY », « CLIENT_ID = » et Me.CLIENT_ID) puis
           .CLI_HISTORY_subform.SourceObject = « frm_CLI_HISTORY »
        Autrement
           'Si aucune histoire n'est utilisateur disponible et prompt pour ajouter l'histoire de client.
           Si MsgBox (« aucune histoire de client disponible.  aimez-vous l'ajouter maintenant ?  », vbYesNo) = vbYes alors
                'Insérer un nouveau record dans dans le tbl_CLI_HISTORY
                strSQL = « INSERTION DANS LES VALEURS du tbl_HISTORY (CLIENT_ID) (Me.CLIENT_ID) »
                CurrentDb.Execute strSQL1, dbFailOnError
                'Nouveau record et affichage de trouvaille comme subform
                Si DLookup (« CLIENT_ID », « tbl_HISTORY », « CLIENT_ID = » et Me.CLIENT_ID) puis
                   .CLI_HISTORY_subform.SourceObject = « frm_CLI_HISTORY »
                Finir si
           Finir si
        Finir si
     Affaire 3
         '…
     Affaire 4
         '…
         '…
   Extrémité choisie
 Extrémité avec
 DoCmd.Hourglass faux
class= de

Réponse : L'erreur 3078 ne peut pas trouver la table

essayer ceci


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 secondaire de rivate ()

Sur le tabClients_Change_Err GoTo d'erreur
 Faible strSQL comme corde
 
 DoCmd.Hourglass vrai
 Application.Echo faux, « traitant… »
 Avec moi
   Choisir les tabClients de cas
     Affaire les 0    'premiers TabPage (généraux)
       'Ne faire rien. SourceObject a chargé.

     Affaire 1     'en second lieu TabPage (universitaire)
        'Objets de source de charge sur l'étiquette scolaire
        Si .stuSchedule_subform.SourceObject <> « frm_STU_SCHEDULE » puis
          .stuSchedule_subform.SourceObject = « frm_STU_SCHEDULE »
        Finir si
        Si .academics_subform.SourceObject <> « frm_STU_ACAD » puis
          .academics_subform.SourceObject = « frm_STU_ACAD »
        Finir si

     Affaire 2    'troisième TabPage (histoire)
        'Histoire de client de trouvaille.
        Si DLookup (« CLIENT_ID », « tbl_HISTORY », « CLIENT_ID = » et Me.CLIENT_ID) puis
           .CLI_HISTORY_subform.SourceObject = « frm_CLI_HISTORY »
        Autrement
           'Si aucune histoire n'est utilisateur disponible et prompt pour ajouter l'histoire de client.
           Si MsgBox (« aucune histoire de client disponible.  aimez-vous l'ajouter maintenant ?  », vbYesNo) = vbYes alors
                'Insérer un nouveau record dans dans le tbl_HISTORY
             
               avec currentdb.openrecordset (« tbl_History »)
                    .addnew
                    ! Client_ID=Me.Client_ID
                    .update
               extrémité avec

               'strSQL = « INSERTION DANS DES VALEURS du tbl_HISTORY (CLIENT_ID) (" et Me.CLIENT_ID et ") »
               'CurrentDb.Execute strSQL1, dbFailOnError
                'Nouveau record et affichage de trouvaille comme subform
                Si DLookup (« CLIENT_ID », « tbl_HISTORY », « CLIENT_ID = » et Me.CLIENT_ID) puis
                   .CLI_HISTORY_subform.SourceObject = « frm_CLI_HISTORY »
                Finir si
           Finir si
        Finir si
     Affaire 3
         '…
     Affaire 4
         '…
         '…
   Extrémité choisie
 Extrémité avec
 DoCmd.Hourglass faux
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