Soru Userform - Access Bağlantıları ile ilgili Yardım hk.

[tukayf]

Büroda denedim. Hiçbir sorun çıkarmadan gayet iyi çalışıyor. 3 kullanıcı aynı anda verir girişi yaptım. Sadece listboxa veri butonlara tıkladıktan sonra geliyor

 

[Haluk]

Onun için de UserForm'a bir buton daha ilave edip, ona da "RefreshForm" makrosunu atarsınız. Kullanıcılar, herhangibir işlem yapmadan önce bu butona basıp, veritabanının son halini ListBox'ta gördükten sonra işlem yaparlar....

Private Sub CommandButton4_Click()
    Call RefreshForm
End Sub

Diğer türlü işler biraz daha uzar, anlık olarak güncellemeleri göstermesi için bir şekilde "Timer" falan kullanmak gerekir.

.

 

[Haluk]

@tukayf ;

8 No'lu mesajdaki "TelefonDefteri.xlsm" dosyasında revizyon yaptım. Bu revizyonda; 1'den fazla kullancının bu Excel dosyasıyla Access veritabanına bağlanıp yeni kayıt ilave etme, silme, düzenleme işlemlerinden sonra veritabanına o an bağlı olan tum kullanıcıların UserForm'unda anlık olarak güncellenecektir.

Bu işlem için API ile Timer kullanılmış olup, 64 Bit Excel'de sorun yaşanmamış olup, 32 Bit'de denenmemiştir.

1'den fazla kullanıcının veritabanını ortak olarak kullanması için MDB dosyasının ağda bir klasörde olması, Excel dosyasının da her kullanıcının kendi bilgisayarında olması gerekmektedir. Bu durumda da tabii, kodlarda veritabanı yolunu tarif eden aşağıdaki satırın ağdaki yolunu yazarak güncellemek gerekir.

    DatabasePath = ThisWorkbook.Path & "\TelefonDefteri.mdb"

Bu satır, UserForm modulünde 4-5 yerde, Module1 içinde de 1 yerde mevcuttur.

Ağ ortamı bende olmadığı için ağda deneme şansım olmadı tabii....


Revize dosya ektedir;

.

 

[tukayf]

Hocam çok teşekkürler. Yarın ağda deneyeceğim hemen. Çok işimize yarayacak.

 

[Haluk]

@tukayf ;

Ağ ortamında çoklu kullanıcıyla deneme yaptınız mı?

.

 

[tukayf]

Merhabalar hocam. Evet deneme yaptım. Veri kaydında sorunumuz yok. Ancak veri yinelerken silme ve güncelleme kısmında yenilemeden kaynaklı sorunumuz var. Silme ve değiştirme işlemini yaptıramıyoruz. Kaydı seçince sil ya da değiştir diyene kadar tekrar yenilenmesi sonucu silme ve değiştirme yapamıyoruz.

 

[Haluk]

Kodda 1-2 revizyon yaptım, 23 No'lu mesajdan tekrar indirip, dener misiniz?

.

 

[tukayf]

Hocam bu şekliyle harika. Bir istirhamım olabilir mi? Size zahmet vermek istemiyordum ama başaramadım. Uyarlamayı yapamadım.

 

[Haluk]

Nasıl bir uyarlama istiyorsunuz?

Bu arada, çoklu kullanıcılarda veri tabanı her kullanıcıda anlık güncelleniyor mu ?

.

 

[tukayf]

Hocam anlık olarak güncelleniyor. Hiç bir sorunumuz yok.
Uyarlama olarak ise bu projeyi personel veri tabanına çevirmek istiyorum. Ancak ID kısmını 6 haneli sicil olarak düzenlemek istedim tekrar etmeyen veri olarak. Sürekli bir yerlerden uyarı verdi düzenleyemedim. adı ve soyadını birleştirip onlara yeni alanlar eklemeye çalıştım yine uyarıları düzeltemedim.
Kaydı sil ve değiştir kısmındaki combobox yerine Texbox tan sicil arama yaptırabilir miyiz.
Bu kısmı geçebilirsen diğer text ve comboları kendim ekleyebilirim umarım. Eğer sığdırabilirsem 80 adet text combo optionbuton lazım.

 

[tukayf]

Bir de kayıt için ayrı değiştir-sil için ayrı form mu kullanalım. Pagetab kullansak olur mu. Çünkü çok fazla text kullanmam lazım.

 

[Haluk]

Çoklu kullanıcılarda veri tabanının diğer kullanıcılarda anlık olarak güncellenmesinin çalıştığını teyit ettiğiniz iyi oldu, çalıştığına sevindim.

Diğer yandan; bu versiyonda saniyede 1 kere veri tabanı güncellendiğinden, UseferForm'da ComboBox kullanılması ektif olmuyor. Bunun nedenini, UserForm modülünün en üstünde açıklamıştım.

.

 

[tukayf]

Combo kullanımında sıkıntı çıkaracaksa denetimleri acces kısmına koyarız hocam.

 

[Haluk]

Onu bilemem, bende Access olmadığı için bir fikrim yok. Buradaki MDB dosyasını ben Excel VBA ile hazırlamıştım.

.

 

[Haluk]

Bu arada, bahsettiğiniz Personel Yönetimi projesi zaten başlı başına bir iş.

Bence siz birşeyler yapmaya başlayın, takıldığınız konularda forumda açacağınız yeni bir konu başlığı altında yardım isteyin.

Kolay gelsin,

.

 

[tukayf]

Çok sağolun hocam çok teşekkürler.