Vraag : voeg namen aan 2de combodoos op toe vorm

hello, heeft opent
i gegevensbestand wanneer een vorm komt up.
i hebben twee combodozen als u in een nieuwe firmanaam in eerste

box- schrijft een msgbox omhoog komt en u/>I gedachte it.


to hergebruiks zelfde code (om non-listed beschrijvingen) toe te voegen - maar is zijn niet

working bij allen daar een duidelijke reden - zie niet ik die

be een reden u niet de zelfde manier kunt coderen of ben dicht I?
thank you
Attachments:
van
AddToCombo.mdb (296 KB) add aan tweede combo

Antwoord : voeg namen aan 2de combodoos op toe vorm

Het eerste ding dat ik was de eerste combodoos heeft de zelfde naam zoals zijn verbindend gebied heb opgemerkt -- dit is een probleem, aangezien het verwijzingsfouten kan veroorzaken.

Het probleem met de code in de 2de combodoos (of een deel van het) is dat u StoreID evenals de beschrijving aan het nieuwe lijstverslag moet toevoegen.  Hier is mijn boilerplate toe:voegen-aan combovakje code, die zodat wordt gestroomlijnd u kan het kopiëren aan een procedure en enkel een paar woorden wijzigen.
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:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:

Privé Subcbo________NotInList (strNewData als Koord, intResponse als Geheel)
'Plaats ja Grens aan Lijst aan
'Gecre�ërd door Helen Feddema 7-april-2010
'Duur gewijzigde 7-april-2010
'Zie toe:voegen-aan Dozen Combo (aa 161) .mdb

Op Fout GoTo ErrorHandler
   
    Schemerige cbo als Access.ComboBox
    Schemerige dbs als DAO.Database
    Schemerige intMsgDialog als Geheel
    Schemerige intResult als Geheel
    Schemerige rst als DAO.Recordset
    Schemerige strEntry als Koord
    Schemerige strFieldName als Koord
    Schemerige strMsg als Koord
    Schemerige strMsg1 als Koord
    Schemerige strMsg2 als Koord
    Schemerige strTable als Koord
    Schemerige strTitle als Koord
  
    De 'naam van de lijst die de de rijbron van het combovakje is
    strTable = „______________“
  
    Het 'type van punt om aan de lijst toe te voegen
    strEntry = „___________“
  
    Het 'gebied in de raadplegingslijst waarin de nieuwe ingang wordt opgeslagen
    strFieldName = „_____________“
  
    'Toe:voegen-aan combodoos
    Vastgestelde cbo = Me.ActiveControl

    'Vertoning een berichtvakje vraagt dat of de gebruiker wil toevoegen
    een 'nieuwe ingang.
    strTitle = strEntry & „niet in lijst“
    intMsgDialog = vbYesNo + vbExclamation + vbDefaultButton1
    strMsg1 = „wilt u toevoegen“
    strMsg2 = „als nieuw“ & strEntry & „ingang?“
    strMsg = strMsg1 + strNewData + strMsg2
    intResult = MsgBox (strMsg, intMsgDialog, strTitle)

    Als intResult = vbNo toen
        'Annuleer het toevoegen van de nieuwe ingang aan de raadplegingslijst.
        intResponse = acDataErrContinue
        cbo. Maak ongedaan
        GoTo ErrorHandlerExit
    ElseIf intResult = vbYes toen
        'Voeg een nieuw verslag aan de raadplegingslijst toe.
        Plaats dbs = CurrentDb
        Plaats rst = (strTable) dbs.OpenRecordset
        rst.AddNew
        rst (strFieldName) = strNewData
        rst. Update
        rst. Sluit
   
        'Ga zonder standaardfoutenmelding verder te tonen.
        intResponse = acDataErrAdded
     Beëindig als
   
ErrorHandlerExit:
   Sub van de uitgang

ErrorHandler:
   Fout Nr van MsgBox de „: “ & Err.Number _
      & „in“ & Me.ActiveControl.Name & „procedure; “ _
      & „Beschrijving: “ & Err.Description
   Hervat ErrorHandlerExit

Beëindig Sub
Andere oplossingen  
 
programming4us programming4us