Fråga : tillfoga namnger till 2nd combo boxas bildar på

hälsningar
i har databas, när öppnar en bilda kommer up.
i har två combo askar om dig skriver i ett nytt företag som är känt i första

box- som en msgbox kommer upp och låter dig tillfoga tanke för it.

I med den combo understödja boxas - (cboDescriptionen) jag skulle är kompetent

to återanvänder samma kod (att tillfoga non-listed beskrivningar) - men dess inte

working på all- är där ett tydligt resonerar - I-förmiddagen som inte ser att skulle

be en resonera dig inte kan kodifiera den samma wayen- eller förmiddag mig slutet?
thank you Attachments: för >
<-/div> filenamen " för class= för >AddToCombo.mdb " fileSize " > (296 KB) " javascript för href= " för <-/span> <-/div>
för >
<-/div> " klar "

Svar : tillfoga namnger till 2nd combo boxas bildar på

Det första tinget som jag märkte, var det första combo boxas har det samma känt som dess destinerat sätter in -- detta är ett problem, sedan den kan orsaka hänvisar till fel.

Problemet med kodifiera i det 2nd combo boxas (eller delen av den) är att du behöver att tillfoga StoreIDen, såväl som beskrivningen till det nytt bordlägger rekordet.  Är här min boilerplate Tillfoga-till combo boxas kodifierar, som rationaliseras, så du kan kopiera den till ett tillvägagångssätt och ändrar precis några uttrycker.
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:

Privat undercbo________NotInList (strNewData som stränger, intResponse som heltal)
'Uppsättningen begränsar för att lista till ja
'Skapat av Helen Feddema 7-Apr-2010
'Last modified 7-Apr-2010
'Se Tillfoga-till Combo boxas (AA 161) .mdb

På felet GoTo ErrorHandler
   
    Dunkel cbo som Access.ComboBox
    Dunkla dbs som DAO.Database
    Dunkel intMsgDialog som heltal
    Dunkel intResult som heltal
    Dunkel rst som DAO.Recordset
    Dunkelt strEntry som stränger
    Dunkel strFieldName som stränger
    Dunkel strMsg som stränger
    Dunkel strMsg1 som stränger
    Dunkel strMsg2 som stränger
    Dunkelt strTable som stränger
    Dunkel strTitle som stränger
  
    'Det känt av bordlägga, som är den combo asken, ror källa
    strTable = ”______________”,
  
    'Typen av objektet som ska tillfogas till bordlägga
    strEntry = ”___________”,
  
    'Sätta in i referensen bordlägger i vilket det nya tillträdeet lagras
    strFieldName = ”_____________”,
  
    'Tillfoga-till combo boxas
    Fastställd cbo = Me.ActiveControl

    'Visa ett meddelande boxas att fråga huruvida användaren önskar att tillfoga
    'ett nytt tillträde.
    strTitle = strEntry & ”inte i listar”,
    intMsgDialog = vbYesNo + vbExclamation + vbDefaultButton1
    strMsg1 = ”du önskar att tillfoga”,
    strMsg2 = ”som ett nytt” & strEntry & ”tillträde?”,
    strMsg = strMsg1 + strNewData + strMsg2
    intResult = MsgBox (strMsg, intMsgDialog, strTitle)

    Om intResult = vbNo därefter
        'Annulleringen som tillfogar det nya tillträdeet till referensen, bordlägger.
        intResponse = acDataErrContinue
        cbo. Ångra
        GoTo ErrorHandlerExit
    ElseIf intResult = vbYes därefter
        'Tillfoga ett nytt rekord till referensen bordlägger.
        Fastställda dbs = CurrentDb
        Fastställd rst = (strTable) dbs.OpenRecordset,
        rst.AddNew
        rst (strFieldName) = strNewData
        rst. Uppdatering
        rst. Nära
   
        'Fortsätta, utan att visa standardfelmeddelandet.
        intResponse = acDataErrAdded
     Avsluta om
   
ErrorHandlerExit:
   Gå ut suben

ErrorHandler:
   MsgBox ”felnr.: ” & Err.Number-_,
      & ”i” & Me.ActiveControl.Name & ”tillvägagångssätt; ” _,
      & ”beskrivning: ” & Err.Description
   Meritförteckning ErrorHandlerExit

Avsluta suben
Andra lösningar  
 
programming4us programming4us