çözüldü
'DoCmd.TransferDatabase acLink, "Microsoft Access", "\\10.0.0.15\db\1.mdb", acTable, "tablo1", "ADI", False
Set a = Nothing
Set a = New Access.Application
a.OpenCurrentDatabase "\\10.0.0.15\db\1.mdb"
a.CurrentDb.Execute "insert into Tablo1 (ADI )" & " select '" & Me.Metin0 & "'"
'a.DoCmd.TransferDatabase acImport, "Microsoft Access", "\\10.0.0.15\db\1.mdb", acTable, "Tablo1.[ADI],", "Tablo1.[ADI]", True
DoCmd.RunSQL "Insert INTO tablo1 SELECT * FROM Tablo2 IN '\\10.0.0.15\db\1.mdb'"
a.DoCmd.Maximize
a.Visible = False
'a.DoCmd.Close acForm, "FRM_TEKNIK_SERVIS_UYGULAMA2"
a.DoCmd.Close acDataAccessPage, "\\10.0.0.15\db\1.mdb"
moskovic, 18-01-2010 tarihinden beri AccessTr.neT üyesidir.
Access'e olan heyecanimi kabartan Tek Adres Burası...
Cevapla
#1
