arkadaşlar yardımcı olabilecek biri var mıdır? Bilen biri için çok zor olmasa gerek...
Son Düzenleme: 06/05/2016, 13:05, Düzenleyen: mehmetb84.
aktarma öncesi altformda yeni kayda otomatik geçilmesi
Sorudan anladığım kadarıyla;
liste kutusunun çift tıklandığında olayındaki kodu aşağıdaki ile değiştiriniz.
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 If
Konuyu Okuyanlar: 1 Ziyaretçi
