26-07-2013, 09:52
Setup exe'lerinin pratik olmasina yaninda isletim sisteminin ve program kurgularinin farkli yapilmasi ile bazen can sikici olaylar yasanmakta. Ortak VT'ni ile calisma ortamlarinda kullanicilara guncel access uygulamalarinin iletilmesini asagida ki akis gibi dusunebiliriz. Kullanicilarin kullandigi birden fazla uygulama icin bir menu (access formu) hazirlayip;
1. SUNUCU da kullanici yetkileri belirlenmis bir Klasor olusturun.
2. Verilerin depolandigi access dosyasi(AVT) olusturun.
3. Yaptiginiz programa ait access projesinin tablolarini AVT aktarip, proje icindeki tablolari silip aktarilan AVT'ninda ki tablolari baglayin.
4. Ozgun Projenizi(Formlar,Sorular,Raporlar, /vb..) guvenlik ayarlari ile VT ozelliklerini degistirerek mde olarak derleyin ve SUNUCU daki Klasore kopyalayin.
5. Yeni bir access projesi olusturup, Form tasarlayin ve kullanicilarlin calistirmasi istediginiz program kadar secenek olusturun.
6. Calis butonu olusturup, tiklama olay yordamina asagidaki kodu tasiyin.
7. Bu projenizi mde yapip ilgili kullanicilara dagitin ve bundan sonraki program ihtiyaclarinin bu uygulama ile olacagi bilgisini verin.
8. Ozgun Projenizde tasarim degisikligi veya yeni ihtiyaclarla ilgili tadilatlari gerceklestirip, mde cevirerek SUNUCU daki Klasore kopyalama islemi ile tum kullanicilarin sizin yenilediginiz proje uzerinde calismalarini saglamis olursunuz.
NOT :Vba Kodunda gecen Access.exe calistirma yolu (C:\Program Files\Microsoft Office\Office11) farkli olabilecegi ihtimali ile kullanici bilgisayarlarinin incelenmesi gerekmektedir.
1. SUNUCU da kullanici yetkileri belirlenmis bir Klasor olusturun.
2. Verilerin depolandigi access dosyasi(AVT) olusturun.
3. Yaptiginiz programa ait access projesinin tablolarini AVT aktarip, proje icindeki tablolari silip aktarilan AVT'ninda ki tablolari baglayin.
4. Ozgun Projenizi(Formlar,Sorular,Raporlar, /vb..) guvenlik ayarlari ile VT ozelliklerini degistirerek mde olarak derleyin ve SUNUCU daki Klasore kopyalayin.
5. Yeni bir access projesi olusturup, Form tasarlayin ve kullanicilarlin calistirmasi istediginiz program kadar secenek olusturun.
6. Calis butonu olusturup, tiklama olay yordamina asagidaki kodu tasiyin.
Kod:
Private Sub Calis_Click()
On Error GoTo ErrCk
If Me.Secme = 1 Then Dosya = "Vardiya.mde"
If Me.Secme = 2 Then Dosya = "Durak.mde"
If Me.Secme = 3 Then Dosya = "Tezgah.mde"
If Me.Secme = 4 Then Dosya = "PiyasaMalzemesi.mde"
If Me.Secme = 5 Then Dosya = "Depo.mde"
If Me.Secme = 6 Then Dosya = "UretimPlanlama.mde"
If Dir("D:\" & Dosya & "") <> "" Then Kill "D:\" & Dosya
Application.DBEngine.CompactDatabase "\\SUNUCU\Klasor\" & Dosya, "D:\" & Dosya, dbLangTurkish, dbEncrypt
AppActivate Shell("C:\Program Files\Microsoft Office\Office11\MSACCESS.exe D:\" & Dosya & "", vbMaximizedFocus)
Application.Quit acQuitSaveAll
Exit Sub
ErrCk:
'MsgBox Dosya & "--->" & Err.Description
Resume Next
End Sub8. Ozgun Projenizde tasarim degisikligi veya yeni ihtiyaclarla ilgili tadilatlari gerceklestirip, mde cevirerek SUNUCU daki Klasore kopyalama islemi ile tum kullanicilarin sizin yenilediginiz proje uzerinde calismalarini saglamis olursunuz.
NOT :Vba Kodunda gecen Access.exe calistirma yolu (C:\Program Files\Microsoft Office\Office11) farkli olabilecegi ihtimali ile kullanici bilgisayarlarinin incelenmesi gerekmektedir.
