Questione : aggiungere i nomi alla seconda casella combinata sulla forma

ciao, il
i ha base di dati quando apre una forma viene up.
i hanno due caselle combinate se scrivete in un nuovo nome di azienda nel primo

box- un msgbox viene in su e lo lasciano aggiungere il pensiero di it.

I con la seconda casella combinata - (cboDescription) io sarebbe riutilizzazione in grado del

to lo stesso codice (per aggiungere le descrizioni non-listed) - ma il relativo non

working a all- è là un ovvio motivo - io non sto vedendo che che

be un motivo non potete codificare lo stesso senso o sono mi chiudo?
thank you class= " lastRow del
>Attachments " di nome " del class= del class= " valore " del
il

il nome di schedario " del class= di >AddToCombo.mdb " fileSize " > (296 Kb) il Javascript " del href= " " dei attachmentDetails del class= di (tipo di lima particolari)
>add secondo combo
" di descrizione " del class= del
il class= di
del >
class= del

Risposta : aggiungere i nomi alla seconda casella combinata sulla forma

La prima cosa che ho notato era la prima casella combinata ha lo stesso nome del relativo campo rilegato -- ciò è un problema, poiché può causare gli errori di riferimento.

Il problema con il codice nella seconda casella combinata (o nella parte di esso) è che dovete aggiungere lo StoreID così come la descrizione alla nuova annotazione della tabella.  Qui è il mio testo costante Aggiungere-al codice della casella combinata, che è aerodinamico in modo da potete copiarli ad una procedura ed appena modificate alcune parole.
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:

cbo________NotInList secondario riservato (strNewData come stringa, intResponse come numero intero)
'Fissare il limite per elencare a sì
'Generato da Helen Feddema 7-Apr-2010
'Last modified 7-Apr-2010
'Vedere Aggiungere-alle caselle combinate (aa 161) .mdb

Sull'errore ErrorHandler di avanzamento
   
    Cbo fioco come Access.ComboBox
    Dbs fiochi come DAO.Database
    intMsgDialog fioco come numero intero
    intResult fioco come numero intero
    Rst fioco come DAO.Recordset
    strEntry fioco come stringa
    strFieldName fioco come stringa
    strMsg fioco come stringa
    strMsg1 fioco come stringa
    strMsg2 fioco come stringa
    strTable fioco come stringa
    strTitle fioco come stringa
  
    'Il nome della tabella che è la fonte di fila della casella combinata
    strTable = “______________„
  
    'Il tipo di articolo da aggiungere alla tabella
    strEntry = “___________„
  
    'Il campo nella tabella di occhiata in cui la nuova entrata è immagazzinata
    strFieldName = “_____________„
  
    'Aggiungere-alla casella combinata
    Regolare il cbo = Me.ActiveControl

    'Visualizzare una finestra di messaggio che chiede se l'utente vuole aggiungere
    'una nuova entrata.
    strTitle = strEntry & “non nella lista„
    intMsgDialog = vbYesNo + vbExclamation + vbDefaultButton1
    strMsg1 = “volete aggiungere„
    strMsg2 = “come un nuovo„ & strEntry & “entrata?„
    strMsg = strMsg1 + strNewData + strMsg2
    intResult = MsgBox (strMsg, intMsgDialog, strTitle)

    Se intResult = vbNo allora
        'Annullare l'aggiunta dell'entrata nuova alla tabella di occhiata.
        intResponse = acDataErrContinue
        cbo. Disfare
        ErrorHandlerExit di avanzamento
    intResult = vbYes di ElseIf allora
        'Aggiungere un nuovo record alla tabella di occhiata.
        Regolare i dbs = CurrentDb
        Regolare il rst = dbs.OpenRecordset (strTable)
        rst.AddNew
        rst (strFieldName) = strNewData
        rst. Aggiornamento
        rst. Fine
   
        'Continuare senza visualizzare il messaggio di errore di difetto.
        il intResponse = acDataErrAdded
     Concluder se
   
ErrorHandlerExit:
   Uscire il sommergibile

ErrorHandler:
   No. di errore di MsgBox “: „ & _ di Err.Number
      & “in„ & Me.ActiveControl.Name & “procedura; „ _
      & “descrizione: „ & Err.Description
   Riassunto ErrorHandlerExit

Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us