[FORM] sil ve veri aktar

YILMAZZZ · 14-09-2014, 05:56

herkese hayırlı günler
iki gündür araştırıyorum sitemizde, sağolsunlar birçok üstadın farklı konularda farklı çözümleri var ama birtürlü kendi çalışmama uyarlayamadım yeni konu açmak zorunda kaldım sevgili üstatlar yardım ederseniz sevinirim
aile kayıtlarının tutlduğu bir çalışma yapıyorum aile reisiFORM' undaki sil butonuna tıkladıgımda ailereisiFORM VE üyeler alt formundaki aynı aile numarasına sahip kayıtların silinerek, kaydısilinenler tablosuna aktarılmasını istiyorum.örneğe uyarlaya bilirmiyiz acaba
yardımlarınız için şimdiden teşekkür ediyorum

jon206 · 15-09-2014, 14:07

sn. yılmaz;
komut yordamını şu aşağıdakini kopyalayınız..

Visual Basic
Dim cvp
cvp = MsgBox(Me.AİLESIRANO & " nolu aile silinecektir onaylıyormusunuz.. ", vbYesNo, " DİKKAT ")
 
If cvp = vbYes Then
With CurrentDb
    .Execute "INSERT INTO kaydısilinenler SELECT ailereisi.* FROM ailereisi WHERE AİLESIRANO=" & Me.AİLESIRANO
    .Execute "delete * from ailereisi where AİLESIRANO=" & Me.AİLESIRANO
End With
Me.Form.Requery
End If

YILMAZZZ · 15-09-2014, 21:04

hocam süpersiniz elinize sağlık çok işime yaradı sağolun

YILMAZZZ · 16-09-2014, 07:52

herkese kolay gelsin hocam alt formdaki yada ana formdaki kayıtların hepsini değilde bazılarını silmek istiyorum tabloya çıkış tarihi ekliycem çıkış tarihi girildiğinde kayıt kaydı silinenler tablosuna aktarılsın bu şekilde düzenlemek mümkünmü acaba bazı üyeleri tektek farklı tarihlerde silmem gerek yardımlarınız için teşekkürler

jon206 · 16-09-2014, 15:12

sn. yılmaz;
koşul kısmına " and alanadi=" formdaki tarih alanı ekleyin..

Visual Basic
Dim cvp
cvp = MsgBox(Me.AİLESIRANO & " nolu aile silinecektir onaylıyormusunuz.. ", vbYesNo, " DİKKAT ")
 
If cvp = vbYes Then
With CurrentDb
    .Execute "INSERT INTO kaydısilinenler SELECT ailereisi.* FROM ailereisi WHERE AİLESIRANO=" & Me.AİLESIRANO & " and cikistarihi=" & me.cıkıştarihi
    .Execute "delete * from ailereisi where AİLESIRANO=" & Me.AİLESIRANO & " and cikistarihi=" & me.cikiştarihi
End With
Me.Form.Requery
End If

YILMAZZZ · 16-09-2014, 17:34

hocam ilginiz için minnettarım ama kod FROM ailereisi WHERE AİLESIRANO=" & Me.AİLESIRANO" kısmında haata verdi yanlışmı uguladım acaba

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Accessten Excel Veri Aktar	golf2000	9	888	24-08-2022, 17:36 Son Mesaj: halily
	[MAKRO] Biçimlendirmeli Olarak Dışa Aktar	tolgahanay8	3	602	09-09-2020, 14:22 Son Mesaj: tolgahanay8
	[SORGU] Excel Aktar Butonu	ramazanke	5	1.475	30-01-2019, 10:46 Son Mesaj: ramazanke
	[VBA] Buton ile tablodan sorgula, varsa aktar yoksa ekle.	Vuslat46	2	1.842	19-02-2017, 12:45 Son Mesaj: Vuslat46
	[VBA] Excele aktar Problemi	denizpulsar77	3	1.852	13-07-2015, 09:45 Son Mesaj: denizpulsar77
	[VBA] Excele Aktar Biçimi	denizpulsar77	0	1.352	03-07-2015, 16:01 Son Mesaj: denizpulsar77
	[TABLO] Access'teki bir tablodan bir kaydı alıp diğer tabloya aktar ve önceki tablodan sil??	dilcet38	4	1.960	08-07-2014, 11:48 Son Mesaj: dilcet38
	[FORM] Alt Forma Aktar veyaz Yaz	sadikkavakli	2	1.463	20-11-2013, 23:58 Son Mesaj: sadikkavakli

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL