Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
14/01/2014 22:55
Konu Sahibi
bulenttum
Yorumlar
2
Okunma
1430
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

bulenttum

Üye
Kullanici Avatari
Üye
B.... T....
25
8
04/01/2014
0
İstanbul
Ofis 2010
24/03/2016,15:42
Çözüldü 
arkadaşlar musteriler formumun içinde liste384 liste kutusu var bu liste kutusuna çift tıkama ile silmek istiyorum fakat ana formumun veri tabanındaki dosyaları siliyor çift tıklama için kullandığı kod

Visual Basic Code
1
2
3
4
5
6
7
8
9
If MsgBox("Kayıt Silinsin mi?", vbYesNo, "Siliniyor...") = vbYes Then
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings True
Liste384.Requery
Else
Me.Undo
End If


bu konuda yardım edebilirmisniz


Ek Dosyalar
.rar   formtes - Kopya (2).rar (Dosya Boyutu: 90,21 KB / İndirme Sayısı: 2)
Cevapla

POWER

Uzman
Kullanici Avatari
Uzman
U.... Ö....
1.865
02/04/2010
İzmir
Ofis 2003
14/09/2017,15:34
Çözüldü 
Aşağıdaki komut dizinini uygularmısın...

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Liste384_DblClick(Cancel As Integer)
Dim SQL As String
If MsgBox("Kayıt Silinsin mi?", vbYesNo, "Siliniyor...") = vbYes Then
DoCmd.SetWarnings False
SQL = "Delete * FROM mahal_sikayet WHERE Kimlik=" & Me.Liste384
DoCmd.RunSQL SQL
DoCmd.SetWarnings True
Liste384.Requery
Else
Me.Undo
End If
End Sub


Lütfen olumlu veya olumsuz geri dönüş yapınız...


Please return your positive or negative ...
Cevapla

bulenttum

Üye
Kullanici Avatari
Üye
B.... T....
25
8
04/01/2014
0
İstanbul
Ofis 2010
24/03/2016,15:42
Çözüldü 
hocam teşekkürler emeğine sağlık oldu


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Kısayol Tuşuyla Liste Kutusu Üzerinden Değer Atama mehmetb84 6 112 18/09/2017, 12:20 mehmetb84
Çözüldü Kayıt Silme Hatası burhanb 6 172 08/09/2017, 14:01 burhanb
Çözüldü "msoFileDialogFilePicker" hatası gogoli01 11 2.463 20/07/2017, 19:36 ozanakkaya
Çözüldü Null Hatası ertans 3 259 07/07/2017, 14:53 ertans
Çözüldü Select Where Söz Dizimi Hatası sadooo 15 768 02/06/2017, 15:08 atoz112

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.