USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Dica de como montar meu FORM,com CHECKBOX "URGENTE
Neves
não registrado
Postada em 28/04/2006 10:29 hs   
pq o certo é o SQL pegar todos os campos,pq aí qdo eu for fazer a alteração se ele tá compensado ou nao aí ele nao dá erro ne!!!
 
t+
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 28/04/2006 10:42 hs            
Não entendi ....como vc está fazendo para alterar o status de compensado na sua tabela?? Dá algum erro ou só não funciona?
     
Neves
não registrado
Postada em 28/04/2006 10:43 hs   
e como q eu faço vc sabe!?!?!?!
ja tentei tudo aki no access e nao dá certo, diz q a expressao Favorecido nao esta especificada como parte de uma função agregada!!!
Oq devo fazer?!!?
 
abraços
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 28/04/2006 10:47 hs            
Esse erro é da cláusula group by... deve estar dando erro na sql...
Cola o código q vc faz aqui por favor... Para incluir no list e para alterar o status do cheque.
 
obrigado
     
Neves
não registrado
Postada em 28/04/2006 11:10 hs   
é assim Ghost, ele tá dando erro ao montar o list!!!!!!!!!!!!!!!!
ai vai o código.....
 
rivate Sub Form_Load()
    ListView1.LabelEdit = lvwManual
    ListView1.GridLines = True
    ListView1.Checkboxes = True
    ListView1.HideSelection = False
    ListView1.FullRowSelect = True ' seleciona toda linha
    ListView1.Sorted = True
    ListView1.View = lvwReport
    ListView1.ListItems.Clear
    ListView1.ColumnHeaders.Clear
    Set Col = ListView1.ColumnHeaders.Add(, , "Cheque", 1200)
    Set Col = ListView1.ColumnHeaders.Add(, , "Favorecido", 2552)
    Set Col = ListView1.ColumnHeaders.Add(, , "Valor", 1200)
  
    datchequesemcompensar.DatabaseName = App.Path & "fretes.mdb"
    datchequesemcompensar.RecordSource = "Select cheque,sum(valor) from cheque WHERE compensado=False Group by cheque"
    datchequesemcompensar.Refresh
   
    datchequesemcompensar.Recordset.MoveMin
    Do While Not datchequesemcompensar.Recordset.EOF
        Set lin = ListView1.ListItems.Add(, , (datchequesemcompensar.Recordset!cheque))
        lin.SubItems(1) = datchequesemcompensar.Recordset!favorecido
        lin.SubItems(2) = FormatCurrency(datchequesemcompensar.Recordset!valor)
        datchequesemcompensar.Recordset.MoveNext
    Loop
 
 
só q como a SQL nao ta pegando todos os dados da tabela cheque, ai ele nao encontrar o favorecido entendeu, so q se eu incluo o campo favorecido ele dá erro que falei, so q na realidade seria melhor ele pegar todos os campos no SQL EX.: SELECT * FROM......
 
é isso ai, qq coisa é so postar........q esclareço a sua duvida!!!
t+
     
Neves
não registrado
Postada em 28/04/2006 11:14 hs   
Agora como eu vou fazer pra alterar a tabela de cheque dizendo que aquele cheque ta compensando ou nao, ai tambem eu nao sei, pq minha ideia é selecionar todos os cheques que compensaram no banco utilizando o Checkbox, ai qdo eu clicar em um botao, ele atualizar a tabela como ele foi compensado e atualizar o list!!!!!
Entendeu, mais esta duvida.............
vcs me desculpem por eu nao saber quase nada, realmente quem tá fazendo essa parte de meu programa é vcs!!!!!!!!
Muito obrigado!!!

Abração
     
Página(s): 5/10     « ANTERIOR    PRÓXIMA »

CyberWEB Network Ltda.    © Copyright 2000-2026   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página