MrMALJ

O metodo é o mesmo para os outros passos que você quer, basta colocar o campo desejado no código que te passei, para retornar uma mensagem dizendo se o cnpj existe ou não, inclua as linhas abaixo depois do Dlookup: if isnull(me.SeuCampoCNPJ) then msgbox "CNPJ não existe!",vbokonly+vbinformation end if Pronto dai você terá uma mensagem caso a cnpj não esteja cadastrada

Me.Nome_Cliente.Value = DLookup("[Nome_Cliente]", "Clientes", "[Codigo_Cliente]=" & Codigo_Cliente) pelo que observei só estava faltando os colchetes o resto ta ok, lembre-se de utilizar o codigo em "Apos Atualizar" do campo que recebe o código do cliente, agora deve funcionar sem problemas

Na propriedade "Apos Alterar" do Campo Codigo_Cliente digite o código: me.Nome_Cliente.value = DLookup("NomeTabelaCli", "SuaTabClientes", "[CodTabCli]=" & Codigo_Cliente) me.CNPJ.value = DLookup("CnpjTabelaCli", "SuaTabClientes", "[CodTabCli]=" & Codigo_Cliente) Como antes, você não deu detalhes mais do jeito que está ai substitua ... SuaTabClientes ---- Pelo nome da sua tabela de Clientes NomeTabelaCli ---- Pelo campo que tem o nome do cliente na sua tabela Clientes CnpjTabelaCli ---- Pelo campo que tem o cnpj do cliente na sua tabela Clientes Bom isso resolve sua questão...

beleza no link abaixo tem um tutorial que mostra como fazer http://www.aspbrasil.com.br/conteudo/detal...Secao=tutoriais

Aproveitando o codigo do Kuroi: " SELECT * FROM tabela WHERE Campo LIKE '%*" & [digitado] & "*%' " isso deve funcionar apesar de já ter algum tempo que não mexo com ASP...

Desde que o seja uma aplicação local onde não seja necessario hospedar o banco de dados em uma máquina própria (no caso um servidor) você pode sim trabalhar local, claro que se sua aplicação for voltada para rede você terá que hospedar o banco de dados em alguma maquina para que as outras possam acessar!

Apesar de você não ter dado maiores informações, como nomes de campo por exemplo, vou mostrar um exemplo adotando as seguintes informações Nome dos Campos No Formulário FormCodCli ----->Para receber o código do cliente FormCNPJ ------->Para receber e armazenar o cnpj do cliente Na tabela Clientes CliCod -----------> Codigo do cliente CliCNPJ ----------> CNPJ do cliente Na propriedade "Apos Alterar" de FormCodCli digite o código: me.FormCNPJ.value = DLookup("[CliCNPJ]", "Clientes", "[Clicod]=" & FormCodCli) Se precisar preencher outros campos é só fazer as alterações devidas....

Uma saída rapida seria você copiar o arquivo de volta, caso não esteje conseguindo fazer o boot pegue o arquivo de uma maquina ou outro local para um disquete ou CD depois você pode utilizar o console da instalação e no prompt de comando copiar o arquivo para a sua pasta destino.

Pelo que li é uma espécie de entrada dê uma olhada no link abaixo, lá tem mais detalhes http://educ.queensu.ca/~compsci/units/oop/c++.htm

ok me adiciona ai mrmalj@hotmail.com

Bom no caso tem que ficar mais ou menos assim tstvar = DLookup("[Número Processo]", "Alunos", "[Número Processo]= 'x'")

Não testei seu código mais pelo que pude entender, as linhas que adicionei devem resolver seu problema Private Sub Form_Open(Cancel As Integer) [Caixa de combinação18].Visible = False x = InputBox("Insira o número do processo a pesquisar:", "Pesquisa") [Caixa de combinação18] = x dim tstvar as variant tstvar=DLookup"[seuProcesso]", "SuaTabela", "[seuProcesso] = " & pesquisa) if tstvar=null or tstvar="" then tstvar=msgbox("Processo não encontrado!",vbOKOnly + vbCritical) else Dim RS As Object Set RS = Me.Recordset.Clone RS.FindFirst "[Número Processo] = " & Str(Nz(Me![Caixa de combinação18], 0)) If Not RS.EOF Then Me.Bookmark = RS.Bookmark End Sub Private Sub Caixa_de_combinação18_AfterUpdate() ' Localizar o registo que corresponde ao controlo. Dim RS As Object Set RS = Me.Recordset.Clone RS.FindFirst "[Número Processo] = " & Str(Nz(Me![Caixa de combinação18], 0)) If Not RS.EOF Then Me.Bookmark = RS.Bookmark end if End Sub

você pode pode definir como não as propriedades "Pode Alterar", "Pode Incluir", "Pode Excluir" do form onde você irá mostrar os resultados da consulta isso irá impedir que façam alterações nos dados exibidos

Infelizmente eu tive esse problema, e não quebrei cabeça com ele, eu simplesmente criei uma tabela onde eu cadastro os usuarios e fiz uma form de login que busca os dados desses usuarios nessa tabela sempre que é necessario... isso funcionou pra mim, deu um pouco de trabalho pois tive que criar campos não acoplados em cada form para guardar o usuario e seu nivel de acesso e que vão sendo atualizados sempre que abro ou fecho esse ou aquele form, ou seja quando o usuario digita seus dados de login corretamente o form login fecha repassa nome, tipoacesso e abre o menu e assim sucessivamente numa troca tanto abrindo outros forms como retornando ao menu...

Bom acredito que no subform você pode criar um campo não acoplado (vamos chama-lo de SomaNota) para somar o total das notas, em Origem do controle coloque assim: -Caso o subform seja um formulário continuo =nz(soma([seuCampo]);0) -Caso seja um sub com campos distintos tipo (Nota1,Nota2,Nota3,Nota4) =nz([nota1]+[nota2]+[nota3]+[nota];0) Isso faz com que o Campo SomaNota atualize-se automaticamente pelos dados previstos, assim no seu campo Media você só irá precisar fazer um procedimento "Ao Receber Foco" assim me.media.value=seuSubForm!SomaNota/X onde X é a quantidade notas para a media (4 por exemplo) espero que isso ajude vc

Já resolvi, obrigado mesmo assim...

Nada fera ajudo sempre que posso....

Eu gostaria de mais detalhes de como os usuarios estão logando no seu sistema, você fez um form pra receber um login de usuarios cadastrados numa tabela do seu banco ou está usando o login do access?...

Você pode colocar nos campos do frontend algo assim na propriedade "Ao Atualizar" ou na "Ao Receber Foco": Me.SeuCampo.Requery Isso faz com que o campo seja atualizado constantemente e assim como o backend.

É por ai fera deixa só eu corrigir a dica que te passei faltou dizer qual campo da tabela você irá filtrar " SELECT * FROM tabela WHERE Campo LIKE '*' & [digitado] & '*' " Acho que só faltava isso...

Aconselho você a utilizar o Access para fazer isso, é muito mais vantajoso que o Excel

Voce pode colocar no criterio do seu campo alvo uma expressão assim: Como [Digitado]* Acima será mostrado todos os registros que começam com o que você digitou, onde "Digitado" é o que você irá digitar num Form ou quando você executar executar a consulta ela irá pedir para você informar o que deseja... No SQL é algo assim Select campo from tabela where like [digitado]&'*' Bom qualquer coisa é só pesquisar mais sobre a condição LIKE

Bom, com certeza você tem um campo que se relaciona com uma tabela e outra... nesse casso acredito q seja o código do produto que pra selecionar ficaria um codigo + ou - assim num botão na propriedade ao clicar DoCmd.RunSQL "Select Produto From Produtos Where Codprod='" & ProForm &"'" Esse codigo seleciona um determinado produto da tabela produtos quando os campos referenciados forem iguais (no caso CodProd na Tabela, e ProForm no formulario), com esse select você certamente irá entender a instrução anterior q te passei, lembrando que você pode colocar esse codigo num botão e utilizar propriedade Ao Clicar.... espero ter ajudado

Você ira utilizar o comando DoCmd para fazer executar su instruçao SQL, veja o exemplo abaixo: DoCmd.RunSQL "UPDATE Clientes SET Endereco = Null WHERE Documento='" & Onde &"'" Acima o codigo atualiza na tabela Clientes, campo Endereco para Null quando o Documento (correspondente a onde) informado no Form for Null também. É só adaptar para sua intrução SQL

Na propriedade do seu relatorio, vá no evento se nenhum dado, escolhe procedimento de evento e digiete este codigo: dim:tstmsg tstmsg=msgbox("Não há dados para serem exibidos, pro favor verifique os criterios informados",vbokonly+vbinformation) docmd.cancelevent isso deve resolver