Ir para conteúdo
Fórum Script Brasil

MrMALJ

Moderadores
  • Total de itens

    2.152
  • Registro em

  • Última visita

Tudo que MrMALJ postou

  1. MrMALJ

    Problema em script q fiz

    Fera tenta inverter a lógica do IF pra ver se continua pegando o mesmo valor, ou então posta pra gente poder analisar.
  2. Veja bem colega, crie uma tabela com os dados principais do pedido, como numero, cliente... e outro com os subitens do pedido como produto,quantidade, valorUnitario, ainda nessa segunda tabela crie um campo numero pedido que irá se relacionar com o numero do pedido principal, assim você poderá cadastrar varios itens para um mesmo pedido, conforme exemplificado no northwind.
  3. Verifiquei que você está usando as expressões nulas como parte de calculo, então mudei sei código utilizando nz() para prever isso e repassar valores validos, veja o código: Dim i, strPrestacoes As Integer Dim strValor As Currency Dim strData As Date strPrestacoes = Nz([Forms]![Credito]![Contrato]![Meses], 1) strValor = Nz([Forms]![Credito]![Contrato]![Valor], 0) / strPrestacoes strData = Nz([Forms]![Credito]![Contrato]![Data], Date) If Parcela = 0 Or IsNull(Parcela) Then For i = 1 To strPrestacoes DoCmd.GoToRecord , , acNewRec Me.Parcela = i Me.Valor = strValor Me.Vencimento = DateAdd("m", i - 1, strData) Next Else MsgBox "Já foram calculadas as prestações deste contrato." _ & " Para calcular novamente tem que apagar as actuais.", vbCritical, "Erro" End If Acho que com isso você resolve, certo?
  4. Crie uma consulta do tipo referencia cruzada usando o assistente ou use a clausula sql DISTINCT, depois utilize essa consulta para gerar o relatorio.
  5. Simples if me.suaCaixa="situação" then .....Comandos se for verdade else .....Comandos se for falso end if Ok?
  6. Daleonhart, posso colocar resolvido na sua duvida?
  7. MrMALJ

    Problema em script q fiz

    Talvez o critério da comparação esteja preciso, talvez em vez de texto o valor possa ser numerico. Verfica e retorna.
  8. Basta você gerar o gráfico com a mesma consulta que gerou seu relatório... apesar de ainda não ter tabalhado com gráficos no access deve sim ser possivel, na pior da hipoteses usar alguma ligação com o excel... dá uma olhada no link abaixo também. http://office.microsoft.com/pt-br/access-h...H006366208.aspx
  9. Ummm amigo uso access2003 logo não vou poder conferir, mas logo alguém vê isso pra você!
  10. Nesse caso não seria ideal utilizar um objeto combo, é viavel utilizar uma caixa de texto não acoplada para ser usada como critério de uma consulta que trará os resultados pretendidos (esse critério pode até mesmo ser usado na consulta que gera a sua combo). Vou chamar essa caixa de texto de txt1 e criar o exemplo de uma expressão SQL para realizar a consulta: select seuCampo from suaTabela where seuCampo like "*" & forms!seuFormulario!txt1 & "*"; Agora é só adaptar ao seu sistema. Aguardo retorno para colocar resolvido no seu tópico.
  11. Você pode usar o assistente de consultas para gerar uma tabela de referência cruzada que fará isso que está querendo.
  12. Se você abre outro formulário logo apos a linha do docmd.openform faça as linhas passando os dados qeu vocÊ que para os objetos no outro form, algo assim: forms!seuOutroForm!objetoDoOutro.value=me.seuObjeto Algo assim deve funcionar.
  13. Fera você pode utilizar os assistentes do Access para gerar suas consultas, formulário e relatórios, porém para coisas mas complexas vocÊ certamente terá que utilizar código como validações e outras comparações petinentes ao refinamento de sistemas.
  14. MrMALJ

    EXEMPLO: gerador de ACCDE

    Boa fera tenho certeza que vai ser util pra muitos. Parabens pela iniciativa.
  15. Posso colocar resolvido?
  16. É engraçado mais é isso mesmo, desenhar o banco ou o sistema antes de começar o desenvolvimento é extremamente util e evita esse tipo de coisa. Agora pra você ver o que vai ou não precisar do seu banco só olhando um por um...
  17. MrMALJ

    AJUDA URGENTE

    Amigo se a combo esta no mesmo formulário que você consulta basta atualizar a combo, algo assim: me.combo.requery
  18. Fera está retornando os resultados esperados só que está havendo um problema de cardinalidade, a opção mas simples para resolver isso é você agrupar os resultados, algo mas ou menos assim: SELECT TO.[código] FROM [tabela orçamento] AS TO WHERE EXISTS (SELECT TP.codigoorc FROM [Tabela Pedido] AS TP WHERE TO.[código] = TP.codigoorc) = FALSE group by TO.[código];
  19. MrMALJ

    Buscar o ultimo preço

    Vejo que você quer agrupar os resultados ficaria algo mas ou menos assim select codProduto, first(preço), first(mesPreco) FROM Produtos order by mesPreco desc group by codProduto;
  20. Se o backup em questão for fazer uma cópia do arquivo tenta algo assim: fileinfo bkp = new fileinfo("caminho\seuMDB.mdb"); bkp.copyto("caminho\suaCopia.mdb"); Algo do tipo deve funcionar, outra forma e você criar um arquivo de lote (.BAT) e colocar os comandos de copia nele e dai usar o agendador de tarefas do windows para executa-lo automaticamente em algum momento.
  21. Primeira coisa colega seu título de tópico "Ajuda No Access Urgente, Ajuda" é totalmente inadequado tendo em vista que o forum existe para na medida do possivel tentar ajudar os membros, por isso em outros tópicos tente colocar nos títulos algo que represente sua dúvida e não coisas do tipo. Para fazer a comparação você cria uma consulta com por exemplo os códigos que podem repetir nas respectiva tabelas não sei a nomeclatura ou padronização adotada nos seus bancos então a partir disso compare o que tem eu uma ou noutra, você pode tambem ver o que tem em uma que não existe na outra, para tanto você vai utilizar comando SQL como JOIN, LEFT JOIN, RIGHT JOIN, INNER JOIN e NOT IN para ajudar melhor das duas umas ou você disponibiliza o banco para que alguém faça comparação utilizando a sua estrutura ou você detalhae ambas estruturas. É claro que em qualque uma das duas você terá que dizer quais campos você vai comparar para gerar o terceiro banco.
  22. Para o formato moeda é assim: ="Quant.: " & [Quantidade] & " - " & [Descrição] & " - V. Unit. R$: " & format([valor total]/[quantidade];"currency") & " - V. Total R$: " & format([Valor Total];"currency")
  23. Fera para inserir varios itens no seu pedido dê uma olhada no banco de de dados de exemplos do próprio access o northwind lá você encontrará entre outros um modelo de pedido.
×
×
  • Criar Novo...