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