Início
[img]
[/img]
[/img]- Anexos
Trekos.zip - Você não tem permissão para fazer download dos arquivos anexados.
- (667 Kb) Baixado 1002 vez(es)
3 participantes
Exemplo Cadastro Clientes, Produtos, forms de busca, menus e etc...
formiga10x- Super Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 818
Registrado : 11/09/2013
- Mensagem nº1
Exemplo Cadastro Clientes, Produtos, forms de busca, menus e etc...
formiga10x 22/6/2016, 20:20
.................................................................................
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
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
- Maurice Vicent Wilkes
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
- Mensagem nº2
Re: Exemplo Cadastro Clientes, Produtos, forms de busca, menus e etc...
Kaynan 22/6/2016, 20:49
Grande Elias,muito bom.
clacardoso61- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1
Registrado : 24/05/2016
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
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
Conteúdo patrocinado
- Mensagem nº4
Re: Exemplo Cadastro Clientes, Produtos, forms de busca, menus e etc...
Conteúdo patrocinado
Tópicos semelhantes
» Tenho um formulario de cadastro de Clientes e um de Cadastro de OS como puxar o cliente com endereço e telefone
» [Resolvido]Formulário cadastro de clientes e cadastro de dependentes
» Exemplo de menus com guias para access 2007
» [Resolvido]Ajuda com pesquisa de clientes e produtos...
» [Resolvido]Os 10 + Clientes e Produtos Vendidos por período:
» [Resolvido]Formulário cadastro de clientes e cadastro de dependentes
» Exemplo de menus com guias para access 2007
» [Resolvido]Ajuda com pesquisa de clientes e produtos...
» [Resolvido]Os 10 + Clientes e Produtos Vendidos por período: