+- 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ığı: ağdaki başkabir access dosyasında bulunana tablodaki verilerin hepsini çekme (/konu-agdaki-baskabir-access-dosyasinda-bulunana-tablodaki-verilerin-hepsini-cekme.html)
ağdaki başkabir access dosyasında bulunana tablodaki verilerin hepsini çekme - moskovic - 06/06/2014
db1.mdb bulunan Tablo1 deki tum veriyi db2 de bulunan tablo1 nasil aktarabilirim ?
'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.Maximize
a.Visible = False
'a.DoCmd.Close acForm, "FRM_TEKNIK_SERVIS_UYGULAMA2"
a.DoCmd.Close acDataAccessPage, "\\10.0.0.15\db\1.mdb"bu koda nasıl bir düzenleme yapabilirim ?
Cvp: ağdaki başkabir access dosyasında bulunana tablodaki verilerin hepsini çekme - moskovic - 06/06/2014
çö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"