Pytanie : dodawać imię forma combo pudełko na forma

cześć,
i mieć database- gdy otwierać forma komes up.
i mieć dwa combo boxes- jeżeli ty pisać w nowy firma imię w pierwszy

box- msgbox komes pierwszy i pozwalać ty it.

I myśl z the drugi combo pudełko - (cboDescription) I być sprawnie

to reuse ten sam code- (ten sam opis) - Ale swój nie

working przy all- być tam  oczywisty powód - i widzieć który

be powód ty móc the ten sam way- lub być I zamykać?
thank you
Attachments:
AddToCombo.mdb (296 KB) (Kartoteka Typ Szczegół)
add drugi combo

Odpowiedź : dodawać imię forma combo pudełko na forma

The pierwszy rzecz I zauważać być the the pierwszy combo pudełko mieć the ten sam imię swój obszyty pole -- błąd być problem, ponieważ ono móc odniesienie błąd.

The problem z the kod w the rejestr combo pudełko (lub część ono) być że ty potrzebować the StoreID as well as the opis the nowy stół rejestr.  Tutaj być mój boilerplate Dodawać-combo pudełko kod, che usprawniać więc ty móc ono procedura i właśnie modyfikować właśnie słowo.
(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:

Intymny Okręt podwodny cbo________NotInList (strNewData Jako Sznurek, intResponse Jako Integer)
'Set Ograniczenie Lista Tak
'Tworzyć Helen Feddema 7-Apr-2010
'Ostatni zmodyfikowany 7-Apr-2010
'Widzieć Dodawać-Combo Pudełko (AA 161) .mdb

Na Błąd Rozpoczynający ErrorHandler
   
    Ciemnawy cbo Jako Access.ComboBox
    Ciemnawy dbs Jako DAO.Database
    Ciemnawy intMsgDialog Jako Integer
    Ciemnawy intResult Jako Integer
    Ciemnawy rst Jako DAO.Recordset
    Ćmić strEntry Sznurek
    Ćmić strFieldName Sznurek
    Ćmić strMsg Sznurek
    Ćmić strMsg1 Sznurek
    Ćmić strMsg2 Sznurek
    Ćmić strTable Sznurek
    Ćmić strTitle Sznurek
  
    'The imię the stół który być the combo pudełko rząd źródło
    strTable = "______________"
  
    'The typ rzecz the stół
    strEntry = "___________"
  
    'The pole w the lookup stół w che the nowy wejście przechować
    strFieldName = "_____________"
  
    'The dodawać-combo pudełko
    Ustalony cbo = Me.ActiveControl

    'Wystawiać wiadomość pudełko czy the użytkownik chcieć
    'nowy wejście.
    strTitle = strEntry & "nie w lista"
    intMsgDialog = vbYesNo + vbExclamation + vbDefaultButton1
    strMsg1 = "Ty chcieć"
    strMsg2 = "jako nowy" & strEntry & "wejście?"
    strMsg = strMsg1 + strNewData + strMsg2
    intResult = MsgBox (strMsg, intMsgDialog, strTitle)

    Jeżeli intResult = vbNo Wtedy
        'Odwoływać the nowy wejście the lookup stół.
        intResponse = acDataErrContinue
        cbo. Rozwiązywać
        Rozpoczynający ErrorHandlerExit
    ElseIf intResult = vbYes Wtedy
        'Dodawać nowy rejestr the lookup stół.
        Ustawiać dbs = CurrentDb
        Ustawiać rst = dbs.OpenRecordset (strTable)
        rst.AddNew
        rst (strFieldName) = strNewData
        rst. Aktualizacja
        rst. Zakończenie
   
        'Kontynuować bez brak błąd wiadomość.
        intResponse = acDataErrAdded
     Kończyć Jeżeli
   
ErrorHandlerExit:
   Wyjście Okręt podwodny

ErrorHandler:
   MsgBox "Błąd Nie: " & Err.Number _
      & "w" & Me.ActiveControl.Name & "procedura; " _
      & "Opis: " & Err.Description
   Życiorys ErrorHandlerExit

Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us