Abrufen eines bestimmten Felds im Zugriff von einem zum anderen Tabelle

Question

Ich brauche Hilfe; Ich habe eine Tabelle erstellt, die die Prämie auf Grundlage der folgenden Kriterien speichern:

Table_Policy_Premium 
1. Category: A 
2. Min Age: 0 
3. Max Age: 20 
4. Premium: USD1000 

die gleiche Kategorie kann andere Bereiche von Alter, min 21 max 64 und Prämie im nächsten Feld.

Ich habe eine andere Tabelle nämlich employee_data,, wo es ein Premium-Feld gibt; Ich möchte, dass das aus einer TPP-Tabelle basierend auf den folgenden Kriterien für jeden Mitarbeiter aktualisiert wird.

Wenn Table_Policy_Premium-Category Spiele mit Category in employee_data, und wenn das Alter in employee_data zwischen 0-20 ist, aktualisieren Sie das Premium-Feld in Employee_Table von Table_Policy_Premium mit der entsprechenden Prämie.

Answer 1

Erstellen Sie einfach öffentliche Funktion in Modul, die Sie in Abfrage (oder Formular) aufrufen, die Premium-Wert für bestimmte Kategorie und Alter zurückgibt.

Public Function getPremium(strCat As String, intAge as Integer) As Double 

    'variables 
    Dim strQuery As String 
    Dim rstQuery As dao.Recordset 
    Dim dbs As dao.Database 

    'set database 
    Set dbs = CurrentDb 

    'prepare query 
    strQuery = "SELECT Premium " & _ 
       "FROM Table_Policy_Premium " & _ 
       "WHERE Category = '" & strCat & "' AND " & _ 
       "[Min Age] <= " & intAge & " AND " & _ 
       "[Max Age] >= " & intAge & ";" 


    'open recordset 
    Set rstQuery = dbs.OpenRecordset(strQuery) 

    'check if there is a record 
    If rstQuery.EOF Then 

     'no record - set premium to 0 
     getPremium = 0 
    Else 

     'record found 
     getPremium = rstQuery!Premium 
    End If 

    Set rstQuery = Nothing 
    Set dbs = Nothing 

End Function 

Einfach Funktion aufrufen, indem diese als Feld in Abfrage einfügen: getPremium ([Kategorie], [Alter])