|
попробуй так:
Dim curtab As Database, recsec As QueryDef
Dim inteval As Integer, strsecSQL As String, Srname As String, st As String
Set curtab = CurrentDb
inteval = Me.Grupsector.Value
Srname = "Sector"
st = Srname & "_#" & inteval
strsecSQL = "SELECT [" & st & "].Id, [" & st & "].Num, [" & st & "].Surname, [" & st & "].Data, FROM [" & st & "] ORDER BY [" & st & "].Data;"
curtab.QueryDefs.Delete ("Calculsector")
Set recsec = curtab.CreateQueryDef(Srname, strsecSQL)
DoCmd.OpenForm "Receipt"
DoCmd.Close acForm, "Mainform", acSaveYes
но я менял здесь имя таблицы
а тебе ставить критерий на поле
|