Condição IF e Quadro de Opção

Question

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?

Answer 1

Diga qual é o erro para nos facilitar!

Answer 2

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