Frage : Namen 2. kombiniertem Kasten auf Form hinzufügen

hallo, haben
i Datenbank, wenn eine Form aufkommt.
i haben zwei kombinierte Kästen öffnet, wenn Sie in einen neuen Firmennamen im ersten

box- schreiben, das ein msgbox Sie it.

I Gedanken mit dem zweiten kombinierten Kasten hinzufügen aufkommt und lässt - (cboDescription) ich sein fähige

to Wiederverwendung der gleiche Code (nicht aufgeführte Beschreibungen addieren) - aber sein nicht

working an all- ist dort ein offensichtlicher Grund - ich sehen nicht, dass der

be ein Grund wurde, Sie die gleiche Weise nicht kodieren können oder, bin ich schließe?
thank you
Attachments:
AddToCombo.mdb (296 KBs) (Akten-Art Details)
add zweites combo

Antwort : Namen 2. kombiniertem Kasten auf Form hinzufügen

Die erste Sache, die ich beachtete, war der erste kombinierte Kasten hat den gleichen Namen wie sein Kennungsfeld -- dieses ist ein Problem, da es Bezugsstörungen verursachen kann.

Das Problem mit dem Code im 2. kombinierten Kasten (oder im Teil von ihm) ist, dass Sie das StoreID sowie die Beschreibung der neuen Tabellenaufzeichnung hinzufügen müssen.  Ist hier mein Kesselblech Hinzufügen-zum Code des kombinierten Kastens, der stromlinienförmig ist, also Sie es zu einem Verfahren kopieren können und gerade einige Wörter ändern.
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:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:

Privates Vorcbo________NotInList (strNewData als Schnur, intResponse als ganze Zahl)
'Begrenzung festsetzen, um zu ja zu verzeichnen
'Verursacht durch Helen Feddema 7-Apr-2010
'Last modified 7-Apr-2010
'Hinzufügen-Zu den kombinierten Kästen (AA 161) .mdb sehen

Auf Störung Goto- ErrorHandler
   
    Schwaches cbo als Access.ComboBox
    Schwache dbs als DAO.Database
    Schwaches intMsgDialog als ganze Zahl
    Schwaches intResult als ganze Zahl
    Schwaches rst als DAO.Recordset
    Schwaches strEntry als Schnur
    Schwaches strFieldName als Schnur
    Schwaches strMsg als Schnur
    Schwaches strMsg1 als Schnur
    Schwaches strMsg2 als Schnur
    Schwaches strTable als Schnur
    Schwaches strTitle als Schnur
  
    'Der Name der Tabelle, die die Reihenquelle des kombinierten Kastens ist
    strTable = „______________“
  
    'Die Art des Einzelteils, zum dem Tabelle hinzuzufügen
    strEntry = „___________“
  
    'Das Feld in der Nachschlagentabelle, in der die neue Eintragung gespeichert
    strFieldName = „_____________“
  
    'Hinzufügen-zum kombinierten Kasten
    Cbo = Me.ActiveControl einstellen

    'Einen Mitteilungkasten anzeigen, der fragt, ob der Benutzer hinzufügen möchte
    'eine neue Eintragung.
    strTitle = strEntry u. „nicht in der Liste“
    intMsgDialog = vbYesNo + vbExclamation + vbDefaultButton1
    strMsg1 = „möchten Sie hinzufügen“
    strMsg2 = „als ein neues“ u. ein strEntry u. „Eintragung?“
    strMsg = strMsg1 + strNewData + strMsg2
    intResult = MsgBox (strMsg, intMsgDialog, strTitle)

    Wenn intResult = vbNo dann
        'Das Hinzufügen der neuen Eintragung dem Nachschlagentabelle annullieren.
        intResponse = acDataErrContinue
        cbo. Annulieren
        Goto- ErrorHandlerExit
    ElseIf intResult = vbYes dann
        'Einen neuen Rekord dem Nachschlagentabelle hinzufügen.
        Dbs = CurrentDb einstellen
        Das rst = dbs.OpenRecordset (strTable) einstellen
        rst.AddNew
        rst (strFieldName) = strNewData
        rst. Update
        rst. Abschluss
   
        'Fortfahren, ohne RückstellungsFehlermeldung anzuzeigen.
        intResponse = acDataErrAdded
     Beenden wenn
   
ErrorHandlerExit:
   Unterseeboot herausnehmen

ErrorHandler:
   MsgBox „Störungs-Nr.: “ U. Err.Number _
      u. „in“ u. Me.ActiveControl.Name u. „Verfahren; “ _
      u. „Beschreibung: “ U. Err.Description
   Zusammenfassung ErrorHandlerExit

Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us