23-05-2011, 17:52
Selam.
Düzelttim.
Çok hoş oldu teşekkür ederim. Bu arada bu sql komutu tek satıra inmiyor. (Runsql) Onu nasıl hallederim
Düzelttim.
Visual Basic
- If MsgBox("Ankara Siparişlerine Bu Kayıt Eklenecek", vbYesNo) = vbYes Then
- With DoCmd
- .SetWarnings False
- DoCmd.RunSQL "insert into dbo_ANKARASIPARIS(URUN,ACIKLAMA,MIKTAR,TARIH,SAAT,EKLEYEN,IPTAL)" _
- & " select [Forms]![SIPARIS]!Metin0,[Forms]![SIPARIS]!Metin2,[Forms]![SIPARIS]!Metin5,date(),time(),'COSKUN','0' "
- .SetWarnings True
- End With
- Me.[Liste7].Requery
- End If
Çok hoş oldu teşekkür ederim. Bu arada bu sql komutu tek satıra inmiyor. (Runsql) Onu nasıl hallederim


