MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Exemplo Cadastro Clientes, Produtos, forms de busca, menus e etc...

    Compartilhe
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 760
    Registrado : 11/09/2013

    Exemplo Cadastro Clientes, Produtos, forms de busca, menus e etc...

    Mensagem  formiga10x em Qui 23 Jun 2016, 12:50 am

    [img][Você precisa estar registrado e conectado para ver esta imagem.][/img]
    Anexos
    Trekos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (667 Kb) Baixado 679 vez(es)


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes

    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: Exemplo Cadastro Clientes, Produtos, forms de busca, menus e etc...

    Mensagem  Kaynan em Qui 23 Jun 2016, 1:19 am

    Grande Elias,muito bom.

    clacardoso61
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 24/05/2016

    Formulario de Busca Cliente

    Mensagem  clacardoso61 em Qua 20 Jul 2016, 5:29 am

    gostei muito do seu exemplo, adaptei no meu formulario, mas ocorre o erro abaixo, nao acho o porque,
    tem como me ajudar

    " erro em tempo de execução '3464';

    Tipo de dados incompativel na expressão de critério."

    Private Sub VerFormAberto()

       If IsNull(Me.ListaCliFor.Column(0)) Or Me.ListaCliFor.Column(0) = "" Then Exit Sub

       'VERIFICA SE O FORM ABERTO É O CADASTRO
       If CurrentProject.AllForms("Frm_Nfe").IsLoaded Then

           Form_Frm_Nfe.CarregaCliFor --->> para aqui
           DoCmd.Close
           
       End If

    End Sub
    Sub CarregaCliFor()
       
     
       Me.TxtNdocto = DLookup("Ndocto", "Tbl_Cadast", "Ndocto =" & Form_Frm_NfeCad.ListaCliFor.Column(0))
       Me.TxtNome = DLookup("nome", "Tbl_Cadast", "Ndocto =" & Form_Frm_NfeCad.ListaCliFor.Column(0))
       Me.[TxtCidade] = DLookup("cidade", "Tbl_Cadast", "Ndocto =" & Form_Frm_NfeCad.ListaCliFor.Column(0))
       Me.[TxtUf] = DLookup("uf", "Tbl_Cadast", "Ndocto =" & Form_Frm_NfeCad.ListaCliFor.Column(0))
       Me.[TxtCfo] = DLookup("cfo", "Tbl_Cadast", "Ndocto =" & Form_Frm_NfeCad.ListaCliFor.Column(0))

    '    HabilitaCampos
    '    HabilitaBotao
    End Sub

      Data/hora atual: Ter 12 Dez 2017, 11:07 pm