Hi all,

I'm trying to run a select query in VBA Access.

May I use the Docmd.Runsql (strSql) or it is only for Action queries?

Thak you very much.

Cheers

On 5 Feb 2004 01:07:53 -0800, sandrino1977 (AT) inwind (DOT) it
(sandrino1977 (AT) inwind (DOT) it) wrote:

You could use RunSQL, but it won't do you much good for a "select"
query.

What is it that you really want to do?


--
Bob Hairgrove
NoSpamPlease (AT) Home (DOT) com

Hi Bob,

I started defining some variable as strings in order to declare the
Sql statement. Then I run the Sql Statement through the function
Docmd. RunSQL by using the variable strSQL as argument.

Anyway, it doesn't work.

Private Sub Command4_Click()
On Error GoTo Err_Command4_Click


Dim StrSQL As String
Dim strSelect As String
Dim strFrom As String
Dim strWhere As String
Dim RagSoc As String


RagSoc = ComboRagSoc.Value


strSelect = "[Operazioni Tassi].[Codice Azienda], [Operazioni
Tassi].[Nozionale], [Sottostante].[Tipo], [Operazioni Tassi].[Partenza
Copertura], [Operazioni Tassi].[Scadenza Copertura], [Operazioni
Tassi].[Ammortamento]"
strFrom = "Sottostante RIGHT JOIN ([Lista Aziende] RIGHT JOIN
(Divisa1 RIGHT JOIN [Operazioni Tassi] ON [Divisa1].[Codice
divisa]=[Operazioni Tassi].[Codice Divisa]) ON[Lista Aziende].[Codice
azienda]=[Operazioni Tassi].[Codice Azienda]) ON [Sottostante].[Codice
sottostante]=[Operazioni Tassi].[Codice Sottostante]"
strWhere = "((([Operazioni Tassi].[Codice Azienda])='" & RagSoc &
"'))"

StrSQL = "SELECT " & strSelect & " FROM " & strFrom & " WHERE " &
strWhere

Docmd.RunSQL StrSql

Exit_Command4_Click:
Exit Sub

Err_Command4_Click:
MsgBox Err.Description
Resume Exit_Command4_Click

End Sub








Bob Hairgrove <wouldnt_you_like (AT) to_know (DOT) com> wrote

On 12 Feb 2004 09:12:23 -0800, sandrino1977 (AT) inwind (DOT) it
(sandrino1977 (AT) inwind (DOT) it) wrote:

You're right ... sorry, my mistake. RunSQL is only for action queries.

Anyway, you could use OpenQuery ... but I still don't understand why.


--
Bob Hairgrove
NoSpamPlease (AT) Home (DOT) com

I don't have time to dig in your question right now. But it seems
comp.databases.ms-access is THE group to post this sort of questions
NB