Ir para conteúdo
Fórum Script Brasil

diegovirgilio

Membros
  • Total de itens

    3
  • Registro em

  • Última visita

Sobre diegovirgilio

  • Data de Nascimento 22/09/1986

Perfil

  • Gender
    Male
  • Location
    Rio de Janeiro

diegovirgilio's Achievements

0

Reputação

  1. Boa noite meus amigos, gostaria de uma ajudinha de vocês, preciso fazer um select onde compare o dado de uma textBox do Formulário, faça um select e preencha a ComboBox com campo da tabela, mas minha rotina não esta funcionando gostaria de saber como faço pra solucionar essa questão. Set base = CurrentDb 'Verifica se não existe já uma consulta que se chama ConsLog, e se for o caso apagá-la detecte = 0 If base.QueryDefs.Count > 0 Then For i = 0 To base.QueryDefs.Count - 1 If base.QueryDefs(i).Name = "ConsLog" Then detecte = 1 Next i If detecte = 1 Then base.QueryDefs.Delete "ConsLog" End If 'Cria a consulta ConsLog Set cons = base.CreateQueryDef("ConsLog") cons.sql = "SELECT tbl_CQVent4.Ventilacao, tbl_CQVent3.Ventilacao, tbl_CQVent2.Ventilacao, tbl_CQVent1.Ventilacao as CQ FROM tbl_CQVent4, tbl_CQVent3, tbl_CQVent2, tbl_CQVent1 WHERE ((tbl_CQVent4.CQ = '" & Me.CQ & "') AND (tbl_CQVent3.CQ = '" & Me.CQ & "') AND (tbl_CQVent2.CQ = '" & Me.CQ & "') AND (tbl_CQVent1.CQ = '" & Me.CQ & "') ;" If rescons.RecordCount > 0 Then Set rescons = base.OpenRecordset("tbl_CQVent4") If ([Form_frmLancamentoHs].CQ = rescons!CQ) Then [Form_frmLancamentoHs].VentTeste = rescons!Ventilacao ElseIf ([Form_frmLancamentoHs].CQ = rescons!CQ2) Then cons.sql = "SELECT tblCQVent3.Ventilacao, tblCQVent3.Comentario FROM tblCQVent3;" ElseIf ([Form_frmLancamentoHs].CQ = rescons!CQ3) Then cons.sql = "SELECT tblCQVent4.Ventilacao, tblCQVent4.Comentario FROM tblCQVent4;" ElseIf ([Form_frmLancamentoHs].CQ = rescons!CQ4) Then cons.sql = "SELECT tblCQVent2.Ventilacao, tblCQVent2.Comentario FROM tblCQVent2;" [Form_frmLancamentoHs].VentTeste = rescons!Ventilacao Else MsgBox "Esse CQ pode não estar cadastrado.", vbInformation End If End If
  2. Olá boa tarde a todos, gostaria de saber como faço para manter o mesmo formato do relatório access quando exportado para excel.
  3. Olá pessoal boa noite, sou novo no forúm esse é meu primeiro poste, pois bem vamos ao que interessa. Tenho um Relátorio em Access que preciso exportar para excel o mesmo esta formatado no relatorio, mas quando vou exportar -lo para excel ele não mantém a mesma formatação vai todo zuado, gostaria de saber se é possível manter a mesma formatação do relatório ou ter um arquivo excel padrão para jogar os dados do resultado do relatório nele ou coisa do genero. OBS: A solução poderia ser em access ou VBA mesmo.
×
×
  • Criar Novo...