Merhaba;
İlgili formun açıldığında olayına alttaki kodu yazınız ve select cümlesindeki ilgili yerleri düzeltiniz..
Kod:
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..
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.