+- 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ığı: Yinelenen Acces (/konu-yinelenen-acces.html)
Yinelenen Acces - orderyazbim - 20/07/2011
Arkadaşlar hepinize iyi akşalar ve saygılar,; Ekte gönderdiğim örnek Yinelenen türde Access veritabanının Açıldığında ve kapandığında otomatik olarak yinelenmesini kodla nasıl gerçekleştirebilirim. Saygılarımla. İyi çalışmalar.
Cvp: Yinelenen Acces - alpeki99 - 20/07/2011
Dosyanın kopyasını almak içinmi bu şekilde yazmak istiyorsunuz?
Cvp: Yinelenen Acces - orderyazbim - 20/07/2011
Sayın Alpeki99; Hayır Kopya Değil. Normal bir veritabanını Yinelenen veritabanına dönüştürdüğümüzde Çoklu ortamda kayıt girildiğinde. Verilerin özgün veritabanına kaydedilmesi için Araçlar menüsünden Yineleme, Şimdi zamanuyumlu yap seçeneğinden yapılan değişiklikler ve yeni kayıtlar özgün Veritabanına (Tasarım şablonu Yİnelen Veritabanına) aktarılıyor. BÖylece çoklu kullanıcı ortamında çok daha hızlı veri girişi yapılıyor. Burda bu olay münüden yapılıyor. Ben bu işlemi kod vasıtasıyla veritabanı kapatılırken kayıtların aktarılmasının nasıl olabileceğini çözemedim. Örnekte iki veritabanı var biri özgün tasarım şeklinde yinelenen veritabanıdır. Anlatabildimmi bilemiyorum. Alakanız için teşekkür eder saygılarımı sunarım. İyi çalışmalar.
Cvp: Yinelenen Acces - access_delisi - 20/07/2011
benzeri kod daha önce lazım olmuştu. nette uzun araştırmalar sonucu aşağıdaki kodu bulmuştum.
Kod linkden alıntıdır.
http://us.generation-nt.com/programmatically-run-sync-now-command-help-18486042.html
Public Sub Synchronize(strRemoteReplica As String)
Dim dbLocal As DAO.Database
Dim strLocalReplica As String
strLocalReplica = Mid(CurrentDB.TableDefs("MyTable").Connect, 11)
Set dbLocal = DBEngine.OpenDatabase(strLocalReplica)
dbLocal.Synchronize strRemoteReplica
dbLocal.Close
Set dbLocal = Nothing
End Sub