Dim dbs As DAO.Database
        Dim qdf As DAO.QueryDef
        Dim strSQL As String
    
        Set dbs = CurrentDb
        Set qdf = dbs.CreateQueryDef(vbs_Q_Between_Add)
        Application.RefreshDatabaseWindow
    
        strSQL = strSQL & "WHERE [City]=""" & Me![FindCity]
        qdf.sql = strSQL
    
        qdf.Close
        Set qdf = Nothing
        Set dbs = Nothing

SELECT vbs_accom_ad_ch_variants.acvar_details_id, Rooms.HID, Hotels.Hotel, Inv_Q_BHT_Sale.QFrom, Inv_Q_BHT_Sale.QTo, Inv_Q_BHT_Sale.Sgl, Inv_Q_BHT_Sale.[DBL/Twin], Inv_Q_BHT_Sale.EXB, Inv_Q_BHT_Sale.EXB_Child, Inv_Q_BHT_Sale.ABFIn, Inv_Q_BHT_Sale.ABF, Inv_Q_BHT_Sale.ABF_Child, Inv_Q_BHT_Sale.Lunch, Inv_Q_BHT_Sale.Lunch_Child, Inv_Q_BHT_Sale.Dinner, Inv_Q_BHT_Sale.Dinner_Child, vbs_accom_ad_ch_variants.adult, vbs_accom_ad_ch_variants.child, vbs_accom_ad_ch_variants.single, vbs_accom_ad_ch_variants.sgl_ad, vbs_accom_ad_ch_variants.double, vbs_accom_ad_ch_variants.dbl_ad, vbs_accom_ad_ch_variants.dbl_ch, vbs_accom_ad_ch_variants.exb_ad, vbs_accom_ad_ch_variants.exb_ch, vbs_accom_ad_ch_variants.extra_abf_ch, Rooms.RID, Rooms.Room, vbs_accom_ad_ch_variants.board, 0 AS RO, IIf([ABFIn]=0,([ABF]),(0)) AS BB, IIf([Board]='HB',([Dinner]),(0)) AS HB, IIf([Board]='FB',([Lunch]+[Dinner]),(0)) AS FB, 0 AS GalaAd, 0 AS GalaCh, [Room] & ' room / ' & IIf([Single]>0,('Single')) AS Descr, 'From:' & ([QFrom]) & '  To:' & ([Forms]![HotelCalculator]![CheckOut]) AS Period, vbs_accom_ad_ch_variants.single AS Quantity, ([Forms]![HotelCalculator]![CheckOut]-[QFrom]) AS [In House], Inv_Q_BHT_Sale.Sgl AS Price, IIf([ABFIn]<=-1,(([Price])*[In House]*[Quantity]),(([Price])*[In House]*[Quantity])) AS Price_Total, Regions.REGID, '' & ([Forms]![HotelCalculator]![CheckIn]) AS CheckIn, '' & ([Forms]![HotelCalculator]![CheckOut]) AS CheckOut, Inv_Q_BHT_Sale.QFrom AS [From], [Forms]![HotelCalculator]![CheckOut] AS [To], Cities.City, vbs_accom_permited.acperm_id, ' Total of accommodation for Adults (' & [Forms]![HotelCalculator]![Adult] & ') and Child (' & [Forms]![HotelCalculator]![Child] & ')  in ' & [Room] & ' room type' AS RoomType
FROM (Regions INNER JOIN Cities ON Regions.REGID = Cities.REGID) INNER JOIN (Location INNER JOIN (vbs_accom_ad_ch_variants INNER JOIN (vbs_accom_permited INNER JOIN ((Hotels INNER JOIN Rooms ON Hotels.HID = Rooms.HID) INNER JOIN Inv_Q_BHT_Sale ON Rooms.RID = Inv_Q_BHT_Sale.RID) ON vbs_accom_permited.acperm_id = Rooms.acperm_id) ON vbs_accom_ad_ch_variants.acperm_id = vbs_accom_permited.acperm_id) ON Location.LID = Hotels.LID) ON (Cities.CitiesID = Location.CitiesID) AND (Regions.REGID = Hotels.REGID) AND (Regions.REGID = Location.REGID)
WHERE (((Inv_Q_BHT_Sale.QFrom)>[Forms]![HotelCalculator]![CheckIn]) AND ((vbs_accom_ad_ch_variants.adult)=[Forms]![HotelCalculator]![Adult]) AND ((vbs_accom_ad_ch_variants.child)=[Forms]![HotelCalculator]![Child]) AND (([Room] & ' room / ' & IIf([Single]>0,('Single'))) Like "*Single*") AND (('' & ([Forms]![HotelCalculator]![CheckOut]))>[QFrom] And ('' & ([Forms]![HotelCalculator]![CheckOut]))<=[QTo]))
ORDER BY vbs_accom_ad_ch_variants.acvar_details_id;

Private Sub txtPeriodNumber_AfterUpdate()

DoCmd.SetWarnings False

Dim pmDelete As String
pmDelete = ""
pmDelete = pmDelete & "Delete * from GeneralJournalHeaderTbl;"

DoCmd.RunSQL pmDelete

Dim db As Database
Dim qdf As DAO.QueryDef
Dim tbl As TableDef

Set db = CurrentDb()
Set qdf = db.QueryDefs("qdf")

Dim intMarket As String

strProperty = Forms![checkmax]!txtPeriodNumber

Dim StrSQL As String

StrSQL = ""

StrSQL = StrSQL & " SELECT 1 AS DOCNUM, ([Period]+988) AS BATCHID, "
StrSQL = StrSQL & " [MonthName] & 'Close' AS REFERENCE, "
StrSQL = StrSQL & " Calendar.Period AS Period, "
StrSQL = StrSQL & " Calendar.Year AS Year, "
StrSQL = StrSQL & " Calendar.BeginningDate AS BeginningDate, "
StrSQL = StrSQL & " Calendar.EndingDate AS EndingDate, "
StrSQL = StrSQL & " INTO GeneralJournalHeaderTbl "
StrSQL = StrSQL & " FROM Calendar "
StrSQL = StrSQL & " WHERE (((Calendar.Period)=[Forms]![checkmax].[txtPeriodNumber]) "
StrSQL = StrSQL & " AND ((Calendar.Year)=[Forms]![checkmax].[txtYearNumber]));"

Debug.Print StrSQL

qdf.sql = StrSQL

DoCmd.SetWarnings False

DoCmd.OpenQuery "qdf"

DoCmd.SetWarnings True

End Sub

For Each prp In qdf.Properties
  prp.Value = Eval(prp.Name)
Nevt

For Each prp In qdf.Properties
  prp.Value = Eval(prp.Name)
Nevt

Private Sub CreatePrmRst2_Click()
    Dim db As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim rst As DAO.Recordset
    
    Set db = CurrentDb()
  
   'DoCmd.OpenForm "HotelCalculator", , , , , acDialog
    

    'If IsFormOpen("HotelCalculator") Then
        
        Set qdf = db.QueryDefs("vbs_Q_Between_Add")
        
        qdf("Forms!HotelCalculator!FindCity") = _
         Forms!HotelCalculator!FindCity
        qdf("Forms!HotelCalculator!CheckIn") = _
         Forms!HotelCalculator!CheckIn
        qdf("Forms!HotelCalculator!CheckOut") = _
         Forms!HotelCalculator!CheckOut
        qdf("Forms!HotelCalculator!Adult") = _
         Forms!HotelCalculator!Adult
        qdf("Forms!HotelCalculator!Child") = _
         Forms!HotelCalculator!Child


        Set rst = qdf.OpenRecordset()
        rst.MoveLast
        MsgBox "Recordset created with " & rst.RecordCount & _
         " records.", vbOKOnly + vbInformation, "CreatePrmRst"
        
        qdf.Close
        rst.Close
    'Else
      
Cancel.
        MsgBox "Query cancelled!", vbOKOnly + vbCritical, _
         "CreatePrmRst"
    'End If
    
    DoCmd.Close acForm, "HotelCalculator"
    Set qdf = Nothing
    Set rst = Nothing
    Set db = Nothing
End Sub

Dim q As DAO.QueryDef, p As DAO.Parameter
  Set q = CurrentDb.QueryDefs("vbs_Q_Between_Add") 
  For Each p In q.Parameters
    p.Value = Eval(p.Name) = City        <---- город определил верно
    p.Value = Eval(p.Name) = CheckIn   <--------дату верно
    p.Value = Eval(p.Name) = CheckOut  <------- верно
    p.Value = Eval(p.Name) = Adult         <------ верно
    p.Value = Eval(p.Name) = Adult         <---- верно
  Next
  q.Execute   ------------< выдает ошибку
  q.Close: Set q = Nothing

Private Sub tt_Click()
Dim qdf As QueryDef
On Error GoTo Errhandler

    Set qdf = CurrentDb.QueryDefs("vbs_Q_Between_Add_temp")
    Set qdf = CurrentDb.QueryDefs("vbs_Q_Not_Between_Add_temp")
    Set qdf = CurrentDb.QueryDefs("vbs_Q_From_Add_temp")
    Set qdf = CurrentDb.QueryDefs("vbs_Q_To_Add_temp")
    
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_Between_Add").sql, "Forms!HotelCalculator!City", "'City'")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_Between_Add").sql, "Forms!HotelCalculator!CheckIn", "CheckIn")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_Between_Add").sql, "Forms!HotelCalculator!CheckOut", "CheckOut")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_Between_Add").sql, "Forms!HotelCalculator!Adult", "Adult")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_Between_Add").sql, "Forms!HotelCalculator!Child", "Child")
    
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_Not_Between_Add").sql, "Forms!HotelCalculator!City", "'City'")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_Not_Between_Add").sql, "Forms!HotelCalculator!CheckIn", "CheckIn")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_Not_Between_Add").sql, "Forms!HotelCalculator!CheckOut", "CheckOut")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_Not_Between_Add").sql, "Forms!HotelCalculator!Adult", "Adult")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_Not_Between_Add").sql, "Forms!HotelCalculator!Child", "Child")
    
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_From_Add").sql, "Forms!HotelCalculator!City", "'City'")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_From_Add").sql, "Forms!HotelCalculator!CheckIn", "CheckIn")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_From_Add").sql, "Forms!HotelCalculator!CheckOut", "CheckOut")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_From_Add").sql, "Forms!HotelCalculator!Adult", "Adult")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_From_Add").sql, "Forms!HotelCalculator!Child", "Child")
    
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_To_Add").sql, "Forms!HotelCalculator!City", "'City'")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_To_Add").sql, "Forms!HotelCalculator!CheckIn", "CheckIn")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_To_Add").sql, "Forms!HotelCalculator!CheckOut", "CheckOut")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_To_Add").sql, "Forms!HotelCalculator!Adult", "Adult")
    qdf.sql = Replace(CurrentDb.QueryDefs("vbs_Q_To_Add").sql, "Forms!HotelCalculator!Child", "Child")
   
    DoCmd.OpenQuery "vbs_Q_Between_Add_temp"
    DoCmd.OpenQuery "vbs_Q_Not_Between_Add_temp"
    DoCmd.OpenQuery "vbs_Q_From_Add_temp"
    DoCmd.OpenQuery "vbs_Q_To_Add_temp"
    
    Exit Sub
Errhandler:
    Select Case Err.Number
        Case 3265
            DoCmd.CopyObject , "vbs_Q_Between_Add_temp", acQuery, "vbs_Q_Between_Add"
            DoCmd.CopyObject , "vbs_Q_Not_Between_Add_temp", acQuery, "vbs_Q_Not_Between_Add"
            DoCmd.CopyObject , "vbs_Q_From_Add_temp", acQuery, "vbs_Q_From_Add"
            DoCmd.CopyObject , "vbs_Q_To_Add_temp", acQuery, "vbs_Q_To_Add"
            Resume
        Case Else
            MsgBox Err.Number & " " & Err.Description
    End Select
End Sub

 p.Value = Eval(p.Name)