Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
09/12/2011 10:44
Konu Sahibi
access06
Yorumlar
5
Okunma
1374
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

access06

Aktif Üye
MU.... B.....
 44
 100
 17
 30/10/2008
3
 Ankara
 
 Ofis 2016 32 Bit
 01/04/2018,00:26
Çözüldü 
Selam arkadaşlar, yapmış olduğum bir çalışmada istiyorumki sildiğim kayıtları başka bir tabloda tutsun. bunu makrolar aracılığı ile yaptım.

-önce hangi tabloya yedekleyecekse önce o tablomu oluşturdum ve tablo adını verdim.
-sonra ekleme sorgusu yaptım, kriter olarak istediğim kriteri belirledim,
-sonra silme sorgusu yaptım, silinecek kayıt için kriteri belirledim ve bu da tamam.
-sonra boş bir makro açtım ve önce ekleme, sonra silme sorgumu çalıştırttım, sonrada boş kayda git yönlendirmesi verdim makroya.
-formda makroyu çalıştırması için buton ekledim ve sonuç başarılı.

ancak makroyu çalıştırmak için butona tıkladığımda işlem bitene kadar bi dünya evet / hayır sorusu soruyor. bu işlemi bir kod aracılığı ile yapmak mümkün değilmidir?

Örnek olarak isteğimi anlatan minik bir uygulama ekliyorum, şayet isteğim olabilecek bir şeyse onun üzerinde gösterilebilir ise, kendi çalışmama entegre edebilirim. yardımlarınız için teşekkür ediyorum.

örnek uygulama:
https://www.accesstr.net/resim/do.php?id=371



Kullanici Avatari

alpeki99

Uzman
OL....
 38
 6.138
 162
 29/10/2008
 Bursa
 Yazılım Geliştirici
 Ofis 2010 32 Bit
 24/11/2018,10:13
Çözüldü 
Bahsetmiş olduğunuz makro uygulamanızın içinde bulunmamakta. Kod ile bunu yapabilir yaparkende aşağıdaki kod ile uyarı mesajlarını kapatabilirsiniz.

Visual Basic Code
DoCmd.SetWarnings False


AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.

Kullanici Avatari

access06

Aktif Üye
MU.... B.....
 44
 100
 17
 30/10/2008
3
 Ankara
 
 Ofis 2016 32 Bit
 01/04/2018,00:26
Çözüldü 
alpeki hocam teşekkürler, evet örneğin içine makroyu koymadım, (atlamışım özür) bu arada verdiğiniz kodu butonun tıklandığında olayına giremedim, ofis 2010 da butona makro çalıştırma olayı verilirse Katıştırılmış makro yazıyor malum, uğraşmadım ve bende butonun girildiğinde olayına yazdım oldu. hiçbir uyarı vermeden ekrandaki veriyi yedekledi ve sildi.

ancak şunu yapma imkanımız varmı? bir evet / hayır diye sordurarak bu işlemi yaptırma imkanımız.

kısaca komut ile makroyu çalıştırmak ve çalıştırmadan önce evet / hayır diye sorsun, evet dersek makroyu çalıştırsın, hayır dersek geri dönsün.???



Kullanici Avatari

alpeki99

Uzman
OL....
 38
 6.138
 162
 29/10/2008
 Bursa
 Yazılım Geliştirici
 Ofis 2010 32 Bit
 24/11/2018,10:13
Çözüldü 
Katıştırılmış Makroları kullanmanızı tavsiye etmem. Makro ile yapabileceğiniz her şeyi ve fazlasını kodlar ile yapabilirsiniz.

Visual Basic Code
    If MsgBox("Silmek istediğinizden emin misiniz?", vbYesNo + vbQuestion, "AccessTr.Net") = vbYes Then
    
        ' Silinmesi isteniliyorsa yazılacak kodlar
        
    End If


AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.

Kullanici Avatari

access06

Aktif Üye
MU.... B.....
 44
 100
 17
 30/10/2008
3
 Ankara
 
 Ofis 2016 32 Bit
 01/04/2018,00:26
Çözüldü 
alpeki hocam ilgine teşekkürler, zihnine sağlık. işte tamda o arada makroyu çalıştırmak için yazmam gereken kod nedir, orada takılı kalmıştım bende. docmd.runmacro vs. yaptım yemedi. (veya runmacro komutunu kullanmayı ben başaramadım.) katıştırılmış makroyu bende kullanmak istemiyorum, ancak hazırlamış olduğum makroyu kod ile nasıl çalıştırabilirim? sanırım bugün seni biraz yoracağım, hakkını helal edersin umarım.



Kullanici Avatari

access06

Aktif Üye
MU.... B.....
 44
 100
 17
 30/10/2008
3
 Ankara
 
 Ofis 2016 32 Bit
 01/04/2018,00:26
Çözüldü 
işlem tamam. sonuçlanmıştır. aşağıdaki şekilde yaptım ve istediğim gibi oldu. sorunu çözdüğüm kodu aşağıda paylaşıyorum belki bir arkadaşımızın daha ihtiyacı olur.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
Private Sub Komut44_Click()
DoCmd.SetWarnings False 'bununla accessin o gıcık uyarılarını gizledik.
c = MsgBox("Kaydı Arşive Taşımak İstediğinizden Eminmisiniz? ", vbYesNo, "KAYIT SİLME İŞLEMİ")
 If c = vbNo Then ' Hayır denir ise geri dönüş yapacaktır.
 MsgBox "KAYIT SİLME İŞLEMİ YAPILMADI", 64, "KAYIT SİLME İŞLEMİ"
 Else
    DoCmd.RunMacro "kayitsil_yedekleyerek" 'Kaydı arşive taşıyacak makroyu çalıştıracaktır.
MsgBox "KAYIT BAŞARIYLA ARŞİVE TAŞINDI", 64, "KAYIT SİLME İŞLEMİ"
 End If
End Sub


alpeki hocam ilginize teşekkürler, konuyu çözülenler arasına taşıyabilirsiniz.

herkese saygılar




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Tabloda Birden Fazla Alanı Sorguda Tek Alanda Listeleme hbal09 2 128 06/11/2018, 14:22
Son Yorum: hbal09
Çözüldü Metin İcerisinde Gecen İki Kelime Arasındaki Veriyi Bulmak accessdelisi 2 87 23/10/2018, 04:25
Son Yorum: accessdelisi
Çözüldü Sorgudaki Veriyi Alt Forma Çekmek notrino 3 161 09/10/2018, 10:56
Son Yorum: notrino
Çözüldü Formdaki Sayıya Göre Tabloda Tekrarlatma Sorunu MURAT42 6 241 05/10/2018, 10:48
Son Yorum: MURAT42
Çözüldü Veri Silme notrino 8 257 04/10/2018, 23:49
Son Yorum: mehmetdemiral

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.
123444