Pergunta : adicionar nomes à �a caixa combinado no formulário

olá!, o
i tem a base de dados quando abre um formulário vem up.
i têm duas caixas combinados se você escreve em um nome de companhia novo no primeiro

box- que um msgbox vem acima e o deixa adicionar o pensamento de it.

I com a segunda caixa combinado - (cboDescription) mim seria reusar capaz do

to o mesmo código (para adicionar descrições non-listed) - mas seu não

working em all- está lá uma razão óbvia - mim não está considerando que que o

be uma razão você não pode codificar a mesma maneira ou sou eu fecho-me?
thank you class= do " lastRow do
>Attachments do " nome " do class= do class= " valor " do
>
nome de arquivo " do class= do >AddToCombo.mdb " fileSize " > (296 KB) Javascript " do href= o " dos " attachmentDetails do class= de (tipo de lima detalhes)
>add segundo combo
da " descrição " do class= do
o class= de
do >
class= do

Resposta : adicionar nomes à �a caixa combinado no formulário

A primeira coisa que eu observei era o a primeira caixa combinado tem o mesmo nome que seu campo encadernado -- este é um problema, desde que pode causar erros da referência.

O problema com o código na �a caixa combinado (ou na parte dela) é que você precisa de adicionar o StoreID assim como a descrição ao registro novo da tabela.  Está aqui meu texto constante Adicionar-ao código da caixa combinado, que é aerodinamizado assim que você pode o copiar a um procedimento e apenas modifica algumas palavras.
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 secundário confidencial (strNewData como a corda, intResponse como o inteiro)
'Ajustar o limite para alistar a sim
'Criado por Helen Feddema 7-Apr-2010
'Last modified 7-Apr-2010
'Ver Adicionar-às caixas combinados (AA 161) .mdb

No erro ErrorHandler empreendedores
   
    Cbo não ofuscante como Access.ComboBox
    Dbs não ofuscantes como DAO.Database
    intMsgDialog não ofuscante como o inteiro
    intResult não ofuscante como o inteiro
    Rst não ofuscante como DAO.Recordset
    strEntry não ofuscante como a corda
    strFieldName não ofuscante como a corda
    strMsg não ofuscante como a corda
    strMsg1 não ofuscante como a corda
    strMsg2 não ofuscante como a corda
    strTable não ofuscante como a corda
    strTitle não ofuscante como a corda
  
    'O nome da tabela que é a fonte da fileira de caixa combinado
    strTable = “______________”
  
    'O tipo de artigo a adicionar à tabela
    strEntry = “___________”
  
    'O campo na tabela de consulta em que a entrada nova é armazenada
    strFieldName = “_____________”
  
    'Adicionar-à caixa combinado
    Ajustar o cbo = o Me.ActiveControl

    'Indicar uma caixa de mensagem que pergunta se o usuário quer adicionar
    'uma entrada nova.
    strTitle = strEntry & “não na lista”
    intMsgDialog = vbYesNo + vbExclamation + vbDefaultButton1
    strMsg1 = “você quer adicionar”
    strMsg2 = “como um novo” & strEntry & a “entrada?”
    strMsg = strMsg1 + strNewData + strMsg2
    intResult = MsgBox (strMsg, intMsgDialog, strTitle)

    Se intResult = vbNo então
        'Cancelar a adição da entrada nova à tabela de consulta.
        intResponse = acDataErrContinue
        cbo. Undo
        ErrorHandlerExit empreendedores
    intResult = vbYes de ElseIf então
        'Adicionar um novo recorda à tabela de consulta.
        Ajustar dbs = CurrentDb
        Ajustar o rst = o dbs.OpenRecordset (strTable)
        rst.AddNew
        rst (strFieldName) = strNewData
        rst. Atualização
        rst. Fim
   
        'Continuar sem indicar a mensagem de erro do defeito.
        o intResponse = acDataErrAdded
     Terminar se
   
ErrorHandlerExit:
   Retirar o submarino

ErrorHandler:
   No. erro de MsgBox do “: ” & _ de Err.Number
      & “em” & Me.ActiveControl.Name & “procedimento; ” _
      & “descrição: ” & Err.Description
   Resumo ErrorHandlerExit

Submarino da extremidade
Outras soluções  
 
programming4us programming4us