Kod:
Private Sub Açılan_Kutu8_AfterUpdate()
a = DSum("[" & Açılan_Kutu8 & "]", "Analiz", "[Adı] = 'Ali'")
b = DCount("[" & Açılan_Kutu8 & "]", "Analiz", "[Adı] = 'Ali'")
c = DMax("[" & Açılan_Kutu8 & "]", "Analiz", "[Adı] = 'Ali'")
d = DMin("[" & Açılan_Kutu8 & "]", "Analiz", "[Adı] = 'Ali'")
Aliort = a / b
Metin10 = Aliort
Form_Load
End Sub