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 If