MrMALJ

Se você está utilizando "pesqnome" como parametro da busca você deve inserir ela no código como tal, da forma como está você está utilizando como foco da busca: rs.FindFirst "[Nome_Funcionario] = " & Str(frmOcorrido_SUB![pesqnome]) veja bem, da forma acima estou pedindo para busca o Nome_Funcionário (no form em que está o foco, ou o botão que executa o evento) usando como parametro o pesqnome que estaria no subform frmocorrido_SUB.

Elber acho que os exemplos no link abaixo deve lhe ajudar! http://accessjr.brinkster.net/detalhe.asp?...&search=sql

Ummmm acho que o código abaixo resolve. SELECT [NOME_1].[Nome], [NOME_2].[Nome] FROM Nome_1 RIGHT JOIN Nome_2 ON [Nome_1].[Nome]<>[Nome_2].[Nome]; Se der certo dê o retorno.. vlw!

acho que falta definir dim rs as recordset

É sim, talvez não esteje sendo mostrado por você não ter retirado o calculo da origem de Controle, pois, para funcionar de acordo o "Nome" e o "Origem do Controle" da caixa de texto CampoSoma tem que esta CampoSoma, dá uma verificada e retorna

Fera imagino que você tenha na tabela um campo para guardar esse total, só que no formulario você deve estar realizando esse calculo na "Origem do Controle" por isso não está guardando tente realizar o calculo via codigo, ou seja sempre que você atualizar um dos campos necessário a soma faça executar o código (aconselho utilizar a propriedade "Após atualizar" dos campos).

Crie um botão no botão no form principal e na sua propriedade de evento "Ao clicar" coloque algo assim: Set rs = Me.Recordset.Clone rs.FindFirst "[seuCampoPrincipal] = " & Str(subForm![subCampo]) Me.Bookmark = rs.Bookmark Veja ai e diga se resolveu!

Ummm declare a variavel no módulo geral logo abaixo de "Option Compare Database".

Veja bem, você pode utilizar tabelas e consultas nos mdb's do access, mais como disse acima você precisará utilizar uma forma de conectar o mdb a sua pagina nesse caso asp ou php... até onde eu sei formulários não dá pra uzar!

Num entendi bem sua pergunta, mais você pode usar asp ou php pra utilizar....

Se ao digitar você teclar F4 quando estiver na caixa de combinação ela irá abrir e enquanto for digitando você poderá ver o resultando da filtragem....

Acho que este link tem alguma coisa: http://www.pr.gov.br/batebyte/edicoes/1993/bb26/access.htm

Opa compreendo eu também to com o tempo bem curto mais manda ai que ainda esse fim de semana eu dou uma olhada e tento achar uma solução... valeu!

Opa fera como você vai perceber não muda muito SOMA =SOMA(núm1;núm2;...) MEDIA=MÉDIA(núm1;núm2; ...) DIAS360=DIAS360(data_inicial;data_final;método) MAXIMO=MÁXIMOA(valor1;valor2;...) MÍNIMO=MÍNIMOA(valor1;valor2; ...) MODULO=QUOTIENT(numerador;denominador) MULT=MULT(núm1;núm2;...) SE=IF HOJE=HOJE( ) AGORA=Agora() ARRED=ARRED(núm;núm_dígitos) INT=INT(núm) Bom essa tá resolvido... t+

Ok peço desculpas pelo engano... bom, lembro que a um tempo atrás tive que implementar algo parecido, o que fiz foi criar uma caixa de texto não acoplada e na sua "Origem de Controle" coloquei o seguinte: =Contar([meuCampo]) Então criei os códigos para verificarem se ela tinha atingido um determinado número, quando atingia eu fazia com que o foco mudasse para o proximo objeto do formulário, e quando voltava ao sub já com o limite atingido eu fazia com ele mostrasse uma mensagem informando, não restringi o acesso pois o usuario poderia precisar alterar algum dado, porém sempre que ele terminava de editar algo o foco sempre saia do subform.

Ummm, fera eu deletei o BD me envia de novo. :)

Fera dá uma olhada nesse link acho que resolve o seu problema http://www.lebans.com/List_Combo.htm

Opa valeu fera precisando tentaremos ajudar no que for possivel, e obrigado por ter retornado a sua solução!

A instrução inicial gerava resultados duplicados e até triplicados, então fiz com que ele pegasse apenas o primeiro de cada conjunto de replicas e passei a chamar os campos resultados de iAlgumaCoisa ou seja mudei o alias/apelido do campo. OK?

-A linha abaixo localiza o emprestimo referente ao codigoda devolução .FindFirst "[codEmprestimo] = 'codDevolucao'" -Abre o registro para edição .Edit -o campo dataDevolve fica igual ao informado na devolução ![dataDevolve] = me.dataDevolucao -atualiza o registro da devolução .Update bom agora adeque ao seu sistema, deverá ser colocado onde você requer que seja feita a transferência de datas.

Elber dá uma olhada no link abixo isso deve resolver seu problema http://accessjr.brinkster.net/detalhe.asp?...;search=limitar Num esqueça do retorno... vlw!

Ummm seguinte eu testei aqui SELECT Chamados.CdChamado, First(Chamados.DataChamado) AS iChamado, First(Chamados.Situacao) AS iSituacao, First(Chamados.Conjunto) AS iConjunto, First(Chamados.Solicitante) AS iSolicitante, First(Chamados.DescricaoDefeito) AS iDescricaoDefeito, First(Chamados.CdSetor) AS iCdSetor, First(SetoresSalas.CdSetor) AS iCdSetor1, First(SetoresSalas.NumSala) AS iNumSala, First(SetoresSalas.Andar) AS iAndar, First(SetoresSalas.Ramal) AS iRamal FROM Chamados INNER JOIN SetoresSalas ON Chamados.CdSetor = SetoresSalas.CdSetor GROUP BY Chamados.CdChamado HAVING (((Chamados.CdChamado)=[formulários]![formu_evento]![texto11])); E funcionou bem, trouxe os resultados sem problemas, busquei o cdChamado 8 e 10 como teste não tive problemas.

Tenta algo assim: Dim meurst As Recordset With meurst .FindFirst "[codEmprestimo] = 'codDevolucao'" .Edit ![dataDevolve] = me.dataDevolucao .Update End With Bom é só uma ideia, você terá que adaptar a sua necessidade, espero que funcione, nos dê o retorno!

Ummmm seguinte finalmente eu resolvi recriar seus formularios, e percebi (até mesmo porque o access alerta) que não se pode utilizar o "form_" pois é uma palavra reservada ou algo assim... então experimenta mudar o nome do seu formulario para "formu_evento" que ele irá achar o seu critério!

Bom fera apesar de ter faltado a tabela funcionarios, fiz umas adaptações e tentei imaginar o que esta procurando fazer, então cheguei a seguinte instrução: SELECT Chamados.CdChamado, First(Chamados.DataChamado) AS iChamado, First(Chamados.Situacao) AS iSituacao, First(Chamados.Conjunto) AS iConjunto, First(Chamados.Solicitante) AS iSolicitante, First(Chamados.DescricaoDefeito) AS iDescricaoDefeito, First(Chamados.CdSetor) AS iCdSetor, First(SetoresSalas.CdSetor) AS iCdSetor1, First(SetoresSalas.NumSala) AS iNumSala, First(SetoresSalas.Andar) AS iAndar, First(SetoresSalas.Ramal) AS iRamal FROM Chamados INNER JOIN SetoresSalas ON Chamados.CdSetor = SetoresSalas.CdSetor GROUP BY Chamados.CdChamado HAVING (((Chamados.CdChamado)=[formulários]![form_evento]![texto11])); Bom se não for isso que desejava depois podemos ver outra solução, mais de qualquer forma de o retorno, ok!