Frage : Hinzufügen der Einzelteile kombinierten Kästen auf Form

Hallo,
i angebrachter Code und Datenbank Beispiel-
the Code ich pflege, um Einzelteile kombinierten Kästen auf form.
this Datenbank hinzuzufügen - weil ich kann ungenau konstruiert haben lasse mich nicht Einzelteile addieren glaube, an zweiter Stelle, das zwei kombinierte Kästen dort eine Weise ist, ich Code ändern kann, um mich Einzelteile wie der erste kombinierte Kasten-
if hinzufügen zu lassen, Sie einen neuen Namen in ersten kombinierten Kasten eintragen - Sie, sieht, wie/>the an zweiter Stelle zwei kombinierte Kästen geben mir die Störungen-
i morgens hoffend arbeitet-thank you nochmals zu machen

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:



Private VorcboXCompany_NotInList (NewData als Schnur, Antwort als ganze Zahl)
'Die RückstellungsFehlermeldung unterdrücken.

Antwort = acDataErrContinue

'Sofortiger Benutzer, zum zu überprüfen, ob sie einen neuen Wert addieren möchten.

Wenn MsgBox („die Firma von“ u. NewData u. „ist nicht in der Liste. Sie addieren? “, vbYesNo) = vbYes dann

'Warteargument einstellen, um anzuzeigen, dass Daten addiert werden.

'Ein recordset der tblCompany Tabelle öffnen.

DB als Datenbank verdunkeln

rstcboCompany als Recordset verdunkeln

sqltblCompany als Schnur verdunkeln

Einstellen DB = CurrentDb ()

sqltblCompany = „* von tblCompany vorwählen“

rstcboCompany einstellen = db.OpenRecordset (sqltblCompany, dbOpenDynaset)

'Eine neue Firma mit dem Wert hinzufügen, der im variablen NewData gespeichert wird.

rstcboCompany.AddNew

rstcboCompany! [CompanyName] = NewData

rstcboCompany.Update

'Den kombinierten Kasten informieren, dass das gewünschte Einzelteil der Liste hinzugefügt worden ist.

Antwort = acDataErrAdded

rstcboCompany.Close 'nah das recordset

Beenden wenn





Unterseeboot beenden

Attachments:

ex-database.mdb (336 KBS) (Akten-Art Details)

kombinierte Kästen auf form