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

    Consulta Access

    Utilize o ou no criterio = X ou Y
  2. Bom tente capturar os reseltados em variveis diferentes: txt1=DLookup("[iduser]", "Tbl_Conf") TxtUser = DLookup("[Nome]", "Tbl_Usuarios", "[iduser] = " & txt1) Não esqueça que ao comparar texto você precisará incluir a aspa simples assim: TxtUser = DLookup("[Nome]", "Tbl_Usuarios", "[iduser] = '" & txt1 & "'")
  3. Fera creio que já tem alguns post sobre isso... é bem simples na propriedade de evento Após atualizar do campo que sofre a ação que validará o ocultamento ou não coloque algo assim: if suaCondicaoVerdade then me.NomeSubForm.NomeObjeto.visible=true else me.NomeSubForm.NomeObjeto.visible=true end if obs: Se puder antes de postar suas duvidas utilize a busca da seção, você poderá encontrar tópicos resolvidos que lhe ajudam na sua dívida, aguardo seu retorno para colocar resolvido no tópico.
  4. Tenta assim: TxtUser = DLookup("[Nome]", "Tbl_Usuarios", "[iduser] = '" & DLookup("[iduser]", "Tbl_Conf") & "'")
  5. Um nos campos data programada e data reprogramada faça assim: -data programada >[Data que foi Prgramada] -data reprogramada <[Data que foi Reprogramado] Retire aquel ultimo que deu erro, ele vai pedir as duas datas vocÊ informa e ele deve trazer o que deseja.
  6. - preciso saber qual o passo tem a data menor que hoje no criterio coloque assim: <date() - entre a data programada e data reprogramada crie um campo calculado assim seuCampoX:entre [data programada] e [data e reprogramada] - com a data realizada sem valor no criterio coloque assim: null obs: Evite usar nome de campos outros objetos com espaçõs, acentos e outros carcteres especiais.
  7. MrMALJ

    Ajuda neste codigo

    Fera utilize o comando SQL Insert Into para inserir dados na tabela, caso não consiga, sugiro que post seu bd para que alguém possa fazer isso para você e lhe devolver.
  8. MrMALJ

    Ajuda Formulário ACCESS

    Fera seu projeto não está legal, veja que ao invés de criar diversos campos ITEM você poderia criar uma tabela ternária e nela armazenar todos os itens do pedido. Para melhor compreensão sugiro que dê uma olhada no banco de dados de exemplos do access o NorthWind lá vocÊ encontrará um exemplo de Pedido e Detalhes de Pedido que se encaixa perfeitamente no que pretende.
  9. Faça uma consulta que agrupe valores repetidos, utilize o assistente de consulta. No moemento é só o que posso lhe passar pois vocÊ não passou detalhe nenhum...
  10. Fera melhor vocÊ postar seu banco para poder analisamos e propor soluções.
  11. Amigão use a busca da seção, tem alguns exemplos de sistemas de login já postados e resolvidos.
  12. Que expressão vocÊ tá colocando para fazer o calculo?
  13. A partir do relatoria desconheço alguma forma, porem você pode gerar uma formulario com os resultados que deveriam sair nos relatorio e lá sim você poderia fazer uma procedimentos para trabalhar neles.
  14. MrMALJ

    delphi

    Deve ter com certeza, vou transferir seu tópico para a seção de delphi.
  15. Fera aqui no forum existem alguns exemplos de sistemas de login, use a busca da seção que você irá encontra-los. Dai você os analisa e adequa-os a sua necessidade.
  16. Veja bem creio eu que você possua nessa tabela uma chave primaria do tipo autonumeração, então para você pegar o ultimo registro você pode fazer uma consulta que utilize como critério o centro de custo informado e utilizando a função max para pegar o maio valor da chave primaria para o centro de custo você obterá o registro com o horimetro anterior ao atual.
  17. Os critério da consulta só ficaram disponiveis enquanto estiverem abertos, ou seja, se você executar uma consulta e seus criterios estiverem num formulário X ela utilizará normalmente esses critérios enquanto o formuláestiver aberto e quando você fechar o formulário e for executar novamente a consulta ela irá procurar a fonte dos critério e naõ encontrando irá pedir da forma que você mencionou, assim sendo você deverá manter os formularios e objetos de critério sempre disponiveis para a consulta.
  18. Fera sugiro que inicialmente veja o banco de dados de exemplo do access o northwind, nele tem um exemplo de pedido de compra que tem algumas ideias que vocÊ poderá aplicar no seu projeto, mas de inicio já falo que você deve fazer as tabelas pensando nas relações entre elas e como um campo de uma tabela X irá afetar um campo de uma tabela Y.
  19. Fera o que isso está retornando? Sugiro que você crie uma consulta com o que está querendo e veja e quando funcionar copie o codigo SQL para o vba.
  20. Amigo crie o relacionamento entre as tabelas com suas respectivas ligações que seu problema estará resolvido. No caso aqui a dúvida que gerou o tópico foi resolvida então vou colocar resolvido, grato pelo retorno.
  21. Basta você fixar a quantidade de casas decimais que o campo vai ter. a função não altera formato de campos apenas o valor.
  22. Fera dá uma olhada no BD de exemplos do access (northwind) lá tem um exemplo de pedidos onde há um subformulario somente para itens do pedido, essa ideia pode ser perfeitamente aproveitada para isso ok.
  23. Bom se for fazer um log ou algo parecido, basta utilizar a propriedade de evento "após atualizar" do objeto e fazer ele gravar o que você deseja em algum, campo, tabela ou outro...
  24. Fera aparentemente tá tudo certo posta ai o seu bd para podermos fazer alguns testes e analisar relacionamentos para tentar achar uma solução.
  25. Na verdade você já tem um loop FOR...NEXT, o que falta é vocÊ acrescentar o dateadd() dim parcDays as variant parcDays=30 For I = 1 To Me.txtNumParcelas rs.AddNew rs("idLivroCaixa") = Me.idLivroCaixa rs("Parcela") = I & "/" & Me.txtNumParcelas rs("VlBruto") = Me.Valor_LC / Me.txtNumParcelas rs("VlLiquido") = (Me.Valor_LC * Me.Tipo.Column(2)) / Me.txtNumParcelas rs("Paciente") = Me.Discriminação rs("Cartão") = Me.Tipo.Column(1) rs("Titular") = Me.titularCheque rs("dtCredito") = Me.Data + Me.Tipo.Column(3) rs("dtVenda") = Me.Data rs.Update DateAdd ("d", parcDays, seuObjetoDatasParcelas) parcDays=parcDays+30 Next Adicionei uma variavel parcDays para incrementar os dias e a função dateAdd() para incrementar a data veja que vocÊ deve substituir seuObjetoDatasParcelas para o nome do campo que guarda as datas da parcela.
×
×
  • Criar Novo...