Vraag : het toevoegen van punten aan combodozen op vorm

Hello, maakte
i code vast en gegevensbestand voorbeeld-
the code i gebruik om punten aan combovakjes op form.
this- gegevensbestand toe te voegen - omdat ik kan onnauwkeurig geconstrueerd hebben laat me niet punten aan tweede twee combodozen toevoegen ben daar een manier geloof ik code kan veranderen om me te laten punten zoals eerste combo doos-
if toevoegen u een nieuwe naam in eerste combodoos ingaat - u zult zien hoe werk-
the tweede twee combodozen me fout-
i am hopend geeft aangezien het echte gegevensbestand ik kan de tweede twee combovakjes maken zonder het moeten werken lijsten en form
thank you overdoen groot is

           " codeBody " 
         
           
             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:

           
          van Private SubcboXCompany_NotInList (NewData als Koord, Reactie als Geheel)
'Onderdruk de standaardfoutenmelding.

Reactie = acDataErrContinue

'Snelle gebruiker om te verifiëren als zij wensen om een nieuwe waarde toe te voegen.

Als MsgBox (het „Bedrijf van“ & NewData & „zijn niet in lijst. Voeg het toe? “, vbYesNo) = vbYes toen

'Plaats het argument van de Reactie om erop te wijzen dat het gegeven wordt toegevoegd.

'Open een recordset van de tblCompany Lijst.

Verduister db als Gegevensbestand

Verduister rstcboCompany als Recordset

Verduister sqltblCompany als Koord

Plaats db = CurrentDb ()

sqltblCompany = „selecteer * uit tblCompany“

Plaats rstcboCompany = sqltblCompany db.OpenRecordset (, dbOpenDynaset)

'Voeg een nieuw Bedrijf met de waarde toe die in veranderlijke NewData wordt opgeslagen.

rstcboCompany.AddNew

rstcboCompany! [CompanyName] = NewData

rstcboCompany.Update

'Deel de combodoos mee dat het gewenste punt aan de lijst is toegevoegd.

De reactie = acDataErrAdded

rstcboCompany.Close 'sluit recordset

Beëindig als





Beëindig Sub

           
         

Attachments:

van

ex-database.mdb (336 KB) (de Details van het Type van Dossier)

combo dozen op form