Elber Carretoni

seu sistema de estoque gera várias verificações e condições e execuções a serem operadas.... porém, inicialmente vou tentar te ajudar a dar baixa na tabela entrada de estoque e cadastrar isso no estoque saida... Como você não está trabalhando com quantidade, só existe um item por serial, e portanto, quando você retirar da tabela de estoque esse registro deve ser automaticamente excluído. certo? para fazer isso você terá que criar uma CONSULTA EXLUSÃO...no critério do campo serial você vai indicar o número do serial que vem do seu formulário! crie uma consulta normal. Indique a tabela TAB_ENTRA_ESTOQUE como parte dessa consulta... vá na barra de menus e no menu CONSULTA, escolha a CONSULTA EXCLUSÃO... há dois dados a serem informados para essa consulta: "Excluir" e "Critério" no "Excluir", deixe como "Onde"! No Critério, indique o campo do seu formulário dessa forma: [Formulários]![NOME_DO_SEU_FORM]![CAMPO_SERIAL] este formulário não precisa estar vinculado à sua tabela...pode ser um formulário sem fonte de controle e o campo serial também pode ser não-acoplado... agora, no seu formulário, coloque um botão e execute a seguinte programação: docmd.OpenQuery "Nome_da_sua_CONSULTA_EXCLUSAO", acViewNormal, acReadOnly depois de informar o número serial para o CAMPO_SERIAL, clique sobre o botão que você criou e ele executara a consulta... quando você mandar executar a consulta, ele enviará duas mensagens de aviso pra você...caso queira retirá-las, coloque a seguinte linha acima do 'docmd.OpenQuery...' docmd.SetWarnings False posteriormente, aconselho que você retorne à acionar os avisos do access, então, depois da linha que executa a consulta, coloque True: docmd.SetWarnings True --- Desaciona os avisos do access --- EXECUTA A CONSULTA EXCLUSÃO --- Aciona os avisos do access deu pra entender? faça os testes e retorna o resultado desta primeira parte, beleza? abração...espero ter ajudado!

Acacio, desculpe, mas não entendi muito bem o seu problema definitivo quando você deu o exemplo de Saída. Tem como dar uma detalhada maior?

Galera, continuo batendo nesta tecla! SOCORRO!!!

ixi, o tempo também tá osso aqui... mas sempre que der to passando por aqui.... seja bem vindo novamente!!!

OPA! vlw a atenção e a força MALJ! realmente o fórum tem me auxiliado em 95% do meu aprendizado, já que aqui encontro toda base de solução de dúvidas... vlw por ter enviado a programação! hoje ainda quero estar testando isso e já te retornando o resultado da validação! a respeito, show de bola o novo template do fórum! abração!, gracias... AEEEE! Malj, funcionou perfeitamente...coloquei a função em módulo e chamei ela no evento após atualizar do campo cpf... fiz algumas alterações bem básicas e a validação já está funcionando! vlw mais uma vez por quebrar o galho...como sempre, macaco gordo!rs agradeço muito! gracias, ELBER

salve salve rapaziada... estava fazendo umas programações aqui e, na hora de executar uma ConsultaAtualização o Access me retornou a seguinte mensagem: "A Tabela "NOME_SUA_TABELA" foi aberta em modo exclusivo por outro usuário, ou foi aberta através da interface do usuário e não pode ser manipulada via programação." Mas só estou mexendo no formulário desta tabela e não tem mais nenhum outro formulário/tabela abertos ou um usuário em rede! kiki eu faço? to precisando disso o mais rápido possível... vlw a força e atenção! abração!!!

OPA! deu certinhu Malj... o único problema que tinha é que eu estava indicando a palavra 'Como' também no formulário...dessa forma, acho que no critério real ele colocava duas vezes o como ou inseria as aspas de forma errada.. agora funcionou perfeita! vlw a atenção e a força! desculpe a ignorante dúvida...rs abraços!

isso, é apenas isso mesmo que gostaria... não quero comparar os dados os dados da receita e verificar se o cpf é do cara, apenas quero verificar se o cpf é válido...j~´a tá de bom tamanho... tem como me passar isso?

salve salve rapaziada... alguém tem a programação em vba que faz a validação do cpf, pra verificar se o mesmo é existente? vlw a atenção, abraços!

Galera, a dúvida é rápida e acredito que bem simples desta vez... estou criando um formulário para consulta...seria uma pesquisa avançada, pro usuário escolher por quais campos deseja pesquisar, digitar os critérios e efetuar a pesquisa... tentei fazer em sql, porém, comecou a dar alguns probleminhas nos parâmetros que inclusive postei neste num tópico (http://scriptbrasil.com.br/forum/index.php?showtopic=99565) porém até agora ninguém respondeu...então, to tentando fazer pelo modo consulta do access mesmo... na consulta, estou indicando, nos critérios, os campos do formulário...então o usuário digita o dado num campo no formulário e a consulta vai lá buscar o critério...porém, precisaria definir um critério em consulta que me trouxesse TODOS os registros praquela campo...ou seja, não definir critério nenhum!!! tentei indicando o critério 'Como "*"'. Na consulta diretamente funcionou, mas quando faço isso por formulário não funciona!!!! tem algum macete, algum incremento de aspas...sei lá...como faço pra indicar um critério nulo na consulta através do formulário ou indicar umn critério que não filtre nenhum dado??? agradeço a atenção e peço desculpas pela correria ultimamente... abraços!!!

OPA! fiz os testes e coloquei uma listbox... na verdade, estava usando um subformulario modo folha de dados...por isso não encontrava as funções... cara, ficou perfeito....muito bom, muito mesmo!!!! vlw a força, vlw a atenção!!!! abração!!! gracias...

leitis, vou estar fazendo os testes e retorno os resultados... vlw a força! exemplo: Dim msg As String If Me.seu_controle.ListCount > 12 Then Me.Undo msg = MsgBox("mamae estou aqui", vbInformation + vbYesNo, "Titulo") If msg = vbYes Then MsgBox "Vem almoçar filho", vbInformation + vbYesNo, "Titulo" End If Else MsgBox "joãozinho onde esta você?", vbInformation + vbYesNo, "Titulo" End If leitis...vlw mais uma vez a força...rsrs ainda não fiz os testes, mas lembro-me que procurei a função listcount vagamente por cima e não tinha encontrado...foi ótimo você ter mandado um exemplo! vou estar novamente efetuando os testes e te retorno o resultado...talvez na segunda feira! bom feriado...bom fds! gracias... Opa leitis! depois de tanto tempo, to voltando aqui pra dar um parecer sobre a dúvida... tentei usar as propriedades ListCount, ListRows e ListIndex, porém não deu certo nenhuma delas! O access não reconhece-as! qual objeto você mencionou a partir do nome Seu_Controle? (Me.Seu_Controle.ListCount) Na verdade, quero contar os registros de um subformulário folha de dados...é isso mesmo? agradeço mais uma vez a atenção, abraços!

Salve salve galera...o tempo tá bem curto, mas to tentando vir aqui sempre... a dúvida é a seguinte, se alguém puder dar um help, é bem urgente: tenho um formulário (frmFicha) totalmente bloqueado, sem caixa de controle, sem botões de navegação e sem barras de menus e comandos... ao abrir este formulário, ele já abre com um registro em branco pra preencher, ou seja, já adiciono um registro...se o usuário cancelar o cadastro, deleta aquele registro e posteriormente já insere um novo...se o usuário preencher e salvar o cadastro, armazena no banco e já cria um novo registro... dessa forma deixo os campos sempre no modo de entrada de dados, sempre adicionado... pra mim fechar este formulário, clico num botão de comando que há no mesmo e abro um outro formulário (AcessoRestrito) que me pede a senha... Este formulário AcessoRestrito não é vinculado a nenhuma tabela e possui uma caixa de texto e dois botões, OK e Cancelar...se o usuário clicar em cancelar, fecha o formulário AcessoRestrito e volta para o frmFicha com o registro que estava sendo cadastrado....caso o usuário coloque a senha e a mesma esteja correta, eu tenho que fechar o AcessoRestrito, Deletar o registro que estava sendo cadastrado no frmFicha e dar quit no sistema... porém, não consigo, através do form AcessoRestrito, mandar deletar um registro que é vinculado à tabela do frmFicha... tentei fazer isso atribuindo valores a variáveis públicas, porém não deu certo! As variáveis são reconhecidas, mas os valores se perdem de um formulário para o outro... sei que tem como acessar o banco de dados e diretamente mandar deletar o ultimo registro... ou, se alguém puder selecionar o problema da perda de valor das variáveis públicas no momento em que se transfere de um formulário para o outro... vlw a atenção e a força! abraços,

galera, fiz os testes e rodou perfeitamente numa situação simples, como o leitis indicou...porém, incrementando mais um pouquinho, tentei fazer um exemplo com o seguinte: uma tabela ALUNO com Aluno_ID e Aluno_NOME; um Formulário sem Origem de Controle com um Subformulário em Folha de Dados (sfAluno) mostrando o resultado da pesquisa que será efetuada. 2 caixas de seleção com 2 caixas de texto para especificar o seguinte: - O USUÀRIO PODE EFETUAR UMA PESQUISA UTILIZANDO UM DOS DOIS CRITÈRIOS, OU OS DOIS SIMULTANEAMENTE: fiz a verificação da seguinte maneira: - Se a caixa de selecao Aluno_ID estiver selecionado, efetua a pesquisa com o codigo do aluno especificado na caixa de texto Aluno_ID e atribui valor 1 para uma variavel de controle; Posteriormente: - Se a caixa de selecao Aluno_Nome estiver selecionado e a variavel de controle for = 1, quer dizer que os dois critérios estão selecionado, portanto, busca o valor na caixa de texto Aluno_Nome e faz a pesquisa com os dois critério. -Caso contrário a caixa de seleção Aluno_Nome estiver selecoinada e a variavel de controle for <> 1, quer dizer que só o critério Nome está sendo definido. Portanto, faz a pesquisa apenas com o mesmo... dêem uma olhada no código: Private Sub BOTAOPESQUISAR_Click() Set Wks = DBEngine.Workspaces(0) Dim rst_sub As DAO.Recordset Dim SQL_sub As String 'declara variavel de controle Dim vsql As Integer 'reinicia variavel sql vsql = 0 'base do parametro sql SQL_sub = "SELECT * FROM Aluno WHERE " 'verifica se a caixa de selecao Aluno_ID (chcodigo) esta checada: If Me.chcodigo = True Then SQL_sub = SQL_sub & "((([Aluno].[Aluno_ID])= '" & Me.txtcodigo & "'))" vsql = 1 resultado da sql_sub neste momento: SELECT * FROM Aluno WHERE ((([Aluno].[Aluno_ID]='5')) End If 'verifica se a caixa de selecao Aluno_Nome (chnome) esta checada e a vsql=1: If Me.chnome = True And vsql = 1 Then SQL_sub = SQL_sub & " AND ((([Aluno].[Aluno_Nome])= '" & Me.txtnome & "'))" vsql = 1 resultado da sql_sub neste momento: SELECT * FROM Aluno WHERE ((([Aluno].[Aluno_ID]='5')) AND ((([Aluno][Aluno_Nome]='Elber')) 'caso contrário, apenas o critério nome está sendo especificado Else SQL_sub = SQL_sub & " ((([Aluno].[Aluno_Nome])='" & Me.txtnome & "'))" vsql = 1 resultado da sql_sub neste momento: SELECT * FROM Aluno WHERE ((([Aluno].[Aluno_Nome]='Elber')) End If 'concatena ponto e vírgula no final do parametro sql SQL_sub = SQL_sub & ";" resultado da sql_sub neste momento: um dos 3 valores acima + ";" 'efetua a pesquisa Set rst_sub = Wks.Databases(0).OpenRecordset(SQL_sub) Set Me.sfAluno.Form.Recordset = rst_sub End Sub O ERRO 3061 QUE ESTÀ DANDO INDICA QUE FALTA 1 PARÂMETRO! mas onde?se vocês puderem me dar um help mais uma vez, vou ser muito grato... caso queiram, envio o modelo simples que criei aqui pra vocês mesmos fazerem o teste! grande abraço, vlw!

leitis...não entendi a sua pergunta... pra ser bem sincero não entendo nada de módulos e classes...aproveito ainda pra pedir, se não for pedir demais, uma explicada sobre os módulos do access! Malj, estive fazendo os testes e fiz o que você falou...declarei a variável abaixo do "Option Compare Database"! funcionou perfeitamente e os formulários e subformulário reconheceram os valores... vlw a força mais uma vez, to aprendendo simplesmente demais aqui! abraços,

leitis, vou estar fazendo os testes e retorno os resultados... vlw a força! exemplo: Dim msg As String If Me.seu_controle.ListCount > 12 Then Me.Undo msg = MsgBox("mamae estou aqui", vbInformation + vbYesNo, "Titulo") If msg = vbYes Then MsgBox "Vem almoçar filho", vbInformation + vbYesNo, "Titulo" End If Else MsgBox "joãozinho onde esta você?", vbInformation + vbYesNo, "Titulo" End If leitis...vlw mais uma vez a força...rsrs ainda não fiz os testes, mas lembro-me que procurei a função listcount vagamente por cima e não tinha encontrado...foi ótimo você ter mandado um exemplo! vou estar novamente efetuando os testes e te retorno o resultado...talvez na segunda feira! bom feriado...bom fds! gracias...

leitis, vou estar fazendo os testes e retorno os resultados... vlw a força!

mrmalj...obrigado pela resposta! olhando os códigos entendi perfeitamente o que acontece... assim que der, apesar do tempo estar corrido, vou fazer os testes e retorno os resultados, ok? abração...vlw a foça!

leitis, obrigado pela resposta, mas não é necessariamente esta minha dúvida... está certa sua solução sim, porém gostaria de enviar o parâmetro sql via programação... a origem de controle já está preenchida com os campos de uma determinada tabela e eu gostaria apenas de enviar a pesquisa dos registros via sql para o subformulário folha de dados me mostrar os resultados...deu pra entender melhor? vlw a reply e a força... abraços!,

já o fiz aplicando banco de dados access através de Cold Fusion! porém, para uma aplicação grande de banco de dados, aconselho que use MySQL!

opa! mais uma outra vez: gostaria de enviar um parâmetro SQL para efetuar uma filtragem de registros num objeto subformulário no modo folha de dados! qual a propriedade do objeto subformulário que aceita esta característica??? se puder, me envie um exemplo em texto por aqui adicionando um parâmetro sql qualquer à uma folha de dados! desde já, vlw a força! ABRAÇOS,

aeeee... galera, estou precisando controlar o valor de uma variável para fazer interações em formulários. Na verdade, tentei definir uma variável publica da seguinte maneira: Public variavel As tipo_variavel Porém, esta linha de código dá problema na hora que mando executar... tenho que colocar alguma coisa no cabeçalho do evento, fazer algum procedimento, a síntaxe está incorreta? Abraços,

huauhaa...cara, não entendi nada... dá pra explicar melhor?

duaurocan... não sei se terei tempo, mas vou tentar dar uma olhada nisso agora de manhã... ainda não consegui fazer nada, e pra ser bem sincero nem procurei tão a fundo solucionar o problema... vai dar tudo certo se Deus quiser...rsrs assim que tiver uma resposta, te envio a solução ou o problema... abraços,

malj...me desculpe cara... o banco de dados ficou no pc do serviço, e to sem ele aqui agora pra te mandar... estarei de volta lá apenas na segunda feira, e de lá eu te mandaria, se puder... não se preocupe...se não der pra dar um help, fica tranquilo...me viro por aqui... mas, se puder me dar uma força nessa, vou ficar bem grato... também não quero de forma alguma te atrapalhar... abração amigo, fica com Deus! bom fds!!