CheckStatus
 

Καλησπέρα,

Έχω μια ρουτίνα στην VBA (CheckStatus) και θα ήθελα να την τρέξω μέσα απο ερώτημα (Update Query) έτσι ώστε να μπορέσω να ενημερώσω το σχετικό πεδίο [Status] για 2800 πελάτες. Παραθέτω πιο κάτω την ρουτίνα η οποία εκτελείται εφόσον περάσω νέο πελάτη στον πίνακα Customers και αναλόγος της ηλικίας καθενός καταχωρείται το Status που βρίσκεται. Οπως καταλαμβαίνετε τώρα που έχω προσαρτήσει δεδομένα στον πίνακα μέσω ερωτήματος (Appent Query) το πεδίο αυτό πρέπει να ενημερωθεί και δεν υπάρχει άλλος τρόπς να γίνει εκτός που εάν καταφέρω και τρέξω την ρουτίνα μέσα απο ερώτημα, ειναι κάτι τέτοιο εφικτό?

Public Function CheckStatus()

Dim i As Integer
i = 1

If Me.Gender = 1 Then

Select Case First_Age

Case 0# To 0.6
Me.Status = 1
Case 0.61 To 1#
Me.Status = 2
Case 1.1 To 3#
Me.Status = 5
Case 3.1 To 8#
Me.Status = 6

Case Else
Me.Status = ""
End Select

Else

If Me.Gender = 2 And Me.FemaleStatus = 2 Then

Select Case First_Age

Case 0# To 0.6
Me.Status = 3
Case 0.61 To 1#
Me.Status = 4
Case 1.1 To 3#
Me.Status = 8
Case 3.1 To 8#
Me.Status = 9
Case 8.1 To 13#
Me.Status = 10
Case 13.1 To 18#
Me.Status = 12

Case Else
Me.Status = ""
End Select

Else

If Me.Gender = 2 And Me.FemaleStatus = 3 Then

Select Case First_Age

Case 14# To 18#
Me.Status = 21
Case 18.1 To 30#
Me.Status = 22
Case 30.1 To 50
Me.Status = 23
Case Else

imessage (5)

Me.First_Age.SetFocus
Me.First_Age = ""
Me.Status = ""
End Select

Else

If Me.Gender = 2 And Me.FemaleStatus = 4 Then
Select Case First_Age

Case 14# To 18#
Me.Status = 24
Case 18.1 To 30#
Me.Status = 25
Case 30.1 To 50
Me.Status = 26
Case Else

imessage (6)

Me.First_Age.SetFocus
Me.First_Age = ""
Me.Status = ""
End Select


End If
End If
End If
End If

End Function