MrMALJ

Isso é uma dúvida ou é uma dica? se for dúvida dá uma olhada no tópico http://scriptbrasil.com.br/forum/index.php?showtopic=106775

ummmm deixa ver se entendi você tá querendo consultar, dados já cadastrados? Se for aqui no forum tem uns tópicos que devem ter isso, utilizando o metodo findfirst.

ummm o código que te passei deveria estar funcionando, bastaria você adaptar a seu sitema! Que está ocorrendo?

tente assim (lembrando que o formulário Cadastrodefuncionarios tem que estar aberto!): Forms!Cadastrodefuncionarios!CódigoDoFuncionário.value = "000" & Me.CPF É desanconselhável utilizar nome de objetos com acentuação ou espaços!

Vamos por parte... Pra fazer essa contagem você pode fazer armazenar os numeros assim: me.seuCampoNumeracao=right(format(year(date()),"yyyy"),2) & "/" & format(me.seuContador,"000") pronto isso deve fazer com que sua numeração fique "99/999", como disse estou meio enrrolado, por isso vou tentando ajudar aos poucos!

Você está executando isso, numa consulta, num objeto não acoplado ou num código?

Fera você já iniciou o sistema?

Faça uma consulta que utilize como critério essa combobox.. simples!

Fera sinceramente, evite chamar campos pelas designações: NOME, VALOR... utilize algo que diferencie disso o vb utiliza essas constantes internamente e ocorre erros quando se utiliza dessa forma!

algo assim: if me.seuPreço=0 then ..... end if Como você viu, basta comparar o valor do campo com formato moeda.

Na cosulta que gera o relatório, vá no critério do seu campo data e coloque algo assim: entre [data1] e [data2] No segundo caso, crie uma variável local logo abaixo do início da códificação VBA do relatório, algo assim: Option Compare Database dim tst as variant tst=0 depois vá na propriedade de eventos "Ao formatar" ou "Ao imprimir" e faça um cóigo mais ou menos assim: if tst=0 then tst=me.seuNumerador end if Bom dessa forma você guarda o primeiro valor da lista, o que você terá de fazer agora é simplesmente subtrair o último contador da lista pela variável tst, e isso deverá ser feita numa caixa de texto não acoplada, visto que se a caixa de texto tiver origem de controle ela não pode ser alterada via código! Bom isso deve resolver!

Fera tem sim como fazer, se ateh eu terminar umas coisas que toh enrrolado aqui ainda não tiver resolvido, tento te dar uma força!

Bom se ele é preço, ele tem que de alguma forma ser numérico, então basta você comparar ele com 0 (zero).

simplesmente vá na propriedades desses campos e mude o valor de "Visível" para NÃO.

Fera, criei um objeto OLE não acoplado pra imagem toh usando as propriedades de evento "Ao receber foco" e "apos atualizar" dos outros campos. Quanto a outra dúvida vou deixando o exemplo que fiz e que está funcionando perfeitamente aqui pra "bom dia" e "boa tarde" o outro você implementa. If Time() > #12:00:00 AM# And Time < #12:00:00 PM# Then Me.seuCampo.Value = "Bom Dia!" Else Me.seuCampo.Value = "Boa Tarde!" End If MrMALJ.zip

Sim você está utilizando esta expressão aonde?

A função shell executa programas executáveis então você teria que informar o caminho de onde ele deve buscar o acrobat, algo assimm x=shell("C:\Arquivos de programas\Adobe\Acrobat 6.0\Reader\AcroRd32 C:\guia.pdf",vbNormalFocus) Bom acho que deve funcionar!

Veja bem, as combos no geral teem como base dados alguma tabela e /ou consulta, então basta alterar os dados que estão nessas base!

Fera tem vários tópicos aqui no forum falando sobre consultas, no seu caso você pode criar um form principal com um subform, no form principal você pode criar uma caixa de texto não acoplada com o nome por exemplo de "txtCod" e seu sub terá como origem de dados a consulta que vamos utilizar para mostrar o resultado, então na consulta digite no campo correspondente digite algo assim no seu critério: formulários!seuFormPrincipal!txtCod ou então clique com o botão direito no critério e depois em construir e no construtor de expressões vocês pode localizar o objeto que deseja usar como critério! Espero que resolva, confirme!

Então acho que falei que as aspas simples só iriam funcionar pra numeros, mais td bem, o improtante e que foi resolvido!

use como critério a seguinte expressão no modo estrutura: é negado nulo Deve ser usado no critério do campo que não deve ser nulo;

Ummm bom seria algo mais ou menos assim: select sum(suaTabela.quantidade), suaTabela.seuProduto as totQuant from suaTabela group by suaTabela.seuProduto; Fera acho que isso resolve (com as devidas adaptações, mais nada que o assistente de consulta não resolva), confirme , outras dúvidas sugiro que crie um outro tópico, para facilitar a busca de usuários com dúvidas semelhantes, ok!

Crie uma consulta atualização entre a duas tabelas, e utilize como critério caso utilize um campo data para controle, algo assim: >=#99/99/99# Substitua os "9" por seus respectivos valores (data) ou caso utilize um contador basta fazer algo tambem semelhante, por exemplo, se você quisesse somente os contadores maiores ou 1000 no seu critério basta fazer algo assim >=1000 então execute a consulta atualização e pronto seus dados serão transferidos conforme os critério que você adotou!

Isso a ideia é essa, no caso de ocorrer algum erro, tente retirar as aspas simples, pois elas funcionam bem para valores numericos porém não tão bem quanto com caracteres. Espero que dê certo!

Bom como eu disse esse codigo é para uma consulta, você pode utilizar ela pra gera seu form ou relatório.