Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [VBA] Kodları Kısaltabilirmiyiz (Kasıyor)

[VBA] Kodları Kısaltabilirmiyiz (Kasıyor)
Viruse
Yeni Üye 15-40

*
Kayıt Tarihi: 27.01.2010
Toplam 9 konu açtı.
Toplam 24 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 0
#1
31-05-2018, 17:18
Selam Arkadaşlar;

Soruyu nasıl soracağımı bilmiyorum ama aşağıda ki kodları bir kaç satıra sığdırabilirmiyiz. Form açılırken buna benzer bir kaç satırı daha okuyup işlediğinden kasıntı yapıyor.

Şimdiden teşekkürler

Visual Basic
  1. If DLookup("kod", "tbl_0001_DB_RuhsatKayit", "kod = 1") = 1 Then: Me.btn_001.Caption = Nz(Format(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = 1"), ">"), "") & vbCrLf & Nz(DLookup("aracmarka", "tbl_0001_DB_AracMarka", "ID = " & DLookup("marka", "tbl_0001_DB_RuhsatKayit", "kod = 1") & ""), "") & " " & Nz(DLookup("model", "tbl_0001_DB_AracModel", "ID = " & DLookup("model", "tbl_0001_DB_RuhsatKayit", "kod = 1") & ""), "") & vbCrLf & Nz(Format(Date - DLookup("tarihC", "sql_PR_Sefer", "kod = 1"), "0" & " Gün - "), "") & Nz(Format(Time - DLookup("saatC", "sql_PR_Sefer", "kod = 1"), "Short Time"), "") & vbCrLf & Nz(DLookup("personelC", "sql_PR_Sefer", "kod = 1"), DLookup("durumu", "tbl_0001_DB_RuhsatKayit", "kod = 1"))
  2. If DLookup("kod", "tbl_0001_DB_RuhsatKayit", "kod = 2") = 2 Then: Me.btn_002.Caption = Nz(Format(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = 2"), ">"), "") & vbCrLf & Nz(DLookup("aracmarka", "tbl_0001_DB_AracMarka", "ID = " & DLookup("marka", "tbl_0001_DB_RuhsatKayit", "kod = 2") & ""), "") & " " & Nz(DLookup("model", "tbl_0001_DB_AracModel", "ID = " & DLookup("model", "tbl_0001_DB_RuhsatKayit", "kod = 2") & ""), "") & vbCrLf & Nz(Format(Date - DLookup("tarihC", "sql_PR_Sefer", "kod = 2"), "0" & " Gün - "), "") & Nz(Format(Time - DLookup("saatC", "sql_PR_Sefer", "kod = 2"), "Short Time"), "") & vbCrLf & Nz(DLookup("personelC", "sql_PR_Sefer", "kod = 2"), DLookup("durumu", "tbl_0001_DB_RuhsatKayit", "kod = 2"))
  3. If DLookup("kod", "tbl_0001_DB_RuhsatKayit", "kod = 3") = 3 Then: Me.btn_003.Caption = Nz(Format(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = 3"), ">"), "") & vbCrLf & Nz(DLookup("aracmarka", "tbl_0001_DB_AracMarka", "ID = " & DLookup("marka", "tbl_0001_DB_RuhsatKayit", "kod = 3") & ""), "") & " " & Nz(DLookup("model", "tbl_0001_DB_AracModel", "ID = " & DLookup("model", "tbl_0001_DB_RuhsatKayit", "kod = 3") & ""), "") & vbCrLf & Nz(Format(Date - DLookup("tarihC", "sql_PR_Sefer", "kod = 3"), "0" & " Gün - "), "") & Nz(Format(Time - DLookup("saatC", "sql_PR_Sefer", "kod = 3"), "Short Time"), "") & vbCrLf & Nz(DLookup("personelC", "sql_PR_Sefer", "kod = 3"), DLookup("durumu", "tbl_0001_DB_RuhsatKayit", "kod = 3"))
  4. If DLookup("kod", "tbl_0001_DB_RuhsatKayit", "kod = 4") = 4 Then: Me.btn_004.Caption = Nz(Format(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = 4"), ">"), "") & vbCrLf & Nz(DLookup("aracmarka", "tbl_0001_DB_AracMarka", "ID = " & DLookup("marka", "tbl_0001_DB_RuhsatKayit", "kod = 4") & ""), "") & " " & Nz(DLookup("model", "tbl_0001_DB_AracModel", "ID = " & DLookup("model", "tbl_0001_DB_RuhsatKayit", "kod = 4") & ""), "") & vbCrLf & Nz(Format(Date - DLookup("tarihC", "sql_PR_Sefer", "kod = 4"), "0" & " Gün - "), "") & Nz(Format(Time - DLookup("saatC", "sql_PR_Sefer", "kod = 4"), "Short Time"), "") & vbCrLf & Nz(DLookup("personelC", "sql_PR_Sefer", "kod = 4"), DLookup("durumu", "tbl_0001_DB_RuhsatKayit", "kod = 4"))
  5. If DLookup("kod", "tbl_0001_DB_RuhsatKayit", "kod = 5") = 5 Then: Me.btn_005.Caption = Nz(Format(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = 5"), ">"), "") & vbCrLf & Nz(DLookup("aracmarka", "tbl_0001_DB_AracMarka", "ID = " & DLookup("marka", "tbl_0001_DB_RuhsatKayit", "kod = 5") & ""), "") & " " & Nz(DLookup("model", "tbl_0001_DB_AracModel", "ID = " & DLookup("model", "tbl_0001_DB_RuhsatKayit", "kod = 5") & ""), "") & vbCrLf & Nz(Format(Date - DLookup("tarihC", "sql_PR_Sefer", "kod = 5"), "0" & " Gün - "), "") & Nz(Format(Time - DLookup("saatC", "sql_PR_Sefer", "kod = 5"), "Short Time"), "") & vbCrLf & Nz(DLookup("personelC", "sql_PR_Sefer", "kod = 5"), DLookup("durumu", "tbl_0001_DB_RuhsatKayit", "kod = 5"))
  6. If DLookup("kod", "tbl_0001_DB_RuhsatKayit", "kod = 6") = 6 Then: Me.btn_006.Caption = Nz(Format(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = 6"), ">"), "") & vbCrLf & Nz(DLookup("aracmarka", "tbl_0001_DB_AracMarka", "ID = " & DLookup("marka", "tbl_0001_DB_RuhsatKayit", "kod = 6") & ""), "") & " " & Nz(DLookup("model", "tbl_0001_DB_AracModel", "ID = " & DLookup("model", "tbl_0001_DB_RuhsatKayit", "kod = 6") & ""), "") & vbCrLf & Nz(Format(Date - DLookup("tarihC", "sql_PR_Sefer", "kod = 6"), "0" & " Gün - "), "") & Nz(Format(Time - DLookup("saatC", "sql_PR_Sefer", "kod = 6"), "Short Time"), "") & vbCrLf & Nz(DLookup("personelC", "sql_PR_Sefer", "kod = 6"), DLookup("durumu", "tbl_0001_DB_RuhsatKayit", "kod = 6"))
  7. If DLookup("kod", "tbl_0001_DB_RuhsatKayit", "kod = 7") = 7 Then: Me.btn_007.Caption = Nz(Format(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = 7"), ">"), "") & vbCrLf & Nz(DLookup("aracmarka", "tbl_0001_DB_AracMarka", "ID = " & DLookup("marka", "tbl_0001_DB_RuhsatKayit", "kod = 7") & ""), "") & " " & Nz(DLookup("model", "tbl_0001_DB_AracModel", "ID = " & DLookup("model", "tbl_0001_DB_RuhsatKayit", "kod = 7") & ""), "") & vbCrLf & Nz(Format(Date - DLookup("tarihC", "sql_PR_Sefer", "kod = 7"), "0" & " Gün - "), "") & Nz(Format(Time - DLookup("saatC", "sql_PR_Sefer", "kod = 7"), "Short Time"), "") & vbCrLf & Nz(DLookup("personelC", "sql_PR_Sefer", "kod = 7"), DLookup("durumu", "tbl_0001_DB_RuhsatKayit", "kod = 7"))
  8. If DLookup("kod", "tbl_0001_DB_RuhsatKayit", "kod = 8") = 8 Then: Me.btn_008.Caption = Nz(Format(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = 8"), ">"), "") & vbCrLf & Nz(DLookup("aracmarka", "tbl_0001_DB_AracMarka", "ID = " & DLookup("marka", "tbl_0001_DB_RuhsatKayit", "kod = 8") & ""), "") & " " & Nz(DLookup("model", "tbl_0001_DB_AracModel", "ID = " & DLookup("model", "tbl_0001_DB_RuhsatKayit", "kod = 8") & ""), "") & vbCrLf & Nz(Format(Date - DLookup("tarihC", "sql_PR_Sefer", "kod = 8"), "0" & " Gün - "), "") & Nz(Format(Time - DLookup("saatC", "sql_PR_Sefer", "kod = 8"), "Short Time"), "") & vbCrLf & Nz(DLookup("personelC", "sql_PR_Sefer", "kod = 8"), DLookup("durumu", "tbl_0001_DB_RuhsatKayit", "kod = 8"))
  9. If DLookup("kod", "tbl_0001_DB_RuhsatKayit", "kod = 9") = 9 Then: Me.btn_009.Caption = Nz(Format(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = 9"), ">"), "") & vbCrLf & Nz(DLookup("aracmarka", "tbl_0001_DB_AracMarka", "ID = " & DLookup("marka", "tbl_0001_DB_RuhsatKayit", "kod = 9") & ""), "") & " " & Nz(DLookup("model", "tbl_0001_DB_AracModel", "ID = " & DLookup("model", "tbl_0001_DB_RuhsatKayit", "kod = 9") & ""), "") & vbCrLf & Nz(Format(Date - DLookup("tarihC", "sql_PR_Sefer", "kod = 9"), "0" & " Gün - "), "") & Nz(Format(Time - DLookup("saatC", "sql_PR_Sefer", "kod = 9"), "Short Time"), "") & vbCrLf & Nz(DLookup("personelC", "sql_PR_Sefer", "kod = 9"), DLookup("durumu", "tbl_0001_DB_RuhsatKayit", "kod = 9"))
  10. If DLookup("kod", "tbl_0001_DB_RuhsatKayit", "kod = 10") = 10 Then: Me.btn_010.Caption = Nz(Format(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = 10"), ">"), "") & vbCrLf & Nz(DLookup("aracmarka", "tbl_0001_DB_AracMarka", "ID = " & DLookup("marka", "tbl_0001_DB_RuhsatKayit", "kod = 10") & ""), "") & " " & Nz(DLookup("model", "tbl_0001_DB_AracModel", "ID = " & DLookup("model", "tbl_0001_DB_RuhsatKayit", "kod = 10") & ""), "") & vbCrLf & Nz(Format(Date - DLookup("tarihC", "sql_PR_Sefer", "kod = 10"), "0" & " Gün - "), "") & Nz(Format(Time - DLookup("saatC", "sql_PR_Sefer", "kod = 10"), "Short Time"), "") & vbCrLf & Nz(DLookup("personelC", "sql_PR_Sefer", "kod = 10"), DLookup("durumu", "tbl_0001_DB_RuhsatKayit", "kod = 10"))
  11. If DLookup("kod", "tbl_0001_DB_RuhsatKayit", "kod = 11") = 11 Then: Me.btn_011.Caption = Nz(Format(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = 11"), ">"), "") & vbCrLf & Nz(DLookup("aracmarka", "tbl_0001_DB_AracMarka", "ID = " & DLookup("marka", "tbl_0001_DB_RuhsatKayit", "kod = 11") & ""), "") & " " & Nz(DLookup("model", "tbl_0001_DB_AracModel", "ID = " & DLookup("model", "tbl_0001_DB_RuhsatKayit", "kod = 11") & ""), "") & vbCrLf & Nz(Format(Date - DLookup("tarihC", "sql_PR_Sefer", "kod = 11"), "0" & " Gün - "), "") & Nz(Format(Time - DLookup("saatC", "sql_PR_Sefer", "kod = 11"), "Short Time"), "") & vbCrLf & Nz(DLookup("personelC", "sql_PR_Sefer", "kod = 11"), DLookup("durumu", "tbl_0001_DB_RuhsatKayit", "kod = 11"))
  12. If DLookup("kod", "tbl_0001_DB_RuhsatKayit", "kod = 12") = 12 Then: Me.btn_012.Caption = Nz(Format(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = 12"), ">"), "") & vbCrLf & Nz(DLookup("aracmarka", "tbl_0001_DB_AracMarka", "ID = " & DLookup("marka", "tbl_0001_DB_RuhsatKayit", "kod = 12") & ""), "") & " " & Nz(DLookup("model", "tbl_0001_DB_AracModel", "ID = " & DLookup("model", "tbl_0001_DB_RuhsatKayit", "kod = 12") & ""), "") & vbCrLf & Nz(Format(Date - DLookup("tarihC", "sql_PR_Sefer", "kod = 12"), "0" & " Gün - "), "") & Nz(Format(Time - DLookup("saatC", "sql_PR_Sefer", "kod = 12"), "Short Time"), "") & vbCrLf & Nz(DLookup("personelC", "sql_PR_Sefer", "kod = 12"), DLookup("durumu", "tbl_0001_DB_RuhsatKayit", "kod = 12"))
  13. If DLookup("kod", "tbl_0001_DB_RuhsatKayit", "kod = 13") = 13 Then: Me.btn_013.Caption = Nz(Format(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = 13"), ">"), "") & vbCrLf & Nz(DLookup("aracmarka", "tbl_0001_DB_AracMarka", "ID = " & DLookup("marka", "tbl_0001_DB_RuhsatKayit", "kod = 13") & ""), "") & " " & Nz(DLookup("model", "tbl_0001_DB_AracModel", "ID = " & DLookup("model", "tbl_0001_DB_RuhsatKayit", "kod = 13") & ""), "") & vbCrLf & Nz(Format(Date - DLookup("tarihC", "sql_PR_Sefer", "kod = 13"), "0" & " Gün - "), "") & Nz(Format(Time - DLookup("saatC", "sql_PR_Sefer", "kod = 13"), "Short Time"), "") & vbCrLf & Nz(DLookup("personelC", "sql_PR_Sefer", "kod = 13"), DLookup("durumu", "tbl_0001_DB_RuhsatKayit", "kod = 13"))
  14. If DLookup("kod", "tbl_0001_DB_RuhsatKayit", "kod = 14") = 14 Then: Me.btn_014.Caption = Nz(Format(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = 14"), ">"), "") & vbCrLf & Nz(DLookup("aracmarka", "tbl_0001_DB_AracMarka", "ID = " & DLookup("marka", "tbl_0001_DB_RuhsatKayit", "kod = 14") & ""), "") & " " & Nz(DLookup("model", "tbl_0001_DB_AracModel", "ID = " & DLookup("model", "tbl_0001_DB_RuhsatKayit", "kod = 14") & ""), "") & vbCrLf & Nz(Format(Date - DLookup("tarihC", "sql_PR_Sefer", "kod = 14"), "0" & " Gün - "), "") & Nz(Format(Time - DLookup("saatC", "sql_PR_Sefer", "kod = 14"), "Short Time"), "") & vbCrLf & Nz(DLookup("personelC", "sql_PR_Sefer", "kod = 14"), DLookup("durumu", "tbl_0001_DB_RuhsatKayit", "kod = 14"))
  15. If DLookup("kod", "tbl_0001_DB_RuhsatKayit", "kod = 15") = 15 Then: Me.btn_015.Caption = Nz(Format(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = 15"), ">"), "") & vbCrLf & Nz(DLookup("aracmarka", "tbl_0001_DB_AracMarka", "ID = " & DLookup("marka", "tbl_0001_DB_RuhsatKayit", "kod = 15") & ""), "") & " " & Nz(DLookup("model", "tbl_0001_DB_AracModel", "ID = " & DLookup("model", "tbl_0001_DB_RuhsatKayit", "kod = 15") & ""), "") & vbCrLf & Nz(Format(Date - DLookup("tarihC", "sql_PR_Sefer", "kod = 15"), "0" & " Gün - "), "") & Nz(Format(Time - DLookup("saatC", "sql_PR_Sefer", "kod = 15"), "Short Time"), "") & vbCrLf & Nz(DLookup("personelC", "sql_PR_Sefer", "kod = 15"), DLookup("durumu", "tbl_0001_DB_RuhsatKayit", "kod = 15"))
  16. If DLookup("kod", "tbl_0001_DB_RuhsatKayit", "kod = 16") = 16 Then: Me.btn_016.Caption = Nz(Format(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = 16"), ">"), "") & vbCrLf & Nz(DLookup("aracmarka", "tbl_0001_DB_AracMarka", "ID = " & DLookup("marka", "tbl_0001_DB_RuhsatKayit", "kod = 16") & ""), "") & " " & Nz(DLookup("model", "tbl_0001_DB_AracModel", "ID = " & DLookup("model", "tbl_0001_DB_RuhsatKayit", "kod = 16") & ""), "") & vbCrLf & Nz(Format(Date - DLookup("tarihC", "sql_PR_Sefer", "kod = 16"), "0" & " Gün - "), "") & Nz(Format(Time - DLookup("saatC", "sql_PR_Sefer", "kod = 16"), "Short Time"), "") & vbCrLf & Nz(DLookup("personelC", "sql_PR_Sefer", "kod = 16"), DLookup("durumu", "tbl_0001_DB_RuhsatKayit", "kod = 16"))
  17. If DLookup("kod", "tbl_0001_DB_RuhsatKayit", "kod = 17") = 17 Then: Me.btn_017.Caption = Nz(Format(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = 17"), ">"), "") & vbCrLf & Nz(DLookup("aracmarka", "tbl_0001_DB_AracMarka", "ID = " & DLookup("marka", "tbl_0001_DB_RuhsatKayit", "kod = 17") & ""), "") & " " & Nz(DLookup("model", "tbl_0001_DB_AracModel", "ID = " & DLookup("model", "tbl_0001_DB_RuhsatKayit", "kod = 17") & ""), "") & vbCrLf & Nz(Format(Date - DLookup("tarihC", "sql_PR_Sefer", "kod = 17"), "0" & " Gün - "), "") & Nz(Format(Time - DLookup("saatC", "sql_PR_Sefer", "kod = 17"), "Short Time"), "") & vbCrLf & Nz(DLookup("personelC", "sql_PR_Sefer", "kod = 17"), DLookup("durumu", "tbl_0001_DB_RuhsatKayit", "kod = 17"))
  18. If DLookup("kod", "tbl_0001_DB_RuhsatKayit", "kod = 18") = 18 Then: Me.btn_018.Caption = Nz(Format(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = 18"), ">"), "") & vbCrLf & Nz(DLookup("aracmarka", "tbl_0001_DB_AracMarka", "ID = " & DLookup("marka", "tbl_0001_DB_RuhsatKayit", "kod = 18") & ""), "") & " " & Nz(DLookup("model", "tbl_0001_DB_AracModel", "ID = " & DLookup("model", "tbl_0001_DB_RuhsatKayit", "kod = 18") & ""), "") & vbCrLf & Nz(Format(Date - DLookup("tarihC", "sql_PR_Sefer", "kod = 18"), "0" & " Gün - "), "") & Nz(Format(Time - DLookup("saatC", "sql_PR_Sefer", "kod = 18"), "Short Time"), "") & vbCrLf & Nz(DLookup("personelC", "sql_PR_Sefer", "kod = 18"), DLookup("durumu", "tbl_0001_DB_RuhsatKayit", "kod = 18"))
  19. If DLookup("kod", "tbl_0001_DB_RuhsatKayit", "kod = 19") = 19 Then: Me.btn_019.Caption = Nz(Format(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = 19"), ">"), "") & vbCrLf & Nz(DLookup("aracmarka", "tbl_0001_DB_AracMarka", "ID = " & DLookup("marka", "tbl_0001_DB_RuhsatKayit", "kod = 19") & ""), "") & " " & Nz(DLookup("model", "tbl_0001_DB_AracModel", "ID = " & DLookup("model", "tbl_0001_DB_RuhsatKayit", "kod = 19") & ""), "") & vbCrLf & Nz(Format(Date - DLookup("tarihC", "sql_PR_Sefer", "kod = 19"), "0" & " Gün - "), "") & Nz(Format(Time - DLookup("saatC", "sql_PR_Sefer", "kod = 19"), "Short Time"), "") & vbCrLf & Nz(DLookup("personelC", "sql_PR_Sefer", "kod = 19"), DLookup("durumu", "tbl_0001_DB_RuhsatKayit", "kod = 19"))
  20. If DLookup("kod", "tbl_0001_DB_RuhsatKayit", "kod = 20") = 20 Then: Me.btn_020.Caption = Nz(Format(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = 20"), ">"), "") & vbCrLf & Nz(DLookup("aracmarka", "tbl_0001_DB_AracMarka", "ID = " & DLookup("marka", "tbl_0001_DB_RuhsatKayit", "kod = 20") & ""), "") & " " & Nz(DLookup("model", "tbl_0001_DB_AracModel", "ID = " & DLookup("model", "tbl_0001_DB_RuhsatKayit", "kod = 20") & ""), "") & vbCrLf & Nz(Format(Date - DLookup("tarihC", "sql_PR_Sefer", "kod = 20"), "0" & " Gün - "), "") & Nz(Format(Time - DLookup("saatC", "sql_PR_Sefer", "kod = 20"), "Short Time"), "") & vbCrLf & Nz(DLookup("personelC", "sql_PR_Sefer", "kod = 20"), DLookup("durumu", "tbl_0001_DB_RuhsatKayit", "kod = 20"))
  21. If DLookup("kod", "tbl_0001_DB_RuhsatKayit", "kod = 21") = 21 Then: Me.btn_021.Caption = Nz(Format(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = 21"), ">"), "") & vbCrLf & Nz(DLookup("aracmarka", "tbl_0001_DB_AracMarka", "ID = " & DLookup("marka", "tbl_0001_DB_RuhsatKayit", "kod = 21") & ""), "") & " " & Nz(DLookup("model", "tbl_0001_DB_AracModel", "ID = " & DLookup("model", "tbl_0001_DB_RuhsatKayit", "kod = 21") & ""), "") & vbCrLf & Nz(Format(Date - DLookup("tarihC", "sql_PR_Sefer", "kod = 21"), "0" & " Gün - "), "") & Nz(Format(Time - DLookup("saatC", "sql_PR_Sefer", "kod = 21"), "Short Time"), "") & vbCrLf & Nz(DLookup("personelC", "sql_PR_Sefer", "kod = 21"), DLookup("durumu", "tbl_0001_DB_RuhsatKayit", "kod = 21"))
  22. If DLookup("kod", "tbl_0001_DB_RuhsatKayit", "kod = 22") = 22 Then: Me.btn_022.Caption = Nz(Format(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = 22"), ">"), "") & vbCrLf & Nz(DLookup("aracmarka", "tbl_0001_DB_AracMarka", "ID = " & DLookup("marka", "tbl_0001_DB_RuhsatKayit", "kod = 22") & ""), "") & " " & Nz(DLookup("model", "tbl_0001_DB_AracModel", "ID = " & DLookup("model", "tbl_0001_DB_RuhsatKayit", "kod = 22") & ""), "") & vbCrLf & Nz(Format(Date - DLookup("tarihC", "sql_PR_Sefer", "kod = 22"), "0" & " Gün - "), "") & Nz(Format(Time - DLookup("saatC", "sql_PR_Sefer", "kod = 22"), "Short Time"), "") & vbCrLf & Nz(DLookup("personelC", "sql_PR_Sefer", "kod = 22"), DLookup("durumu", "tbl_0001_DB_RuhsatKayit", "kod = 22"))
  23. If DLookup("kod", "tbl_0001_DB_RuhsatKayit", "kod = 23") = 23 Then: Me.btn_023.Caption = Nz(Format(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = 23"), ">"), "") & vbCrLf & Nz(DLookup("aracmarka", "tbl_0001_DB_AracMarka", "ID = " & DLookup("marka", "tbl_0001_DB_RuhsatKayit", "kod = 23") & ""), "") & " " & Nz(DLookup("model", "tbl_0001_DB_AracModel", "ID = " & DLookup("model", "tbl_0001_DB_RuhsatKayit", "kod = 23") & ""), "") & vbCrLf & Nz(Format(Date - DLookup("tarihC", "sql_PR_Sefer", "kod = 23"), "0" & " Gün - "), "") & Nz(Format(Time - DLookup("saatC", "sql_PR_Sefer", "kod = 23"), "Short Time"), "") & vbCrLf & Nz(DLookup("personelC", "sql_PR_Sefer", "kod = 23"), DLookup("durumu", "tbl_0001_DB_RuhsatKayit", "kod = 23"))
  24. If DLookup("kod", "tbl_0001_DB_RuhsatKayit", "kod = 24") = 24 Then: Me.btn_024.Caption = Nz(Format(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = 24"), ">"), "") & vbCrLf & Nz(DLookup("aracmarka", "tbl_0001_DB_AracMarka", "ID = " & DLookup("marka", "tbl_0001_DB_RuhsatKayit", "kod = 24") & ""), "") & " " & Nz(DLookup("model", "tbl_0001_DB_AracModel", "ID = " & DLookup("model", "tbl_0001_DB_RuhsatKayit", "kod = 24") & ""), "") & vbCrLf & Nz(Format(Date - DLookup("tarihC", "sql_PR_Sefer", "kod = 24"), "0" & " Gün - "), "") & Nz(Format(Time - DLookup("saatC", "sql_PR_Sefer", "kod = 24"), "Short Time"), "") & vbCrLf & Nz(DLookup("personelC", "sql_PR_Sefer", "kod = 24"), DLookup("durumu", "tbl_0001_DB_RuhsatKayit", "kod = 24"))
  25. If DLookup("kod", "tbl_0001_DB_RuhsatKayit", "kod = 25") = 25 Then: Me.btn_025.Caption = Nz(Format(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = 25"), ">"), "") & vbCrLf & Nz(DLookup("aracmarka", "tbl_0001_DB_AracMarka", "ID = " & DLookup("marka", "tbl_0001_DB_RuhsatKayit", "kod = 25") & ""), "") & " " & Nz(DLookup("model", "tbl_0001_DB_AracModel", "ID = " & DLookup("model", "tbl_0001_DB_RuhsatKayit", "kod = 25") & ""), "") & vbCrLf & Nz(Format(Date - DLookup("tarihC", "sql_PR_Sefer", "kod = 25"), "0" & " Gün - "), "") & Nz(Format(Time - DLookup("saatC", "sql_PR_Sefer", "kod = 25"), "Short Time"), "") & vbCrLf & Nz(DLookup("personelC", "sql_PR_Sefer", "kod = 25"), DLookup("durumu", "tbl_0001_DB_RuhsatKayit", "kod = 25"))
  26. If DLookup("kod", "tbl_0001_DB_RuhsatKayit", "kod = 26") = 26 Then: Me.btn_026.Caption = Nz(Format(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = 26"), ">"), "") & vbCrLf & Nz(DLookup("aracmarka", "tbl_0001_DB_AracMarka", "ID = " & DLookup("marka", "tbl_0001_DB_RuhsatKayit", "kod = 26") & ""), "") & " " & Nz(DLookup("model", "tbl_0001_DB_AracModel", "ID = " & DLookup("model", "tbl_0001_DB_RuhsatKayit", "kod = 26") & ""), "") & vbCrLf & Nz(Format(Date - DLookup("tarihC", "sql_PR_Sefer", "kod = 26"), "0" & " Gün - "), "") & Nz(Format(Time - DLookup("saatC", "sql_PR_Sefer", "kod = 26"), "Short Time"), "") & vbCrLf & Nz(DLookup("personelC", "sql_PR_Sefer", "kod = 26"), DLookup("durumu", "tbl_0001_DB_RuhsatKayit", "kod = 26"))
  27. If DLookup("kod", "tbl_0001_DB_RuhsatKayit", "kod = 27") = 27 Then: Me.btn_027.Caption = Nz(Format(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = 27"), ">"), "") & vbCrLf & Nz(DLookup("aracmarka", "tbl_0001_DB_AracMarka", "ID = " & DLookup("marka", "tbl_0001_DB_RuhsatKayit", "kod = 27") & ""), "") & " " & Nz(DLookup("model", "tbl_0001_DB_AracModel", "ID = " & DLookup("model", "tbl_0001_DB_RuhsatKayit", "kod = 27") & ""), "") & vbCrLf & Nz(Format(Date - DLookup("tarihC", "sql_PR_Sefer", "kod = 27"), "0" & " Gün - "), "") & Nz(Format(Time - DLookup("saatC", "sql_PR_Sefer", "kod = 27"), "Short Time"), "") & vbCrLf & Nz(DLookup("personelC", "sql_PR_Sefer", "kod = 27"), DLookup("durumu", "tbl_0001_DB_RuhsatKayit", "kod = 27"))
  28. If DLookup("kod", "tbl_0001_DB_RuhsatKayit", "kod = 28") = 28 Then: Me.btn_028.Caption = Nz(Format(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = 28"), ">"), "") & vbCrLf & Nz(DLookup("aracmarka", "tbl_0001_DB_AracMarka", "ID = " & DLookup("marka", "tbl_0001_DB_RuhsatKayit", "kod = 28") & ""), "") & " " & Nz(DLookup("model", "tbl_0001_DB_AracModel", "ID = " & DLookup("model", "tbl_0001_DB_RuhsatKayit", "kod = 28") & ""), "") & vbCrLf & Nz(Format(Date - DLookup("tarihC", "sql_PR_Sefer", "kod = 28"), "0" & " Gün - "), "") & Nz(Format(Time - DLookup("saatC", "sql_PR_Sefer", "kod = 28"), "Short Time"), "") & vbCrLf & Nz(DLookup("personelC", "sql_PR_Sefer", "kod = 28"), DLookup("durumu", "tbl_0001_DB_RuhsatKayit", "kod = 28"))
  29. If DLookup("kod", "tbl_0001_DB_RuhsatKayit", "kod = 29") = 29 Then: Me.btn_029.Caption = Nz(Format(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = 29"), ">"), "") & vbCrLf & Nz(DLookup("aracmarka", "tbl_0001_DB_AracMarka", "ID = " & DLookup("marka", "tbl_0001_DB_RuhsatKayit", "kod = 29") & ""), "") & " " & Nz(DLookup("model", "tbl_0001_DB_AracModel", "ID = " & DLookup("model", "tbl_0001_DB_RuhsatKayit", "kod = 29") & ""), "") & vbCrLf & Nz(Format(Date - DLookup("tarihC", "sql_PR_Sefer", "kod = 29"), "0" & " Gün - "), "") & Nz(Format(Time - DLookup("saatC", "sql_PR_Sefer", "kod = 29"), "Short Time"), "") & vbCrLf & Nz(DLookup("personelC", "sql_PR_Sefer", "kod = 29"), DLookup("durumu", "tbl_0001_DB_RuhsatKayit", "kod = 29"))
  30. If DLookup("kod", "tbl_0001_DB_RuhsatKayit", "kod = 30") = 30 Then: Me.btn_030.Caption = Nz(Format(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = 30"), ">"), "") & vbCrLf & Nz(DLookup("aracmarka", "tbl_0001_DB_AracMarka", "ID = " & DLookup("marka", "tbl_0001_DB_RuhsatKayit", "kod = 30") & ""), "") & " " & Nz(DLookup("model", "tbl_0001_DB_AracModel", "ID = " & DLookup("model", "tbl_0001_DB_RuhsatKayit", "kod = 30") & ""), "") & vbCrLf & Nz(Format(Date - DLookup("tarihC", "sql_PR_Sefer", "kod = 30"), "0" & " Gün - "), "") & Nz(Format(Time - DLookup("saatC", "sql_PR_Sefer", "kod = 30"), "Short Time"), "") & vbCrLf & Nz(DLookup("personelC", "sql_PR_Sefer", "kod = 30"), DLookup("durumu", "tbl_0001_DB_RuhsatKayit", "kod = 30"))





  Bul
  Alıntı
Bu mesajı beğenenler:
Viruse
Yeni Üye 15-40

*
Kayıt Tarihi: 27.01.2010
Toplam 9 konu açtı.
Toplam 24 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 0
#2
31-05-2018, 17:21
Aklımdayken;

her bir satır bir butonun Caption' u. bu kodları Form_Current olayında değerlendiriyorum.



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.087 yorum yaptı.
Toplam 1.089 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 57 / 239
#3
31-05-2018, 17:53
Dim Sayac as long
For sayac=1 to 12
Me.Controls("btn_" & Format(Sayac, "000")).Caption = _
Nz(StrConv(DLookup("plaka", "tbl_0001_DB_RuhsatKayit", "kod = " & Sayac), vbUpperCase), "") & vbCrLf
.....
.....
next sayac

dongu ile yapilabilir.

Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Ders Kodları Tablosundaki Alan Adlarına Göre öğrencinin Sınıfını Belirlemek .. programmer67 8 908 18-05-2023, 16:49
Son Mesaj: programmer67
  [SORGU] Aynı Kodları Barındıran Ama Bağlı Oldukları Alanları Farklı Iki Tabloyu Eşleştirme tarkanaykın 4 586 22-02-2022, 16:09
Son Mesaj: tarkanaykın
  [VBA] Tablo Gizleme Gösterme Kodları ekremer1969 2 885 23-04-2021, 20:54
Son Mesaj: ekremer1969
  Vba Kodları Visual Studio Da çalışırmı erdenferdi06 2 655 10-06-2020, 13:38
Son Mesaj: erdenferdi06
  [VBA] Word Şablona VB Kodları ile veri işletmede faydalı olabilecek notlar bibib 3 1.618 01-04-2019, 00:11
Son Mesaj: abkbek
  RENK Kodlari srknerdgn 6 3.406 08-03-2019, 12:05
Son Mesaj: srknerdgn
  [VBA] VBA Kodları burakmuhasebe34 2 2.233 14-10-2015, 12:40
Son Mesaj: burakmuhasebe34
  [VBA] Access kodları evren89 1 2.024 25-09-2015, 15:08
Son Mesaj: iscinar

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi