Merhaba arkadaşlar,

Ekteki kendimce bir KAYIT PROGRAMI yapmaya çalışıyorum ama Hesapla butonuna bastığımda vb dlookup ile bir türlü sonuç alamadım hatam nerede acaba.

kod içeriği aşağıdadır.

yardımcı olabilirseniz sevinirim.


-------------------------------------------------
Private Sub hesapla_Click()

Dim GKriter As String
Dim GKademe As String

If IsNull([yeni_kademe]) Or Me.yeni_kademe = "" Then
MsgBox ("Yeni Kademeyi Seçiniz")

Exit Sub

ElseIf IsNull([kayit_turu]) Or [KAYITTURU] = "" Then
MsgBox ("Kayıt türünü seçiniz")

End If

GKriter = [kayit_turu].Column(1) & IIf([%5_pesin_odeme_iskontosu] = "-1", " + %5", "") & IIf([%5_ogretmen_iskontosu] = "-1", " + %5", "") & IIf([%5_kardes_iskontosu] = "-1", " + %5", "") & IIf([%5_mezun_iskontosu] = "-1", " + %5", "") & IIf([%5_toplu_kayit_iskontosu] = "-1", " + %5", "")

GKademe = Me.[yeni_kademe].Column(1)

Me.kayit_ucreti = DLookup("[UCRET]", "T_ucret_iskontolu", "[kayit_turu]='" & GKriter & "' And [yeni_kademe]='" & GKademe & "'")

End Sub

%5 sutunları verı tipi evet/hayir ise "-1"'i -1 seklinde yazin. Indirimlerin toplamini kasdediyor ve
[kayit_turu].Column(1)="T"
GKriter="T25" ile kriter olusturulmasi isteniyorsa

GKriter = [kayit_turu].Column(1) & IIf([%5_pesin_odeme_iskontosu] = -1, 5, 0) + IIf([%5_ogretmen_iskontosu] = -1, 5, 0) + IIf([%5_kardes_iskontosu] = -1, 5, 0) + IIf([%5_mezun_iskontosu] = -1, 5, 0) + IIf([%5_toplu_kayit_iskontosu] = -1, 5, 0)

yapilabilir.

Öncelikle cevap yazdığınız için çok teşekkür ederim fakat dediğinizi denedim çalışmadı malesef.

Dogal, cunku ornek ekleseydiniz test yapma sansim olurdu. Oneri dogrultusunda degiskenlerin dogru yazilmasi gerekmekte, benim onerim tahmini nesneler ile olmustu.

Haklısınız k.bakmayın,

Ben ilk mesajda ekledim sandım, zip lemeden eklemişim almamış.

  KAYITSON1.rar (Boyut: 52,77 KB / İndirilme: 95) Tablo alan isimleri ile form metin kutu adlarini ayni yapilmasi ile hesaplama buton olay yordami degistirilmistir.