Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [VBA] If kullanımı ve işlem sırası nasıl olmalsıdır

[VBA] If kullanımı ve işlem sırası nasıl olmalsıdır
sonerdursun
Önemli Üye 300-400

*
Kayıt Tarihi: 25.08.2008
Toplam 60 konu açtı.
Toplam 309 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016,
Beğeniler: 0 / 1
#1
19-06-2013, 19:49
Aşağıdaki kodda If nasıl kullanılmalı mevcut haliyle iki defa uyarı veriyor
1.uyarıda hayır dersem işlem duruyor 2.uyarıda şart uygunsa evet seçince devam
hayır seçince işlem duruyor şart uygun değilse evet hayır farketmiyor.
Visual Basic
  1. Private Sub ODEMEYAP_Click()
  2. If MsgBox("Dikkat Tüm Taksitleri ödendi olarak Belirliyorsunuz._
  3. Sadece Blokeli kart Ve Nakit işlemlerde bu işlemi yapınız.", 52,_
  4.  "Yapılan Seçim Geri alınamayacaktır.") = 6 Then
  5.  
  6.     stDocName = "Srg_ODEMEEKLE"
  7.     DoCmd.OpenQuery stDocName, acNormal, acEdit
  8.  
  9.     stDocName = "Srg_ODEMEGUNCELLE"
  10.     DoCmd.OpenQuery stDocName, acNormal, acEdit
  11. End If
  12. If MsgBox("Poliçe nakit yapıldı kasaya tahsilat eklemek istermisiniz...", 52,_
  13.  "Yapılan Seçim Geri alınamayacaktır.") = 6 Then
  14.   Select Case Me.ODEMESEKLI.Column(1)                   'ÖDEME ŞEKLİ NAKİT İSE
  15.   Case "NAKİT(PEŞİN)"
  16.   On Error Resume Next
  17.         Dim cnr As New ADODB.Recordset
  18.         Set cnr = New ADODB.Recordset
  19.         Dim sql As String
  20.         sql = "select * from Tbl_KASAHESABI"
  21.         cnr.Open sql, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
  22.         cnr.AddNew
  23.         cnr("CariID") = Me.CariID
  24.         cnr("TemsilciID") = Me.TemsilciID
  25.         cnr("GurupID") = Me.GurupID
  26.         cnr("TARIH") = Format(Me.DUZENLEMETARIHI, "dd/mm/yyyy")
  27.         cnr("SIRKETPOLICENO") = Me.SIRKETPOLICENO
  28.         cnr("SIGORTASIRKETI") = Me.SIGORTASIRKETI.Column(0)
  29.         cnr("KAYITTURU") = Me.POLICETIPI.Column(4)
  30.         cnr("ADISOYADI") = Me.CARIMETIN
  31.         cnr("ACIKLAMA") = Me.ACIKLAMA
  32.         cnr("GELIR") = Me.TOPLAM
  33.         cnr("GIDER") = 0
  34.         cnr("PoliceID") = Me.PoliceID
  35.         cnr.Update
  36.         cnr.Close
  37.         MsgBox "İşlem Nakit olduğundan kasa hesabına kayıt edildi"
  38. End Select
  39. End If
  40.   Me.ODEMEONAY.Enabled = False
  41.  
  42. End Sub






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

*
Kayıt Tarihi: 10.05.2013
Toplam 4 konu açtı.
Toplam 28 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2000, Office 2003, Office 2007 TR, Office 2007 EN, Office 2010 TR, Office 2010 EN,
Beğeniler: 0 / 0
#2
19-06-2013, 20:12 (En son düzenleme: 19-06-2013, 20:37 bilisim_01.)
IF degilde " if " Şeklnde yaparsanz sorun duzelebılır IF komutu farklı algılanabılıyor program hatalarında

Visual Basic
  1. Private Sub ODEMEYAP_Click()
  2. if MsgBox("Dikkat Tüm Taksitleri ödendi olarak Belirliyorsunuz._
  3. Sadece Blokeli kart Ve Nakit işlemlerde bu işlemi yapınız.", 52,_
  4.  "Yapılan Seçim Geri alınamayacaktır.") = 6 Then
  5.  
  6.     stDocName = "Srg_ODEMEEKLE"
  7.     DoCmd.OpenQuery stDocName, acNormal, acEdit
  8.  
  9.     stDocName = "Srg_ODEMEGUNCELLE"
  10.     DoCmd.OpenQuery stDocName, acNormal, acEdit
  11. End if
  12. if MsgBox("Poliçe nakit yapıldı kasaya tahsilat eklemek istermisiniz...", 52,_
  13.  "Yapılan Seçim Geri alınamayacaktır.") = 6 Then
  14.   Select Case Me.ODEMESEKLI.Column(1)                   'ÖDEME ŞEKLİ NAKİT İSE
  15.   Case "NAKİT(PEŞİN)"
  16.   On Error Resume Next
  17.         Dim cnr As New ADODB.Recordset
  18.         Set cnr = New ADODB.Recordset
  19.         Dim sql As String
  20.         sql = "select * from Tbl_KASAHESABI"
  21.         cnr.Open sql, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
  22.         cnr.AddNew
  23.         cnr("CariID") = Me.CariID
  24.         cnr("TemsilciID") = Me.TemsilciID
  25.         cnr("GurupID") = Me.GurupID
  26.         cnr("TARIH") = Format(Me.DUZENLEMETARIHI, "dd/mm/yyyy")
  27.         cnr("SIRKETPOLICENO") = Me.SIRKETPOLICENO
  28.         cnr("SIGORTASIRKETI") = Me.SIGORTASIRKETI.Column(0)
  29.         cnr("KAYITTURU") = Me.POLICETIPI.Column(4)
  30.         cnr("ADISOYADI") = Me.CARIMETIN
  31.         cnr("ACIKLAMA") = Me.ACIKLAMA
  32.         cnr("GELIR") = Me.TOPLAM
  33.         cnr("GIDER") = 0
  34.         cnr("PoliceID") = Me.PoliceID
  35.         cnr.Update
  36.         cnr.Close
  37.         MsgBox "İşlem Nakit olduğundan kasa hesabına kayıt edildi"
  38. End Select
  39. End if
  40.   Me.ODEMEONAY.Enabled = False
  41.  
  42. End Sub





buyurun deneyin bakalm



  Bul
  Alıntı
Bu mesajı beğenenler:
sonerdursun
Önemli Üye 300-400

*
Kayıt Tarihi: 25.08.2008
Toplam 60 konu açtı.
Toplam 309 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016,
Beğeniler: 0 / 1
#3
19-06-2013, 21:06
if yazsamda If olarak kendi düzeltiyor.



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

*
Kayıt Tarihi: 04.03.2008
Toplam 371 konu açtı.
Toplam 7.540 yorum yaptı.
Toplam 236 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010, Office 2019,
Beğeniler: 55 / 56
#4
19-06-2013, 21:19
Merhaba..

Üst üste iki işlem yaptırıyorsunuz.. İşlemleri tek if bloğundaki şartlara göre yaptırtmak için ElseIf yapısını inceleyiniz..
Bulunamayan yerleri bulmak için önce kaybolmak gerekir.
Kaptan Hector Barbossa


SORU SORMA KILAVUZU
Giriş | Sormadan Önce | İlgili Forumu dikkatlice seçin | Anlamlı ve duruma uygun konu başlıkları kullanın | Anlamsız soru cümleleri kurmayın | Açık, dilbilgisi kurallarına uygun ve sözdizimlerine dikkate ederek yazın | Sorunuz sizin için çok acil olsa bile, çok acil diye yazmayın | Sorununuz hakkında tam ve aydınlatıcı iletiler yazın | Amacınızı belirtin | Problemin belirtilerini tanımlayın, kendi tahminlerinizi değil | Sorunuz hakkında açık olun | Nezaket asla yaralamaz ve bazen oldukça yararlıdır | Boyut her şey değildir! | Kabalıkla ilgilenmek | Cevabı E-Posta ile istemeyin | İnsanlardan özel mesajla cevap vermelerini istemeyin | Eğer cevabı anlamadıysanız | Şayet bir cevap alamazsanız | Sorununuz çözüldükten sonra küçük bir not ile bildirin | Sorulmaması gereken türde sorular | İyi ve kötü sorular

Sorulara nasıl doğru düzgün cevap verilir



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


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Form Açıkken Diğer Formda Işlem Yapabilmek caytug 6 541 02-10-2024, 10:12
Son Mesaj: caytug
  Dsum Ve Dcount Fonksiyonlarının Birlikte Kullanımı evren89 1 372 16-05-2024, 10:37
Son Mesaj: dsezgin
  Dcount Kullanımı. Satir 22 1.570 15-03-2024, 17:09
Son Mesaj: Satir
  Access Projesi Için Onedrive Kullanımı ccollezium 2 414 14-02-2024, 16:53
Son Mesaj: ccollezium
  [SORGU] ııf Ve ıs Not Null Birlkite Kullanımı Samih KARSLI 11 982 05-12-2023, 12:14
Son Mesaj: halily
  Autoexec Kullanımı ates2014 8 715 12-11-2023, 17:42
Son Mesaj: BeyTor
  Aynı Tarihli Veri Varsa Işlem Yapmasın Ve Sql Col Sayısını Arttırma snapper 9 1.051 20-10-2023, 00:36
Son Mesaj: dsezgin
  Sql Satırında Değişken Kullanımı Hakkında Yardım programmer67 3 495 26-04-2023, 12:02
Son Mesaj: halily

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar):