DoCmd.RunSQL SELECT STATEMENT

Question

select g.mailbox 
from voorwerp v inner join bod b
ON v.voorwerpnummer = b.voorwerp
inner join gebruiker g
ON g.gebruikersnaam = b.gebruiker
where v.verkoper = Me.gebruikersnaam
AND v.veiling_gesloten = 'false'

您好！

查看上面的代码。我需要在access VBA代码中使用此代码。在这段代码中，我使用了3个不同的表。 Me.gebruikersnaam是access应用程序中的一个字段。 我希望你们知道一种方法，这样我就可以在Acces VBA代码中使用这段代码了！

谢谢！

Answer 1

试试这个

select g.mailbox 
from ((voorwerp v inner join bod b
ON v.voorwerpnummer = b.voorwerp)
inner join gebruiker g
ON g.gebruikersnaam = b.gebruiker)
where v.verkoper = Me.gebruikersnaam
AND v.veiling_gesloten = 'false'

问候小组3 I-Project

Answer 2

您还需要一个字符串：

SQL = "select g.mailbox " & _
    "from ((voorwerp v inner join bod b " & _
    "ON v.voorwerpnummer = b.voorwerp) " & _
    "inner join gebruiker g " & _
    "ON g.gebruikersnaam = b.gebruiker) " & _
    "where v.verkoper = '" & Me.gebruikersnaam & "' " & _
    "AND v.veiling_gesloten = 'false'"