SELECT dbo_LG_004_02_INVOICE.LOGICALREF, 
dbo_LG_004_02_STLINE.SPECODE AS SiparisNo, 
dbo_LG_004_02_STLINE.AMOUNT AS SatisMiktari, 
dbo_LG_004_02_STLINE.PRICE AS SatisFiyati, 
dbo_LG_004_02_INVOICE.FICHENO AS FaturaNo, 
dbo_LG_004_02_INVOICE.DATE_ AS FaturaTarihi, 
dbo_LG_004_02_STLINE.LINEEXP AS UrunMaliyeti, 
dbo_LG_004_02_STLINE.TOTAL AS ToplamSatisTutari, [SatisMiktari]
*[UrunMaliyeti] AS ToplamMaliyetTutari
FROM dbo_LG_004_02_INVOICE INNER JOIN 
dbo_LG_004_02_STLINE ON dbo_LG_004_02_INVOICE.LOGICALREF 
= dbo_LG_004_02_STLINE.INVOICEREF;

On Error GoTo hata:
    Dim qd As DAO.QueryDef
    Dim vt As DAO.Database
    Dim sorgu As String
    Dim yol As String
 
tekrar:
 
    yol = "\\MODUL\c\Uretim_Programi\Uretim_programi_be.accdb"
 
    sorgu = "select * from logofaturalari in ''[ms access;database=" & yol & "];"
 
 
   Const GeciciSorgu As String = "logofaturalari"
 
   Set vt = CurrentDb
   Set qd = vt.CreateQueryDef(GeciciSorgu, sorgu)
 
    SendKeys ("{f11}")
    SendKeys ("{f11}")
 
Exit Sub
hata:
DoCmd.DeleteObject acQuery, "logofaturalari"
GoTo tekrar:

DoCmd.DeleteObject acQuery, "logofaturalari"