Maximum olanı yaz...

[yasaramca]

Merhaba,

Formu açtığımda C hücresine. A isimli tabloda B kolonunda bulunan kayıtların maximum olanını yazmasını istiyorum. Fakat form tabloya bağlı çalışmıyor.

Teşekkürler,

 

[beab05]

Merhaba;
İlgili formun açıldığında olayına alttaki kodu yazınız ve select cümlesindeki ilgili yerleri düzeltiniz..

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = CurrentProject.Connection
Set rs = New ADODB.Recordset

  rs.Open "select max(B_KOLONU)as ENYUKSEK from A_TABLOSU", cn, adOpenKeyset, adLockOptimistic
 Me.C_HUCRESİ = rs("ENYUKSEK")
  
cn.Close
Set cn = Nothing
Set rs = Nothing

Ya da ilgili alanın denetim kaynağına alttaki kodu yazınız daha basit ama daha yavaştır..

=DMax("B_KOLONU";"A_TABLOSU")