+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: aktarma öncesi altformda yeni kayda otomatik geçilmesi (/konu-aktarma-oncesi-altformda-yeni-kayda-otomatik-gecilmesi.html)
Cvp: aktarma öncesi altformda yeni kayda otomatik geçilmesi - mehmetb84 - 06/05/2016
arkadaşlar yardımcı olabilecek biri var mıdır? Bilen biri için çok zor olmasa gerek...
Cvp: aktarma öncesi altformda yeni kayda otomatik geçilmesi - ozanakkaya - 07/05/2016
Sorudan anladığım kadarıyla;
liste kutusunun çift tıklandığında olayındaki kodu aşağıdaki ile değiştiriniz.
Dim Gecicig2_bag, Gecicig2_bag2 As String
Gecicig2_bag = [Forms]![f_ithalust]![f_gelen].[Form]![g_otomatik]
Gecicig2_bag2 = Forms("f_ithalust").Controls("f_gelen").Form.Controls("Listekutusu").Column(12)
If MsgBox(Gecicig2_bag2 & " verisi eklensin mi", vbYesNo) = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "Insert Into [t_gelen2] ([g2_bag],[g2_bag2]) values ('" & Gecicig2_bag & "','" & Gecicig2_bag2 & "')"
DoCmd.SetWarnings True
Me.f_gelen2.Requery
End IfCvp: aktarma öncesi altformda yeni kayda otomatik geçilmesi - mehmetb84 - 07/05/2016
Tam istediğim gibi olmuş,çok teşekkürler Ozan Bey.