[Resolvido]Atualizado campo

ola pessoal

tenho esse codigo nos campos ultima visita e numero de visitas
esse e da data =DÚltimo("[DataEntrada]";"qryhistorico";"[CodCliente]=[Forms]![frmCliente]![CodCliente]")

esse e numero de visitas =DContar("[CodManutencao]";"qryhistorico";"[CodCliente]=[Forms]![frmCliente]![CodCliente]")

bom o problema e estou usando windows 7 home premium 32 bits com Access 2007 blz
quando estava usando windows XP , quando entrava no formulario de clientes onde tem esses campos eles estvam com a ultima data e o numero de vezes preenchidos , agora tenho que clicar no campo para atualizar

essa seria minha duvida

Aonde foi colocado esse código?

Em que evento de que objeto?

ola dyl2011.programador

tem dois campos na tblclientes , um com formato de data e outro formato de numero
os codigos estao direto nos campos como fonte de controle

muito obregado pela sua atenção

Boa tarde,

Você já experimentou via VBA no respectivo formulário codificar da seguinte forma:

Dim strSQLDAta as String
Dim strSQLVisitas as String

strSQLData = DÚltimo("[DataEntrada]";"qryhistorico";"[CodCliente]=[Forms]![frmCliente]![CodCliente]")

strSQLVisitas =DContar("[CodManutencao]";"qryhistorico";"[CodCliente]=[Forms]![frmCliente]![CodCliente]")

e ainda em tempo de execução.

Me.CAixadeTExtoDAta.ControlSource = strSQLData
Me.CaixaTextoVisitas.ControlSource = strSQLVisitas

Tudo isso no form_Open

ou seja no evento Open do respectivo form

Adilson

ola dyl2011.programador

esta dando erro de compilação
de sintaxe

coloquei assim no evento ao abrir formulario
Private Sub Form_Open(Cancel As Integer)

Dim strSQLData As String
Dim strSQLVisitas As String

strSQLData = DÚltimo("[DataEntrada]";"qryhistorico";"[CodCliente]=[Forms]![frmCliente]![CodCliente]")

strSQLVisitas =DContar("[CodManutencao]";"qryhistorico";"[CodCliente]=[Forms]![frmCliente]![CodCliente]")



'e ainda em tempo de execução.

Me.UltimaVisita.ControlSource = strSQLData
Me.Nvisitas.ControlSource = strSQLVisitas


End Sub

onde estou errando

Me passe o bd ou parte dele para que eu possa dar uma olhad e te reenviar.
Hospede no dropbox e me passe o link

Mas antes me passe os campos da tabela respectiva

Tire também as aspas e troque ponto e virgula por virgula, tire tambem os colchetes. Só deixe colchetes em criterios

ola dyl2011.programador

segue link do BD esta em access 2007

http://www.esnips.com/doc/14e4d162-5149-4151-be04-a232e60369e6/Paiani

muito obrigado pela atenção

Amigão

Estou aqui quebradão, faça um relato do que você quer que eu faça, que amanhã olho e te mando de volta. Coloque um assunto na mensagem clara.

a.2006santos@hotmail.com


Adilson

Dica:

strSQLData = DÚltimo("[DataEntrada]";"qryhistorico";"[CodCliente]=[Forms]![frmCliente]![CodCliente]")

strSQLVisitas =DContar("[CodManutencao]";"qryhistorico";"[CodCliente]=[Forms]![frmCliente]![CodCliente]")

Amigos, o que eu pus em vermelho não existe no VBA... Assim sempre dará erro de compilação...

DÚltimo???-> onde viu esta função?

não estarão a falar da função DLast?

DLast(Expr As String, Domain As String, [Criteria])

DContar???-> onde viu esta função?

Não será DCount?

DCount(Expr As String, Domain As String, [Criteria])

tente:
strSQLData = DLast("[DataEntrada]";"qryhistorico";"[CodCliente]=[Forms]![frmCliente]![CodCliente]")
strSQLVisitas =DCount("[CodManutencao]";"qryhistorico";"[CodCliente]=[Forms]![frmCliente]![CodCliente]")

Mesmo assim não deve de funcionar porque deve colocar:
strSQLData = DLast("[DataEntrada]";"qryhistorico";"[CodCliente]=" & [Forms]![frmCliente]![CodCliente])


Quando se tem duvidas, carregamos no F2 (Object Browser) par ver a sintaxe das funções que desejamos e se realmente elas existem.

É verdade amigo bitabit, também estranhei tais funções...
O bom é que voce fez a correção, eu apenas as denunciei...
Forte abraço

Olá,

Estou com seu BD aberto em minha máquina, me diga o que quer que seja feito nele.

Adilson

Bom dia,

Resolvido o problema,

1º) A função a ser utilizada é DLokkoUp, como o Mestre Marcelo David e bitabit já relataram. Já alterei como você poderá ver.

2º) O outro problema é que você tem três tabelas que se relacionam:
Clientes, Mautenção e Veículos, seu relacionamento estava errado, causando conflito pois feriam as regras de integridade referenciasl, tive que apagar os registros e impor integridade referencial.

3º) A tabela Manutenção é uma tabela muitos-para-muitos, ou seja a tabela clientes se relaciona com ela e a tabela veiculos, ambas um-para-muitos na manutenção é que tem informações do cliente e do veiculo e não coomo você havia feito, ou seja você tinha relacionado clinte com veiculo (não se esqueça não é um programa para aluguel de carros e sim manutençao de carros) portanto as informações para você interessa a respeito da manutenção que vai ter as informações a respeito do veiculo e do cliente, mudei o relacionamento e criei uma nova consulta chamada qryHistoricoNovo.

4º) Verifique tudo e altere o que deseja com cautela, e observe que o formulario cliente abre normalmente, adicione dados e se precisar entre em contato estarei sempre a disposição para ajudar.

http://dl.dropbox.com/u/37804873/Paiani.rar

5º) Olhe os critérios

strSQLData = Nz(DLookup("[DataEntrada]", "qryHistoricoNovo", "[CodCliente]= [Forms]![frmCliente]![txtCodCliente]"), "")

strSQLVisitas = Nz(DLookup("[CodManutencao]", "qryHistoricoNovo", "[CodCliente]= [Forms]![frmCliente]![CodCliente]"), 0)


Utilizei a função NZ para nos retornar um valor vazio, caso não haja informações nas tabelas.

Atenciosamente,


Adilson

ola Adilson

vi as alteraçoes muito obrigado pela , atençao
mas o historiconovo nao retorna , nao esta retornando as informaçoes fiz um teste mas nao filtra

voce pode dar uma olhada

mais uma vez agradeco a atençao

Olá,


Se você adicionou registros no seu bd me passe ele para que eu possa depurar.
Se não adicionou, adicione registro e me pase que vou verificar os bugs.

ADilson

ola dyl2011.programador
pode incluir dados no banco e testar
depois me avise ok

Estou a puxar o tópico para cima. se já tiver resolvido, agradeço o seu retorno.

ola pessoal

estou no aguardo do amigo adilson , para saber se deu certo ou nao

Refresque minha memória, Amigão.

Adilson

Amigão, olhando o topico e lendo-o verifiquei seu problema e depurei.
Olhe o que fiz no Open do frmCliente.


Form_frmCliente.RecordSource = "SELECT * FROM tblClientes ORDER BY CodCliente DESC"
Form_frmCliente.Requery

http://dl.dropbox.com/u/37804873/Paiani.rar


Pronto vai direto para o último registro, vou lhe enviar o BD Paiani. Segue o link:
Perdãopor ter te feito aguardar, já tinha me esquecido. Estou envolvido em um projeto de uma certa envergadura e me ocupa muito, motivo pelo qual me esqueci. Você deveria ter me lembrado.

Atenciosamente,

Adilson

Olhe só aí vai os dois links

por data

http://dl.dropbox.com/u/37804873/Paiani%20Data.rar

por codigo

http://dl.dropbox.com/u/37804873/Paiani.rar


Adilson

ola Adilson

funcionou blz

muito obrigado pela atenção

O forum agradeçe,

faltou você colocar o resolvido..

Adilson

ola amigo adilson

so mais uma duvida , e para campo nvisitas para contar o campo como ficaria

Que tipo de contagem você quer? Você deseja agraupá-las? Ou o quê?

ola amigo

que somar o numero de visitas , se o cliente tem quatro ordem sao 4 visitas ok

Me passe parte do BD para que posso olhar e ver o que pode ser feito.

Adilson