Ag uzerinde bulunan diger bilgisayardaki access dosyasina insert update delete islemlerini yapmak istiyorum bunun icin ekte basit bir ornek ekledim (2 adet access dosyasi olusturdum bu dosyalar uzerinden) nasil yapilacagi hakkinda bilgi ve ilginiz icin simdiden tesekkur ederi iyi calismalar
ekleme: agdaki diger bilgisayara iletisim varmi yokmu ? bunun kontrolunu yaptikdan sonra yukaridaki islermleri yaptirabilirsek daha mantikli olur diye dusunuyorum...
Sn moskovic;
Form VBA'na, asagida ki kodlari yerlestirin.
Koyu olan yeri degistirin.
Option Compare Database
Option Explicit
Dim Giz As Variant
Private Sub Form_Open(Cancel As Integer)
On Error GoTo HATA
Giz = 0
Const VT As String = "\\SUNUCUADI\KLASOR\tablolar burda (Bilgisayar A) - Kopya.mdb"
DoCmd.TransferDatabase acLink, "Microsoft Access", VT, acTable, "TABLO1", "TABLO1", True
Me.Liste0.RowSource = "SELECT TABLO1.* FROM TABLO1"
Me.Liste0.Requery
Exit Sub
HATA:
Dim cvp As String
If Err.Number = 3044 Then
cvp = "Sunucu veya Veri Tabanina erisim saglanamamakta"
Me.Liste0.ColumnCount = 1
Me.Liste0.RowSource = "SELECT '" & cvp & "' As Adi"
Me.Liste0.Requery
Me.TimerInterval = 500
End If
End Sub
Private Sub Form_Close()
On Error Resume Next
Me.TimerInterval = 0
DoCmd.DeleteObject acTable, "TABLO1"
End Sub
Private Sub Form_Timer()
Me.Metin3.SetFocus
Me.Liste0.Visible = Giz
Giz = IIf(Giz = 0, -1, 0)
End Sub
Private Sub Komut5_Click()
CurrentDb.Execute "Insert Into TABLO1 ( adi ) Select '" & Me.Metin3 & "' As E1"
Me.Liste0.Requery
End Sub
Private Sub Komut6_Click()
CurrentDb.Execute "DELETE TABLO1.* FROM TABLO1 WHERE (((TABLO1.id)=" & Me.Liste0.Column(0) & "))"
Me.Liste0.Requery
End Sub
Private Sub Komut7_Click()
CurrentDb.Execute "Update TABLO1 Set Adi='" & Me.Metin3 & "' WHERE (((TABLO1.id)=" & Me.Liste0.Column(0) & "))"
Me.Liste0.Requery
End Sub
