Mesaj kutusuna tablodan veri çağırmak istiyorum.

[abkbek]

Arkadaşlar merhaba,
ekteki personeli bilgileri formunda yer alan "personel kategori No" alanına personelin ehliyet cinsine göre 1'den başlayarak her bir personel için numara vereceğim. bu numaraların verilmesini kolaylaştırmak maksadıyla personel kategori no alanına çift tıklandığında olayına bir mesaj kutusu eklemeyi ve mesaj kutusunda
ehliyet cinsine göre
en son kullanılan numarayı (yani ehliyet cinsine göre en büyük sayıy&#305 göstermek istiyorum.

bunun için gerekli kodu yazabilirmisiniz?
(ayrıca 2nci bir şart da ekleyebilir miyim. örneğin medeni hali ve ehliyet cinsi gibi)

 

[modalı]

Sayın abkbek,

Aşağıdaki kodlar işinizi görür herhalde.

Private Sub ehlkategorino_DblClick(Cancel As Integer)
Dim rs As New ADODB.Recordset
strSQL = "SELECT Max([Personel Temel bilgileri].ehliyetkategorisirasi) AS EnÇokehliyetkategorisirasi, [Personel Temel bilgileri].ehliyetcinsi FROM [Personel Temel bilgileri]GROUP BY [Personel Temel bilgileri].ehliyetcinsi HAVING [Personel Temel bilgileri].ehliyetcinsi='" & Me.ehliyetcinsi & "'"
rs.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
MsgBox rs(1) & " sınıfı ehliyet kategorisinde kayıtlı son numara " & rs(0) & " dır.", vbInformation, "Dikkat"
End Sub

İyi çalışmalar

 

[abkbek]

Sayın modalı,
Hızır gibi yetiştiniz yine, çok teşekkür eder, iyi çalışmalar dilerim.