Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [FORM] Hatayı çözemiyorum

[FORM] Hatayı çözemiyorum
thewathcer
Yeni Üye 1-15

*
Kayıt Tarihi: 24.03.2015
Toplam 1 konu açtı.
Toplam 1 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR, Office 2010 EN,
Beğeniler: 0 / 0
#1
access-sql-18  24-03-2015, 13:03
Merhaba ;
Arkadaşlar burdaki hatayı görebiliyormusunuz?

Bir tik kutucuğu yaptım tiki işaretlediğin zaman uyarı vermesi lazım fakat hataya düşüyor ilk satırda hata olduğunu gösteriyor.


Private Sub SEVK_DURUMU_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.SEVK_DURUMU = True Then
mesaj = MsgBox("Sevk Tarihini Değiştirmek Üzeresiniz Bu İşlemi Gerçekleştirmek İstediğinizden Emin Misiniz?", vbCritical + vbYesNo, "UYARI")
If mesaj = vbYes Then
Me.SEVK_DURUMU = True
Me.Metin92 = ""
ElseIf mesaj = vbNo Then
DoCmd.CancelEvent
End If



  Bul
  Alıntı
Bu mesajı beğenenler:
aydın3838
Kıdemli Üye >1000

*
Kayıt Tarihi: 16.08.2009
Toplam 209 konu açtı.
Toplam 1.395 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 2 / 1
#2
24-03-2015, 13:30
selam
kodun en altına

End If
eksik



  Bul
  Alıntı
Bu mesajı beğenenler:
aganamso
Aktif Üye 100-150

*
Kayıt Tarihi: 08.04.2014
Toplam 17 konu açtı.
Toplam 128 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR,
Beğeniler: 0 / 0
#3
24-03-2015, 23:26
Merhaba,

Bence kodun altında End Sub eksik.

Kontrol eder misiniz tekrar?

İyi çalışmalar.



  Bul
  Alıntı
Bu mesajı beğenenler:
aganamso
Aktif Üye 100-150

*
Kayıt Tarihi: 08.04.2014
Toplam 17 konu açtı.
Toplam 128 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR,
Beğeniler: 0 / 0
#4
25-03-2015, 13:55
Sn thewatcher,

Sorun çözüldü mu?

Kolay gelsin.



  Bul
  Alıntı
Bu mesajı beğenenler:
Amadeus
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 13.11.2008
Toplam 15 konu açtı.
Toplam 682 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 0 / 2
#5
25-03-2015, 20:57
Visual Basic
  1. Private Sub SEVK_DURUMU_AfterUpdate()
  2. If Me.SEVK_DURUMU = -1 Then
  3. mesaj = MsgBox("Sevk Tarihini Değiştirmek Üzeresiniz Bu İşlemi Gerçekleştirmek İstediğinizden Emin Misiniz?", vbCritical + vbYesNo, "UYARI")
  4. If mesaj = vbYes Then
  5. Me.SEVK_DURUMU = -1
  6. Me.Metin92 = ""
  7. ElseIf mesaj = vbNo Then
  8. Me.SEVK_DURUMU=0
  9. End if
  10. End if 
  11.  
  12. End Sub





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


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [VBA] vba koddaki hatayı çözemedim hknct 2 978 27-01-2017, 13:51
Son Mesaj: hknct

Foruma Git:


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