locked
Condição IF e Quadro de Opção RRS feed

  • Pergunta

  • Olá!

    Não sei programar em VBA e estou trabalhando com o access e preciso fazer uma consulta a partir de um quadro de opções.

    mais não sei como realizar e estou tentando da seguinte forma


    SE a opção 1 do quadro de opção estiver selecionado executa uma query

    SENÃO SE opção 2 estiver executa outra Query, estou tentado fazer assim:


    Private Sub Filtrar_Click()

    Dim stSQL As String

    If Me.Rateio_por_Linha.Value = 1 Then

    stSQL = "SELECT Filial, Número FROM Contas "

    End If


    Mais está com erro!! Alguém poderia me ajudar?
    segunda-feira, 29 de junho de 2009 19:15

Todas as Respostas

  • Diga qual é o erro para nos facilitar!
    terça-feira, 30 de junho de 2009 17:49
  • Se você quer que execute uma query, deveria usar DoCmd.OpenQuery ("TuaQuery").

    Agora se você já tem os campos no formulário e quer carregar os registros, ficaria assim:


    Private Sub Filtrar_Click()

    Dim stSQL As String

    If Me.Rateio_por_Linha.Value = 1 Then

    Me.RecordSource = "SELECT Filial, Número FROM Contas "

    End If
    Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br
    sábado, 4 de julho de 2009 03:34
    Moderador