Slm üstadlar tablo2 formu tablo1 formunun alt tablosudur tablo1formunda kaydet butonuna bastığım anda tablo2 de tüm alanlar dolu almayınca kaydet yapmayacak
2.soru tablo1 de aktara bastığımda ADI isimli text kutusunda ki veri tablo2 formunun AÇIKLAMA adlı text kutusuna aktarma yapacak ama aktarma id ile ilişkili olan satırların tümüne olacak
Şimdiden tşk ederim
Merhaba;
Kaydet butonu için
If (IsNull(Forms!Tablo1!Tablo2.Form!Tarih) Or Len(Trim(Forms!Tablo1!Tablo2.Form!Tarih)) = 0) Or _
(IsNull(Forms!Tablo1!Tablo2.Form!AÇIKLAMA) Or Len(Trim(Forms!Tablo1!Tablo2.Form!AÇIKLAMA)) = 0) Or _
(IsNull(Forms!Tablo1!Tablo2.Form!TUTAR) Or Len(Trim(Forms!Tablo1!Tablo2.Form!TUTAR)) = 0) Then
MsgBox "Alt formdaki tüm alanları doldurunuz..!"
Exit Sub
Else
DoCmd.GoToRecord , , acNewRec
End If
AKTAR butonu için;
Dim sorgu As String
sorgu = "UPDATE Tablo2 SET Tablo2.AÇIKLAMA ='" & Me.ADI & "'" & _
" WHERE Tablo2.İD=" & Me.Kimlik
Debug.Print sorgu
CurrentDb.Execute sorgu
Me.Refresh
yazarak dener misiniz?
İyi çalışmalar.
Konu hakkında dönüş yapabilir misiniz?
Yardiminiz icin tesekkur ederim sayenizde insanlarin isleri gercekten kolaylasiyor surekli not almak kagida yazip tek tek gozden gecirmek cok zamanimi alirdu biraz vakit ayirip bu isi ogrenince islerimiz ptarik yoldan hallediliyor ve bilgisayar kullanmanin zenkine variyor insan
Rica ederiz.
Yani; 2 numaralı mesajda sizinle paylaşılan kodlar işinize yarayıp, sorununuzu çözdü mü?
Alt Form olarak açtığınız bu konuyu Access cevaplanmış sorulara taşıyabilir miyiz?
(20/11/2017, 12:51)direnist yazdı: Rica ederiz.
Yani; 2 numaralı mesajda sizinle paylaşılan kodlar işinize yarayıp, sorununuzu çözdü mü?
Alt Form olarak açtığınız bu konuyu Access cevaplanmış sorulara taşıyabilir miyiz?
cevaplanmış sorulara nasıl taşınıyor hemen hallediyim kusura bakmayın bilmiyordum