Προσάρτηση δεδομένων απο κριτήριο

[γιώργοςΚ]

Καλησπέρα,

Θα ήθελα μια βοηθεια ως προς το εξής ζητούμενο:

Προσπαθώ να μέσω VBA να τρέξω τον κώδικα που επισυνάπτω πιο κάτω έτσι ώστε να προσαρτήσω δεδομένα στον πίνακα Daily Works με βάση κάποια τα κριτήρια [NoOfWorks] που βρισκεται στην φορμα "frmWorks". Το πρόβλημα ειναι ότι πρέπει να φιλτράρω στο ερώτημα το Person_id και έτσι να εκτελείται ο κωδικας κατι για το οποίο έχω κάποια δυσκολία να το κάνω και ζητάω την βοήθεια σας.

Private Sub cmdAddDates_Click()
Dim i As Integer
Dim iDay As Integer
Dim strMyDay As String
Dim xPersonID As String
Dim strDayID As String
Dim strActivated As String

DoCmd.SetWarnings False

xPersonID = Me.Person_id

For i = 0 To Me.NoOfWorks

iDay = Weekday(Me.Starts + i)
Select Case iDay

Case 1
strMyDay = "Sunday"
strDayID = 7
strActivated = 1
Case 2
strMyDay = "Monday"
strDayID = 1
strActivated = 1
Case 3
strMyDay = "Tuesday"
strDayID = 2
strActivated = 1
Case 4
strMyDay = "Wednesday"
strDayID = 3
strActivated = 1
Case 5
strMyDay = "Thirsday"
strDayID = 4
strActivated = 1
Case 6
strMyDay = "Friday"
strDayID = 5
strActivated = 1
Case 7
strMyDay = "Saturday"
strDayID = 6
strActivated = 1
End Select

DoCmd.RunSQL ("INSERT INTO [Daily Works] (aDate, xDay, Person_id, Day_id, Activated) VALUES ('" & Me.Starts + i & "', '" & strMyDay & "','" & xPersonID & "', '" & strDayID & "', '" & strActivated & "')")

Next i

DoCmd.SetWarnings True
End Sub