[Resolvido]Caixa de combinação

Bom dia meus amigos do Forum.

Estou com uma duvida. Tentei buscar aqui e não consegui localizar minha duvida.

Tenho uma caixa de combinação e nela coloquei as informações de uma tabela chamada tbl_assunto.

Ao criar o Formulário com essa caixa de combinação, gostaria que aparecesse a primeira opção, pois ela aparece em branco conforme foto em anexo

tbl_assunto (Aberto, Em execução, Resolvido)

Bom dia Galucius,

Por gentileza, envie uma copia do seu bd, somente objetos envolvidos, para analise e solução.

Att,

Alexandre Fim

Segue exemplo.

Olá,

Copie e cole o código abaixo no formulário:

Código:



Private Sub Form_Load()
Dim iStatus As Integer

    iStatus = Nz(DLookup("codiu", "Tabela2", "assunto = 'ABERTO'"), 0)
    Me.combinacao.Value = iStatus

End Sub



É isso.

Att,

Alexandre Fim

Amigo Alexandre,

Desculpe mas expliquei errado.

estou lhe mandando um novo Banco de dados e na realidade seria quando fosse adicionar um novo chamado.

Olá Glaucius,

Fiz o ajuste que pediu e também tomei a liberdade de ajustar alguns procedimentos e também validações de preenchimento de campos e etc.
Abra o código e veja as rotinas desenvolvidas e também seus respectivos comentários sobre sua funcionalidade.

Segue versão.

Espero ter ajudado

Att,

Alexandre Fim

Oi Alexandre.

Essas mudanças que você realizou, eu iria atualizar ainda, mas muito obrigado.

Vou atualizar junto com o meu Banco de dados e lhe dou uma resposta, mas de antemão eu agradeço.

Boa Noite alexandre

Muito obrigado pelas sua ajuda.

Funcionou perfeitamente