| imho.ws |
![]() |
|
|
|
# 2 |
|
Guest
Сообщения: n/a
|
попробуй так:
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 но я менял здесь имя таблицы а тебе ставить критерий на поле |