Here is what I have:
Code:
ActiveSheet.Range("$A$1:$BU$87").AutoFilter Field:=17, Criteria1:="="
ActiveSheet.Range("$A$1:$BU$87").AutoFilter Field:=1,
ActiveSheet.Range("$A$1:$BU$87").AutoFilter Field:=17, Criteria1:="="
ActiveSheet.Range("$A$1:$BU$87").AutoFilter Field:=1,
SELECT Neg_on_admit_dates_formatted.REPID, Neg_on_admit_dates_formatted.ADMIT_DATE, Neg_on_admit_dates_formatted.DC_DATE, Neg_on_admit_dates_formatted.CULTUREDATE,
DELETE Table1.*, Table1_1.ADMIT_ESBL_SURV_POS, Table1_1.ADMIT_CUL_DATETIME FROM Table1 INNER JOIN Table1 AS Table1_1 ON Table1.ID = Table1_1.ID WHERE (((Table1_1.ADMIT_ESBL_SURV_POS)=1) AND ((Table1_1.ADMIT_CUL_DATETIME)<[Table1].[ADMIT_CUL_DATETIME]));
Dim i As Integer
Dim CollectionDate As Date
Dim StudyDay As Integer
Dim ID As Integer
CollectionDate = InputBox("Enter date", "Date", Date)
StudyDay = InputBox("Enter study day")
ID = InputBox("Patient Number")
For i = 1 To 10
DoCmd.SetWarnings false
DoCmd.RunSQL "INSERT INTO tblSamples
Dim i As Integer
Dim CollectionDate As Date
Dim StudyDay As Integer
Dim ID As Integer
CollectionDate = InputBox("Enter date", "Date", Date)
StudyDay = InputBox("Enter study day")
ID = InputBox("Patient Number")
For i = 1 To 10
Leave a comment: