Skip to main content

AccessTr.neT


Client Excel Sorunu

Client Excel Sorunu

Çözüldü #1
iyi günler
üç pc var. ana pc de bir Excel dosyası var. diğer iki bilgisayarda bu Excel dosyasının kısa yolları var. bu kısa yollarla Excel dosyasına veri girilebiliyor. eğer bir client pc Excel kullanıyor ise diğer client pc dosyayı salt okunur olarak açabiliyor. kim önce kaparsa onun elinde kalıyor.sorular şunlar
1- her iki client bilgisayar aynı Excel dosyasına aynı anda nasıl veri girebilir
2-illa Excel olması şart değil Excel yerine Access olsa kısa yolla açan client pc ler aynı anda accesse yazabilir mi
3-wamp da mysql olsa bunun üzerine aynı anda iki client pc deki Access veri yazabilir mi
4-eğer aynı anda iki client yazma modunda exceli açamıyorsa otomatik olarak belli zamanlarda bir Excel dosyasından diğerine cut-paste yapabilir mi
    yani mesai bitiminde her gün saat 17:30 da bir soru sorarak evet cavabı alınca 
   "A.xlsx" dosyasının "Sayfa1" deki tüm kayıtlar
   "B.xlsx" dosyasının "Sayfa1" en altına eklensin
   "A.xlsx" dosyasının "Sayfa1" deki tüm kayıtlar silinsin
yardımlarınız için teşekkürler
@benbendedeilem
Cevapla
#2
Excel' de Üst Menüdeki "Gözden Geçir" altında "Çalışma Kitabını Paylaştır" ma seçeneği var. Gerekli ayarları yapıp aynı anda birden fazla kullanıcı çalışabilirsiniz.
Cevapla
#3
teşekkürler
ben Access üzerinden excele satır ekiyorum şu kod ile


Private Sub writeExcel_hasan()
    Dim xlApp As Excel.Application
    Dim xlWB As Excel.Workbook
    Dim xlWS As Excel.Worksheet
    Dim acRng As Variant
    Dim xlRow As Integer
    Dim xlRowNew As Integer
    Dim xlColumn As Integer

    Set xlApp = New Excel.Application
    Set xlWB = xlApp.Workbooks.Open("C:\Users\doktor2\Desktop\pmf\pmf_hasan.xlsx")
    Set xlWS = xlWB.Worksheets("Sayfa1")
   
    xlRow = xlWS.Cells(xlWS.Rows.Count, 1).End(xlUp).Row
    xlRowNew = xlRow + 1
   
    xlWS.Cells(xlRowNew, 1).Formula = kimlik_Arraylistlist(1) 'ad
    xlWS.Cells(xlRowNew, 2).Formula = isozluk_Arraylistlist(0) 'sicil
    xlWS.Cells(xlRowNew, 3).Formula = isozluk_Arraylistlist(2) 'işe giriş tarihi
    xlWS.Cells(xlRowNew, 4).Formula = Me.dateToday 'tarih
    xlWS.Cells(xlRowNew, 5).Formula = turBul 'muayene nedeni
   
rq_Exit:
        Set xlWS = Nothing
        xlWB.Close acSaveYes
        Set xlWB = Nothing
        xlApp.Quit
        Set xlApp = Nothing
End Sub


sorum şu

ana bilgisayardaki Excel dosyasının kısayolu client pc de olacak bende Access ile satır ekleyeceğim
burada kısayol üzerinden ağdaki diğer bilgisayardaki excele bu kod ile satır ekleyebilir miyim
veya bu koddaki dosya adresini "\\192.168. ....... " şeklinde yazarak ana pc deki excele yazabilir miyim
@benbendedeilem
Cevapla
#4
Şu anda Excel dosyasına hepiniz Access dosyasını açıp ağ üzerinden kayıt yapmıyor musunuz?
Cevapla
#5
şimdilik deneme aşamasında sadece bende Access ve Excel var 
accessden kod ile excele yazıyorum ama nihai amaç exceli ana bilgisayara koyup herkese Excel kısayolu oluşturmak herkes excele veri yazacak
ama ben Access ile form vs oluşturdum işimi kolaylaştırdım. diğerleri de isterse onlara da accessi kopyalayıp excele yazmaları sağlanabilir.
problem veriler excelde tek bir yerde olacak ben ya ağ üzerinden excele kod ile yazacağım yada kısa yolü zerinden
@benbendedeilem
Cevapla
#6
ağ üzerinden yazmak için excelin dosya yolunu ilgili yere yazmak yeterli mi
(denesene kardeşim dediğinizi duyar gibiyim) şimdilik Excel ve Access dosyası bende bitince ilgili yerlerine kopyalanacak 
üstelik şirket olduğu için uzak erişimlerde şifre var ve şimdi ana bilgisayara veya diğerlerine dosya koyup deneyemiyorum
@benbendedeilem
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task