MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


5 participantes

    [Resolvido]Duvida com caixa de combinação

    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Duvida com caixa de combinação Empty [Resolvido]Duvida com caixa de combinação

    Mensagem  toyebom Ter 18 Fev - 18:44

    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


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Duvida com caixa de combinação Empty duvida com caixa de combinação

    Mensagem  toyebom Qua 19 Fev - 0:56

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Duvida com caixa de combinação Empty duvida com caixa de combinação

    Mensagem  toyebom Qua 19 Fev - 23:43

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    João Ricardo
    João Ricardo
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 534
    Registrado : 19/01/2013

    [Resolvido]Duvida com caixa de combinação Empty Re: [Resolvido]Duvida com caixa de combinação

    Mensagem  João Ricardo Qui 20 Fev - 0:01

    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.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Duvida com caixa de combinação Empty duvida com caixa de combinação

    Mensagem  toyebom Qui 20 Fev - 15:49

    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.


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    João Ricardo
    João Ricardo
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 534
    Registrado : 19/01/2013

    [Resolvido]Duvida com caixa de combinação Empty Re: [Resolvido]Duvida com caixa de combinação

    Mensagem  João Ricardo Qui 20 Fev - 22:09

    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.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Duvida com caixa de combinação Empty duvida com caixa de combinação

    Mensagem  toyebom Sex 21 Fev - 10:26

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Duvida com caixa de combinação Empty duvida com caixa de combinação

    Mensagem  toyebom Sex 21 Fev - 17:35

    up


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2963
    Registrado : 08/04/2012

    [Resolvido]Duvida com caixa de combinação Empty Re: [Resolvido]Duvida com caixa de combinação

    Mensagem  Kaynan Sáb 22 Fev - 0:01

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

    Cumprimentos.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Duvida com caixa de combinação Empty duvida com caixa de combinação

    Mensagem  toyebom Dom 23 Fev - 15:58

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Duvida com caixa de combinação Empty duvida com caixa de combinação

    Mensagem  toyebom Seg 24 Fev - 16:08

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Duvida com caixa de combinação Empty duvida com caixa de combinação

    Mensagem  toyebom Ter 25 Fev - 22:14

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Duvida com caixa de combinação Empty Re: [Resolvido]Duvida com caixa de combinação

    Mensagem  Dilson Ter 25 Fev - 23:49

    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.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Duvida com caixa de combinação Empty duvida com caixa de combinação

    Mensagem  toyebom Qua 26 Fev - 17:58

    Dilson

    Segue a bd


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 12/04/2012

    [Resolvido]Duvida com caixa de combinação Empty Re: [Resolvido]Duvida com caixa de combinação

    Mensagem  Fernando Bueno Qua 26 Fev - 19:07

    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.


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Duvida com caixa de combinação 16rzeq
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Duvida com caixa de combinação Empty duvida com caixa de combinação

    Mensagem  toyebom Sex 28 Fev - 16:59

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


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Duvida com caixa de combinação Empty duvida com caixa de combinação

    Mensagem  toyebom Ter 4 Mar - 15:25

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Duvida com caixa de combinação Empty Re: [Resolvido]Duvida com caixa de combinação

    Mensagem  Dilson Sex 7 Mar - 0:11

    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á.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Duvida com caixa de combinação Empty duvida com caixa de combinação

    Mensagem  toyebom Sex 7 Mar - 10:19

    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.


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Duvida com caixa de combinação Empty duvida com caixa de combinação

    Mensagem  toyebom Sáb 8 Mar - 16:02

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Duvida com caixa de combinação Empty duvida com caixa de combinação

    Mensagem  toyebom Sáb 8 Mar - 17:02

    UP


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Duvida com caixa de combinação Empty Re: [Resolvido]Duvida com caixa de combinação

    Mensagem  Dilson Dom 9 Mar - 15:32

    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(Cool
        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.
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Duvida com caixa de combinação Empty duvida com caixa de combinação

    Mensagem  toyebom Dom 9 Mar - 19:17

    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


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Duvida com caixa de combinação Empty Re: [Resolvido]Duvida com caixa de combinação

    Mensagem  Dilson Dom 9 Mar - 20:24

    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.

    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012

    [Resolvido]Duvida com caixa de combinação Empty duvida com caixa de combinação

    Mensagem  toyebom Dom 9 Mar - 20:31

    é 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


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    Conteúdo patrocinado


    [Resolvido]Duvida com caixa de combinação Empty Re: [Resolvido]Duvida com caixa de combinação

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Ter 19 Mar - 8:54