arkadaşlar ben formumda save butonuna bastığımda eğer master equipment kısmı dolu ise o veriyi sub list tablosuna taşımak istiyorum ve o veriyi equipment list tablosundan silmek istiyorum bunu nasıl sağlayabilirim?

(24-10-2013, 09:24)peace5219 demiş ki: arkadaşlar ben formumda save butonuna bastığımda eğer master equipment kısmı dolu ise o veriyi sub list tablosuna taşımak istiyorum ve o veriyi equipment list tablosundan silmek istiyorum bunu nasıl sağlayabilirim?

Sayin peace5219;

Save butonunun daha etkin hale getireceginizi tahmin etmistik.
Ekleme sorusu
Application.CurrentDb.Execute "INSERT INTO [sub list] ( Alan1, Alan2) SELECT Sutun1 AS E1, Sutun2 AS E2 From Equipment Where ((KriterSutun)='" & Me.Kriter & "'"

Silme sorusu
Application.CurrentDb.Execute "DELETE Equipment.* From Equipment Where ((KriterSutun)='" & Me.Kriter & "'"

ile yapilabilir.

bu konuda yeni olduğum için nasıl geliştirmem gerekiyor birde evet şöyle bir hata alıyorum save butonuna bastıgımda hata varsa oraya odaklanıyor ama save ediyor bunu nasıl engelleyebilirim?
bu arada cevabınız için teşekkür ederim yalnız sadece sildikten sonra formu ve tabloyu yenilemiyor silinen yerlerin yerine #delete geliyor

Sayin peace5219;

Hata ciktiginda
Vba olayi ilk satirina
Private Sub ......()
On error GoTo HataCikti ,** Satirda hata cikar ise HataCikti'ya gider ***
Call OLAY
DoCmd.RunCommand acCmdSaveRecord
Exit Sub
HataCikti:
me.Undo '**** form islemini geri alir ******
End Sub
Benzer bir cok yontem vardir. Sizin olayinizla ilgili islem adimina gore kaydet oncesi hata alinan satiri tasimaniz care olabilir.
----------------------------------------------------------------------------
Silme sorusu sonraki satira
1. Me.Refresh,
2. Me.recordsource= "select .... from tbadi ...." kayit kaynagina form sorusunu yeniden atayabilirsiniz,
3. Me.Requery
yazabilirsiniz.

kusura bakmayın ama hala düzgün olarak çalıştıramıyorum o kodu tam olarak nasıl yazarım kodun tamamnını benim veritabanıma göre yazabilirmisiniz ? zahmet olmazsa bu arada çalıştıramadığım kod ekleme kodu bir türlü halledemiyorum

(24-10-2013, 16:03)peace5219 demiş ki: kusura bakmayın ama hala düzgün olarak çalıştıramıyorum o kodu tam olarak nasıl yazarım kodun tamamnını benim veritabanıma göre yazabilirmisiniz ? zahmet olmazsa bu arada çalıştıramadığım kod ekleme kodu bir türlü halledemiyorum

Save Butonuna vba kodunu asagidaki gibi yapabilirsiniz.

Private Sub Command601_Click()
On Error Resume Next
'******** sub list tablosuna Ekleme *************
Application.CurrentDb.Execute "INSERT INTO [sub list] SELECT [Equipment List].* FROM [Equipment List] WHERE ((([Equipment List].master_equipment)='" & Me.master_equipment & "'))"
'******** Equipment List silme ******************
Application.CurrentDb.Execute "DELETE [Equipment List].* FROM [Equipment List] WHERE ((([Equipment List].master_equipment)='" & Me.master_equipment & "'))"
DoCmd.RunCommand acCmdRecordsGoToPrevious
Forms![Equipment List].RecordSource = "Select [Equipment List].* From [Equipment List]"
DoCmd.RunCommand acCmdRecordsGoToLast
End Sub