от
Мне нужно создать макрос Access, который будет выбирать определенное количество строк из одной из моих таблиц. Макрос будет запускаться ежедневно, и для этого нужно выбрать определенное количество записей. Для каждой записи в столбце 't1' необходимо выбрать только определенное количество строк из столбца 'Sample Size'. Если в базе данных нет записи, пропустите и перейдите к следующей. Моя таблица выглядит следующим образом: Я попытался использовать приведенный ниже макрос для определения количества запрашиваемых строк, чтобы выбрать, и это кажется успешным. Тем не менее, я не могу понять, как связать первую часть с другой частью сценария и как изменить ее так, чтобы она выбирала только требуемые результаты в цикле (в настоящее время это настройка для выбора 25 лучших, но она выбирает только результаты из первой запись в моей колонке - «System ANGEast». Я думаю, мне нужно было бы использовать оператор While Wend, но я не знаю, как его использовать в этом сценарии.
Sub DailyMacro()
Dim rs As DAO.Recordset
Dim tdf As TableDef
Dim fld As Field
Dim rst As Recordset
Dim strSQL As String
Dim strTableName As String

Set rs = CurrentDb.OpenRecordset("SELECT * FROM SampleF")

'Check to see if the recordset actually contains rows
If Not (rs.EOF And rs.BOF) Then
rs.MoveFirst 
Do Until rs.EOF = True

    'Save contact name into a variable
    Top = rs!Final_Daily_Sample_Size
    t2 = rs!t1

    'Move to the next record. Don't ever forget to do this.
    rs.MoveNext
Loop
Else
MsgBox "There are no records in the recordset."
End If
   rs.Close 'Close the recordset
   Set rs = Nothing 'Clean up

'Create a new temporary table containing the required fields

strSQL = "SELECT [30 Days Sample].[Account], [30 Days Sample].[Name], [30 Days Sample].[Last Name], [30 Days Sample].[Activity Date], [30 Days Sample].[Type], [30 Days Sample].[Returns], [30 Days Sample].[Amount], [30 Days Sample].[t1] "

Ваш ответ

Отображаемое имя (по желанию):
Конфиденциальность: Ваш электронный адрес будет использоваться только для отправки уведомлений.
Анти-спам проверка:
Чтобы избежать проверки в будущем, пожалуйста войдите или зарегистрируйтесь.
...