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

[γιώργοςΚ]

Καλησπέρα,

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

Προσπαθώ να μέσω 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

[tsgiannis]

Μπορείς να δώσεις λίγες πληροφορίες τι ακριβώς πρόβλημα έχεις....Με μια 1η ματιά την βλέπω κανονική την μέθοδο σου αλλά χωρίς να μπορώ να την τρέξω...

[γιώργοςΚ]

Αρχική Δημοσίευση από tsgiannis

Μπορείς να δώσεις λίγες πληροφορίες τι ακριβώς πρόβλημα έχεις....Με μια 1η ματιά την βλέπω κανονική την μέθοδο σου αλλά χωρίς να μπορώ να την τρέξω...

Γειά σου Γιάννη και ευχαριστω για το ενδιαφέρον

Πιστεύω πως πρέπει στο τέλος αυτής της γραμμής κώδικα να ενσωματωθεί και τη γραμμή Forms!frmTest.Product_id αλλά δεν γνωρίζω ακριβώς πως πρέπει να το γράψω αν και εκανα καποιες δοκιμες

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

[Tasos]

Καλησπέρα!

Γιώργο, τα πεδία στον πίνακα [Daily Works]

• aDate
• xDay
• Person_id
• Day_id
• Activated

με βάση τον κώδικα σου πρέπει να είναι ΟΛΑ κείμενα.

Ισχύει αυτό;

Με εκτίμηση

Τάσος

[γιώργοςΚ]

Αρχική Δημοσίευση από Tasos

Καλησπέρα!

Γιώργο, τα πεδία στον πίνακα [Daily Works]

• aDate
• xDay
• Person_id
• Day_id
• Activated

με βάση τον κώδικα σου πρέπει να είναι ΟΛΑ κείμενα.

Ισχύει αυτό;

Με εκτίμηση

Τάσος

Καλησπέρα Τάσο,

Στην αληθινή βάση δεν ειναι όλα κείμενα για να ειμαι ειλικρνηής, απλά προσπαθώ να βρώ μια λύση και κάνω καποιες πρόχειρες δοκιμές για να δω άν μπορεί και αν είναι λειρουργική η πιο πάνω λύση και έτσι όντως τα πεδία είναι όλα "χύμα" εδω και κείμενα.

Ευχαριστω εκ προτέρων

[Tasos]

Γιώργο μου πήγαινε στη σχεδίαση του πίνακα, δες τι τύπο δεδομένων έχει το κάθε πεδίο από τα προαναφερόμενα και πες μας.

[γιώργοςΚ]

Αρχική Δημοσίευση από Tasos

Γιώργο μου πήγαινε στη σχεδίαση του πίνακα, δες τι τύπο δεδομένων έχει το κάθε πεδίο από τα προαναφερόμενα και πες μας.

Καλησπέρα Τάσο και ευχαριστω για το ενδιαφέρον, καλύτερα να προσπαθήσω να αποσπάσω το τμήμα που πρέπει να γίνει αυτή η μετατροπη απευθειας απο την πραγματική βάση έτσι ώστε να είμαι πιο ξεκάθαρος ως προς τί ακριβώς προσπαθώ να επιτύχω. Αυριο θα ανεβάσω ένα τμήμα της βάσης και ευχομαι να βρούμε κάποια λύση.

Σε κάθε περίπτωση ευχαριστω