Bilgi Çağırma - Baskı Önizleme

PHP Kod:
Private Sub Pt_Benzin_Hakedis_Click()
Dim ba As Double 'Benzin Teklif Birim Fiatı
Dim bb As Double 'Benzin Toplam Hakediş Miktarı
Dim bc As Double 'Benzin Önceki Dönem Hakediş Miktarı
Dim bd As Double 'Benzin Bu Dönem Hakediş Miktarı
Dim be As Double 'Benzin Toplam Hakediş Tutarı
Dim bf As Double 'Benzin Önceki Dönem Hakediş Tutarı
Dim bg As Double 'Benzin Bu Dönem Hakediş Tutarı
Dim bha As Double 'Toplam Benzin Fiat Farkı Tutarı
Dim bhb As Double 'Önceki Dönem Benzin Fiat Farkı Tutarı
Dim bh As Double 'Benzin Fiat Farkı Tutarı
Dim bı As Double 'Benzin Ödenecek Hakediş Tutarı
Dim ma As Double 'Motorin Teklif Birim Fiatı
Dim mb As Double 'Motorin Toplam Hakediş Miktarı
Dim mc As Double 'Motorin Önceki Dönem Hakediş Miktarı
Dim md As Double 'Motorin Bu Dönem Hakediş Miktarı
Dim ne As Double 'Motorin Toplam Hakediş Tutarı
Dim mf As Double 'Motorin Önceki Dönem Hakediş Tutarı
Dim mg As Double 'Motorin Bu Dönem Hakediş Tutarı
Dim mha As Double 'Toplam Motorin Fiat Farkı Tutarı
Dim mhb As Double 'Önceki Dönem Motorin Fiat Farkı Tutarı
Dim mh As Double 'Motorin Fiat Farkı Tutarı
Dim mı As Double 'Motorin Ödenecek Hakediş Tutarı
'Dim k As Integer 'Kümülatif Toplam Hakediş Tutarı
'Dim n As Integer 'Kümülatif Önceki Dönem Hakediş Tutarı
'Dim m As Integer 'Kümülatif Bu Dönem Hakediş Tutarı
MsgBox "Lütfen Akaryakıt Teslim Tarihi Fiyatını Tümünü Giriniz", vbExclamation + vbOKOnly, "Hatırlatma!!!"
     If IsNull(Alinan_Sira_No) Or IsNull(İhale_Tarih) Or IsNull(B_İhale_Tarih_Fiati) Or IsNull(M_İhale_Tarih_Fiati) Or IsNull(Sozlesme_Tarih) Or IsNull(B_Sozlesme_Tarih_Fiati) Or IsNull(M_Sozlesme_Tarih_Fiati) Or IsNull(Akaryakit_Sirketi) Or IsNull(Alinan_Benzin) Or IsNull(Alinan_Motorin) Then
MsgBox "Lütfen Zorunlu Alanları Boş Bırakmayınız", vbExclamation + vbOKOnly, "İşlem Hatası"
If IsNull(Me.ILKTARIH) Then MsgBox "Lütfen Raporun Başlanğıç Tarihini Giriniz.", 48, "Eksik Kayıt": Me.ILKTARIH.SetFocus: Exit Sub
If IsNull(Me.SONTARIH) Then MsgBox "Lütfen Raporun Bitiş Tarihini Giriniz.", 48, "Eksik Kayıt": Me.SONTARIH.SetFocus: Exit Sub
 For Each Kontrol_edilen In Me
    If Kontrol_edilen.Tag = "kilitli" Then
    Kontrol_edilen.Enabled = True
    End If
    Next Kontrol_edilen
    ILKTARIH.SetFocus
   Else
   On Error GoTo Hatayakala
   DoCmd.OpenReport "Benzin_Fiat_Listesi", acViewPreview, "", "", acNormal
DoCmd.OpenReport "Motorin_Fiat_Listesi", acViewPreview, "", "", acNormal
   DoCmd.OpenForm "Hakedis"
  For Each Denetim In Me
If Denetim.Tag = "kilitli" Then
Denetim.Enabled = True
End If
Next Denetim
DoCmd.GoToRecord , , acNewRec
ba = Me.B_Sozlesme_Tarih_Fiati
ba = Round(ba, 3)
Form_Hakedis.Txt_B_Teklif_Birim_Fiatı = ba
'MsgBox "ba= " & ba, vbExclamation + vbOKOnly, "İşlem Hatası"
bb = DSum("[Benzin]", "Hakedis_Akaryakit_Sorgu")
bb = Round(bb, 2)
'MsgBox "bb= " & bb, vbExclamation + vbOKOnly, "İşlem Hatası"
Form_Hakedis.Txt_B_T_Hakedis_Miktarı = bb
bd = DSum("[Benzin]", "Hakedis_Akaryakit_Sorgu", "[Hakedis_Yapıldı]=0")
bd = Round(bd, 2)
'MsgBox "bd= " & bd, vbExclamation + vbOKOnly, "İşlem Hatası"
Form_Hakedis.Txt_B_D_Hakedis_Miktarı = bd
bc = bb - bd
'bc = DSum("[Benzin]", "Hakedis_Akaryakit_Sorgu", "[Hakedis_Yapıldı]='1'")
'MsgBox "bc= " & bc, vbExclamation + vbOKOnly, "İşlem Hatası"
Form_Hakedis.Txt_B_Ö_Hakedis_Miktarı = bc
be = ba * bb
be = Round(be, 2)
Form_Hakedis.Txt_B_T_Hakedis_Tutarı = be
'MsgBox "be= " & be, vbExclamation + vbOKOnly, "İşlem Hatası"
bf = ba * bc
bf = Round(bf, 2)
Form_Hakedis.Txt_B_Ö_Hakedis_Tutarı = bf
'MsgBox "bf= " & bf, vbExclamation + vbOKOnly, "İşlem Hatası"
bg = ba * bd
bg = Round(bg, 2)
Form_Hakedis.Txt_B_D_Hakedis_Tutarı = bg
'MsgBox "bg= " & bg, vbExclamation + vbOKOnly, "İşlem Hatası"
bha = DSum("[Fiat_Farkı]", "Srg_Benzin_Fiat_Listesi_Toplam")
bha = Round(bha, 2)
'MsgBox "bha= " & bha, vbExclamation + vbOKOnly, "İşlem Hatası"
bh = DSum("[Fiat_Farkı]", "Srg_Benzin_Fiat_Listesi", "[Hakedis_Yapıldı]=0")
bh = Round(bh, 2)
Form_Hakedis.Txt_B_Fiat_Farkı = bh
bhb = bha - bh
bhb = Round(bhb, 2)
Form_Hakedis.Txt_Ö_D_B_Fiat_Farkı = bhb
'MsgBox "bh= " & bh, vbExclamation + vbOKOnly, "İşlem Hatası"
bı = bg + bh
bı = Round(bı, 2)
Form_Hakedis.Txt_B_Toplam_Hakedis_Tutarı = bı
'MsgBox "bı= " & bı, vbExclamation + vbOKOnly, "İşlem Hatası"
ma = Me.M_Sozlesme_Tarih_Fiati
ma = Round(ma, 3)
Form_Hakedis.Txt_M_Teklif_Birim_Fiatı = ma
'MsgBox "ma= " & ma, vbExclamation + vbOKOnly, "İşlem Hatası"
mb = DSum("[Motorin]", "Hakedis_Akaryakit_Sorgu")
mb = Round(mb, 2)
'MsgBox "mb= " & mb, vbExclamation + vbOKOnly, "İşlem Hatası"
Form_Hakedis.Txt_M_T_Hakedis_Miktarı = mb
md = DSum("[Motorin]", "Hakedis_Akaryakit_Sorgu", "[Hakedis_Yapıldı]=0")
'MsgBox "md= " & md, vbExclamation + vbOKOnly, "İşlem Hatası"
md = Round(md, 2)
Form_Hakedis.Txt_M_D_Hakedis_Miktarı = md
mc = mb - md
'mc = DSum("[Motorin]", "Hakedis_Akaryakit_Sorgu", "[Hakedis_Yapıldı]='1'")
'MsgBox "mc= " & mc, vbExclamation + vbOKOnly, "İşlem Hatası"
mc = Round(mc, 2)
Form_Hakedis.Txt_M_Ö_Hakedis_Miktarı = mc
ne = ma * mb
ne = Round(ne, 2)
Form_Hakedis.Txt_M_T_Hakedis_Tutarı = ne
'MsgBox "ne= " & ne, vbExclamation + vbOKOnly, "İşlem Hatası"
mf = ma * mc
mf = Round(mf, 2)
Form_Hakedis.Txt_M_Ö_Hakedis_Tutarı = mf
'MsgBox "mf= " & mf, vbExclamation + vbOKOnly, "İşlem Hatası"
mg = ma * md
mg = Round(mg, 2)
Form_Hakedis.Txt_M_D_Hakedis_Tutarı = mg
'MsgBox "mg= " & mg, vbExclamation + vbOKOnly, "İşlem Hatası"
mha = DSum("[Fiat_Farkı]", "Srg_Motorin_Fiat_Listesi_Toplam")
mha = Round(mha, 2)
'MsgBox "mha= " & mha, vbExclamation + vbOKOnly, "İşlem Hatası"
mh = DSum("[Fiat_Farkı]", "Srg_Motorin_Fiat_Listesi", "[Hakedis_Yapıldı]=0")
mh = Round(mh, 2)
Form_Hakedis.Txt_M_Fiat_Farkı = mh
mhb = mha - mh
mhb = Round(mhb, 2)
Form_Hakedis.Txt_Ö_D_M_Fiat_Farkı = mhb
'MsgBox "mh= " & mh, vbExclamation + vbOKOnly, "İşlem Hatası"
mı = mg + mh
mı = Round(mı, 2)
Form_Hakedis.Txt_M_Toplam_Hakedis_Tutarı = mı
'MsgBox "bı= " & bı, vbExclamation + vbOKOnly, "İşlem Hatası"
Tutanak = "         Müdürlüğümüz hizmetlerinde kullanılan araçların akaryakıt ihtiyaçlarını karşılamak için " & Me.[İhale_Tarih] & " tarihinde yapalan ihaleyi kazanan " & Me.[Akaryakıt_Sirketi] & " Akaryakıt istasyonundan " & Day((Me.[ILKTARIH])) & " - " & Me.SONTARIH & " tarihleri arasında " & md & " litre motorin, " & bd & " litre 95 Oktan kurşunsuz benzin hizmet araçlarımıza alınmış olup;"
Txt_Tutanak = Tutanak
DoCmd.OpenReport "Rpr_Muayene_Komisyon_Tutanağı", acViewPreview, "", "", acNormal

If Err.Number = 94 Then
Hatayakala:
MsgBox "Hakediş Hesaplanacak Akaryakıt Kullanılmamıştır", vbExclamation + vbOKOnly, "İşlem Hatası"
Exit Sub
Else
End If
End If
End Sub