MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]duvida com caixa de combinação

    Compartilhe

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]duvida com caixa de combinação

    Mensagem  toyebom em Ter 18 Fev 2014, 21: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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    duvida com caixa de combinação

    Mensagem  toyebom em Qua 19 Fev 2014, 03:56

    UP


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

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    duvida com caixa de combinação

    Mensagem  toyebom em Qui 20 Fev 2014, 02:43

    UP


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

    João Ricardo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 453
    Registrado : 20/01/2013

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

    Mensagem  João Ricardo em Qui 20 Fev 2014, 03: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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    duvida com caixa de combinação

    Mensagem  toyebom em Qui 20 Fev 2014, 18: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
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 453
    Registrado : 20/01/2013

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

    Mensagem  João Ricardo em Sex 21 Fev 2014, 01: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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    duvida com caixa de combinação

    Mensagem  toyebom em Sex 21 Fev 2014, 13:26

    UP


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

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    duvida com caixa de combinação

    Mensagem  toyebom em Sex 21 Fev 2014, 20:35

    up


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

    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2267
    Registrado : 09/04/2012

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

    Mensagem  Kaynan em Sab 22 Fev 2014, 03:01

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

    Cumprimentos.

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    duvida com caixa de combinação

    Mensagem  toyebom em Dom 23 Fev 2014, 18:58

    UP


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

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    duvida com caixa de combinação

    Mensagem  toyebom em Seg 24 Fev 2014, 19:08

    UP


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

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    duvida com caixa de combinação

    Mensagem  toyebom em Qua 26 Fev 2014, 01:14

    UP


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

    Dilson
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Dilson em Qua 26 Fev 2014, 02: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.


    .................................................................................
    Atenção:
    => Antes de implementar qualquer dica, faça um backup do seu projeto;
    => Retorne para marcar o Resolvido ou continuar a discussão;
    => Sempre realize pesquisas antes de postar uma pergunta;

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    duvida com caixa de combinação

    Mensagem  toyebom em Qua 26 Fev 2014, 20:58

    Dilson

    Segue a bd
    Anexos
    Teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (965 Kb) Baixado 23 vez(es)


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

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1819
    Registrado : 13/04/2012

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

    Mensagem  Fernando Bueno em Qua 26 Fev 2014, 22: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.
    Anexos
    TesteII.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.2 Mb) Baixado 45 vez(es)


    .................................................................................
    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
    [Você precisa estar registrado e conectado para ver esta imagem.]

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    duvida com caixa de combinação

    Mensagem  toyebom em Sex 28 Fev 2014, 19: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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    duvida com caixa de combinação

    Mensagem  toyebom em Ter 04 Mar 2014, 18:25

    UP


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

    Dilson
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Dilson em Sex 07 Mar 2014, 03: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á.


    .................................................................................
    Atenção:
    => Antes de implementar qualquer dica, faça um backup do seu projeto;
    => Retorne para marcar o Resolvido ou continuar a discussão;
    => Sempre realize pesquisas antes de postar uma pergunta;

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    duvida com caixa de combinação

    Mensagem  toyebom em Sex 07 Mar 2014, 13: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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    duvida com caixa de combinação

    Mensagem  toyebom em Sab 08 Mar 2014, 19:02

    UP


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

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    duvida com caixa de combinação

    Mensagem  toyebom em Sab 08 Mar 2014, 20:02

    UP


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

    Dilson
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Dilson em Dom 09 Mar 2014, 18: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.


    .................................................................................
    Atenção:
    => Antes de implementar qualquer dica, faça um backup do seu projeto;
    => Retorne para marcar o Resolvido ou continuar a discussão;
    => Sempre realize pesquisas antes de postar uma pergunta;

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    duvida com caixa de combinação

    Mensagem  toyebom em Dom 09 Mar 2014, 22: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
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Dilson em Dom 09 Mar 2014, 23: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.



    .................................................................................
    Atenção:
    => Antes de implementar qualquer dica, faça um backup do seu projeto;
    => Retorne para marcar o Resolvido ou continuar a discussão;
    => Sempre realize pesquisas antes de postar uma pergunta;

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    duvida com caixa de combinação

    Mensagem  toyebom em Dom 09 Mar 2014, 23: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

    [Você precisa estar registrado e conectado para ver este link.]


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

      Data/hora atual: Sex 09 Dez 2016, 07:43