[Resolvido]Duvida com caixa de combinação

Tenho um formulário nome pedidos com uma caixa de combinação nome nomeciente que me vai buscar os dados á tabela clientes

gostava de saber como fasso no vba para ao escrever o nome do cliente ao perder o focu caso o cliente não exista me avisasse que não existe e me abra o formulário de registo nome clientes.

queria ainda que a fazer duplo clicke na caixa de combinação nomecliente caso esteja preenchida me abra o formulario clientes filtrada para o registo inserido nesse campo.

Obrigado

UP

UP

Toyebon, tudo bom!!

Baixe o aplicativo Maestro do Mestre Avelino. Após instalar, clique nas guias ABRIR e em FILTROS.
Eu não sei te explicar como fazer o que precisas, mas consegui resolver o mesmo problema adaptando do Maestro.

Obrigado pela ajuda, já tinha visto o exemplo do avelino mas não é isso que quero.

Tenho um formulário associado á tabela pedidos onde crio o pedido e nesse formulário está a caixa de combinação nome "nomeciente" que me vai buscar os dados á tabela clientes.

Quando vou a essa caixa de combinação tenho todos os clientes registados e escolho um o qual me preenche todos os campos respeitantes ao cliente.

O problema é quando o cliente não está registado e tenho de o registar, ai tenho de abrir o formulário de registo "nome clientes" onde cadastro todos os clientes e inserir o novo.

Queria era que ao perder o foco da caixa de combinação nome "nomeciente", caso o cliente não estaja registado me abra o formulário de registo "nome clientes" para o poder cadastrar e caso exista e eu queira alterar algum dado do mesmo, ao fazer duplo click na caixa de combinação "nomeciente" me abrisse o o formulário de registo "nome clientes" filtrado ao nome do cliente atual que tenho inserido na caixa de combinação.

Olá.

Vc já usou a propriedade da combo que lhe permite editar os itens da lista a partir da própria combo?
Vá em Priedades, guia Dados, linha Formulário de edição de itens da lista.
Nessa linha vc escolhe o formulário e pode abrí-lo na opção de novo registro, mas essa opção (novo registro) vc define no evento ao abrir próprio formulário de edição da lista.
Qdo vc clicar na combo, no final da lista de clientes irá aparecer um pequeno menu para vc abrir o formulário.


Outra opção seria vc criar uma macro no evento ao perder o foco da combo (desde que vc não tenha selecionado nenhum cliente, já que ele não está cadastrado) e como ação, definir AbrirFormulário. Dentro dessa macro vc define filtros, codição WERE entre outros. Talvez aí vc possa realizar as tarefas que deseja, inclusive criando uma macro para editar o já existente com os dois cliques.

Até aqui consigo sugerir pra ti, mas não tenho o conhecimento para saber se pode funcionar ou não.

Não me entenda como cobrança, mas por favor, se puder me ajudar com uma dúvida, dá uma olhada no post sobre Dúvida sobre com usar laço de repetição.

UP

up

Ola amigo seria bom postar teu bd,sera mais facil ajuda-lo.

Cumprimentos.

UP

UP

UP

Olá amigos, tudo beleza !?

toyebom, está usando chave primária do cliente para preencher a chave estrangeira na tabela destino ?

Podemos verificar no evento antes de atualizar usando um DCount, se tem na tabela cliente não faz nada. Se não tem sugere a abertura do formulário para novo cadastro.

Para abrir no duplo clique usaremos o evento correspondente normalmente.

Aguardo saber o tipo de dado.

Dilson

Segue a bd

Boa tarde amigo, coloquei um codigo que uso em sua cbo caso digite algun cliente que não esteja

cadastrado abre o cadastro. To saindo pra escola por esta razão não acertei a fonte do registro

verifica isso ok.

Boa noite Fernando Bueno na minha bd não funciona faz o mesmo que fazia antes do teu código

UP

E aí toyebom, essa dúvida ainda persiste ?

Diga o nome do form e controles envolvidos?, isto pois vi o form e tem muita coisa lá.

Ola dilson

o problema continua

Form: Auto de Inquirição Testemunha
Campo: Texto19

Escrevo um nome se existir na tabela Pessoas, associa se não existe avisa e pergunta se quero criar, e caso sim abre o form Pessoas em registo novo e se existir e fazer duplo click no texto19 do form Auto de Inquirição Testemunha abre o form Pessoas com o registo correspondente para poder fazer alguma alteração.

UP

UP

Form: Auto de Inquirição de Testemunha
Campo: Texto19

Na (Aba Dados) propriedade Limitar a uma lista selecione Sim

No evento após atualizar:

If (Not IsNull(DLookup("Nome", "Pessoas", _
        "Nome ='" & Me!Texto19 & "'"))) Then
With Texto19
     Me.Texto21 = .Column(2)
     Me.CaixaCombinação238 = .Column(3)
     Me.CaixaCombinação252 = .Column(4)
     Me.Texto25 = .Column(5)
     Me.Rótulo38 = .Column(6)
     Me.Texto37 = .Column(7)
     Me.[Caixa de combinação160] = .Column(
     Me.Texto31 = .Column(9)
     Me.Rótulo34 = .Column(10)
     Me.Texto33 = .Column(11)
     Me.Texto100 = .Column(12)
     Me.Rótulo20 = .Column(13)
     Me.Texto48 = .Column(14)
     Me.Texto50 = .Column(15)
     Me.Rótulo99 = .Column(16)
     Me.Texto98 = .Column(17)
     Me.Rótulo77 = .Column(18)
     Me.Texto76 = .Column(19)
     Me.CaixaCombinação242 = .Column(20)
     Me.CaixaCombinação243 = .Column(21)
     Me.Rótulo85 = .Column(22)
     Me.[Caixa de combinação84] = .Column(23)
     Me.Rótulo87 = .Column(24)
     Me.[Caixa de combinação86] = .Column(25)
     Me.Rótulo97 = .Column(26)
     Me.[Caixa de combinação96] = .Column(27)
     Me.Rótulo40 = .Column(28)
     Me.Texto39 = .Column(29)
     Me.Rótulo42 = .Column(30)
     Me.Texto41 = .Column(31)
     Me.Rótulo44 = .Column(32)
     Me.[Caixa de combinação43] = .Column(33)
     Me.Rótulo53 = .Column(34)
     Me.Texto52 = .Column(35)
     Me.Rótulo55 = .Column(36)
     Me.Texto54 = .Column(37)
     Me.Rótulo57 = .Column(38)
     Me.Texto56 = .Column(39)
     Me.CaixaCombinação194 = .Column(40)
     Me.Texto193 = .Column(41)
     Me.CaixaCombinação196 = .Column(42)
     Me.Texto195 = .Column(43)
     Me.CaixaCombinação247 = .Column(44)
     Me.Rótulo59 = .Column(45)
     Me.[Caixa de combinação58] = .Column(46)
     Me.Rótulo61 = .Column(47)
     Me.[Caixa de combinação60] = .Column(48)
     Me.CaixaCombinação248 = .Column(49)
     Me.Texto62 = .Column(50)
     Me.Rótulo65 = .Column(51)
     Me.Texto64 = .Column(52)
     Me.CaixaCombinação250 = .Column(53)
     Me.Texto239 = .Column(54)
     Me.Rótulo95 = .Column(55)
     Me.Texto94 = .Column(56)
     Me.Rótulo108 = .Column(57)
     Me.Texto107 = .Column(58)
     Me.CaixaCombinação249 = .Column(59)
     Me.Rótulo71 = .Column(60)
     Me.Texto70 = .Column(61)
     Me.Rótulo73 = .Column(62)
     Me.Texto72 = .Column(63)
     Me.CaixaCombinação253 = .Column(64)
     Me.Texto251 = .Column(65)
     Me.CaixaCombinação226 = .Column(66)
End With
Else
Exit Sub
End If

No evento Se não estiver na lista:

Dim sql As String
If MsgBox("O nome desta Pessoa não está cadastrado no sistema" _
    & Chr(13) & Chr(13) & "Deseja cadastrar este nome: " & UCase(NewData) & " agora?" _
    & Chr(13) & Chr(13) & "Obs: Você será redirecionado para o formulário de cadastro." _
                              , vbYesNo, "Cadastro de Pessoas") = vbYes Then
              DoCmd.OpenForm "Pessoas", acNormal, , , acFormAdd
              Forms!Pessoas!Texto19 = UCase(NewData)
              Response = acDataErrContinue
       Else
              Me.Texto19 = ""
End If

No evento Ao clicar duas vezes:

Dim stDocName As String
Dim stLinkCriteria As String
If (Not IsNull(DLookup("Nome", "Pessoas", _
          "Nome ='" & Me!Texto19 & "'"))) Then
          stDocName = "Pessoas"
          stLinkCriteria = "[Nome]='" & Me![Texto19] & "'"
          DoCmd.OpenForm stDocName, , , stLinkCriteria
    Else
          MsgBox "Não há cadastro para exibir.", vbInformation, "::..Atenção"
          Exit Sub
End If 

Editado:
Atente para colocar na ide vba: Me.[Caixa de combinação160] = .Column(oito em numeral). é que o fórum possui um smille chamado 8, daí fica aparecendo aquele bacana de óculos.

Dilson obrigado pela ajuda, coloquei assim:

Depois de actualizar

Código:

Private Sub Texto19_AfterUpdate()
    Dim MSG As String
        'Ask user if they want to exit database.
        MSG = MSG & "Deseja vincular/actualizar dados nos campos diretos?"
        If MsgBox(MSG, vbYesNo + 32, "INCLUSÃO DE DADOS") = vbYes Then
If (Not IsNull(DLookup("Nome", "Pessoas", _
        "Nome ='" & Me!Texto19 & "'"))) Then
With Texto19
    Me.Texto21 = .Column(2)
    Me.CaixaCombinação238 = .Column(3)
    Me.CaixaCombinação252 = .Column(4)
    Me.Texto25 = .Column(5)
    Me.Rótulo38 = .Column(6)
    Me.Texto37 = .Column(7)
    Me.[Caixa de combinação160] = .Column(8)
    Me.Texto31 = .Column(9)
    Me.Rótulo34 = .Column(10)
    Me.Texto33 = .Column(11)
    Me.Texto100 = .Column(12)
    Me.Rótulo20 = .Column(13)
    Me.Texto48 = .Column(14)
    Me.Texto50 = .Column(15)
    Me.Rótulo99 = .Column(16)
    Me.Texto98 = .Column(17)
    Me.Rótulo77 = .Column(18)
    Me.Texto76 = .Column(19)
    Me.CaixaCombinação242 = .Column(20)
    Me.CaixaCombinação243 = .Column(21)
    Me.Rótulo85 = .Column(22)
    Me.[Caixa de combinação84] = .Column(23)
    Me.Rótulo87 = .Column(24)
    Me.[Caixa de combinação86] = .Column(25)
    Me.Rótulo97 = .Column(26)
    Me.[Caixa de combinação96] = .Column(27)
    Me.Rótulo40 = .Column(28)
    Me.Texto39 = .Column(29)
    Me.Rótulo42 = .Column(30)
    Me.Texto41 = .Column(31)
    Me.Rótulo44 = .Column(32)
    Me.[Caixa de combinação43] = .Column(33)
    Me.Rótulo53 = .Column(34)
    Me.Texto52 = .Column(35)
    Me.Rótulo55 = .Column(36)
    Me.Texto54 = .Column(37)
    Me.Rótulo57 = .Column(38)
    Me.Texto56 = .Column(39)
    Me.CaixaCombinação194 = .Column(40)
    Me.Texto193 = .Column(41)
    Me.CaixaCombinação196 = .Column(42)
    Me.Texto195 = .Column(43)
    Me.CaixaCombinação247 = .Column(44)
    Me.Rótulo59 = .Column(45)
    Me.[Caixa de combinação58] = .Column(46)
    Me.Rótulo61 = .Column(47)
    Me.[Caixa de combinação60] = .Column(48)
    Me.CaixaCombinação248 = .Column(49)
    Me.Texto62 = .Column(50)
    Me.Rótulo65 = .Column(51)
    Me.Texto64 = .Column(52)
    Me.CaixaCombinação250 = .Column(53)
    Me.Texto239 = .Column(54)
    Me.Rótulo95 = .Column(55)
    Me.Texto94 = .Column(56)
    Me.Rótulo108 = .Column(57)
    Me.Texto107 = .Column(58)
    Me.CaixaCombinação249 = .Column(59)
    Me.Rótulo71 = .Column(60)
    Me.Texto70 = .Column(61)
    Me.Rótulo73 = .Column(62)
    Me.Texto72 = .Column(63)
    Me.CaixaCombinação253 = .Column(64)
    Me.Texto251 = .Column(65)
    Me.CaixaCombinação226 = .Column(66)
End With
Else
Exit Sub
End If
End If
End Sub


Se não estiver na lista

Código:

Private Sub Texto19_NotInList(NewData As String, Response As Integer)
Dim sql As String
If MsgBox("O nome desta Pessoa não está cadastrado no sistema" _
    & Chr(13) & Chr(13) & "Deseja cadastrar este nome: " & UCase(NewData) & " agora?" _
    & Chr(13) & Chr(13) & "Obs: Você será redirecionado para o formulário de cadastro." _
                              , vbYesNo, "Cadastro de Pessoas") = vbYes Then
              DoCmd.OpenForm "Pessoas", acNormal, , , acFormAdd
              Forms!Pessoas!Texto19 = (NewData)
              Response = acDataErrContinue
      Else
              Response = acDataErrContinue
              Me.Texto19 = ""
              Me.Rótulo20.SetFocus
End If
End Sub

Ao fazer duplo clique

Código:

Private Sub Texto19_DblClick(Cancel As Integer)
Dim stDocName As String
Dim stLinkCriteria As String
If (Not IsNull(DLookup("Nome", "Pessoas", _
          "Nome ='" & Me!Texto19 & "'"))) Then
          stDocName = "Pessoas"
          stLinkCriteria = "[Nome]='" & Me![Texto19] & "'"
          DoCmd.OpenForm stDocName, , , stLinkCriteria
    Else
          MsgBox "Não há cadastro para exibir.", vbInformation, "::..Atenção"
          Exit Sub
End If
End Sub


Obrigado por informar que resolveu.

Não posso deixar de emitir uma ressalva para duas situações observadas:

- O uso da palavra "Nome" como identificação de campo;
- Nome do formulário com espaços;

Se não der para consertar nesse projeto atual, atente para não usar palavras reservadas do access nos futuros trabalhos e não deixe espaços nos nomes dos objetos.

Até a próxima.

é verdade mas quando comecei a bd na altura tinha poucos conhecimentos de vba agora não posso mudar devido á bd já ter cerca de 1,300 Gb e dezenas de associações ao campo nome e ao formulário pelo que demorava uma eternidade a refazer todas as ligações.

já agora ve se podes:

é parecida com a anterior mas para imagem

http://maximoaccess.forumeiros.com/t17806-duvida-imagem