Oradaki server bağlantısı, benim kendi serverime ulaşmak için koyulmuş bir makrodur. Bu sayede "baglan.bat" dosyasını çalıştırıp onun içindeki dos komutlarını işletir. Bu komutlar da windows xp home olan terminal makinelerinin her açılışta yeniden manuel olarak ana bilgisayara bağlanıp sanal diskler oluşturması durumunu otomatiğe bağlar. Bu kodlar temel olarak şunlardır:
net use z: \\makine_adi\paylasilan_klasor_adi /user:accounts\kullanici_adiniz parolaniz
Böylece bilgisayarımdaki disklerinizin arasına bir de network sanal diski katılacaktır. Adı da z: olacak. Eğer verileriniz benim gibi bir ana bilgisayarda tutuluyor ve herkes ortak olarak bu verileri kullanıyorsa bu gereklidir. Tabii bu dosyayı baglan.bat adıyla kaydettiğinizi varsayıyorum.
İkinci olarak şifreleme dediğiniz şey şifreleme falan değildir. Onun adına lisanslama diyoruz. En azından terminolojide anlaşalım sizinle. Bu da benim programlarımı parasız kullanmasınlar diye kullandığım eski bir yöntem. Fakat her zaman derim ki access'te değil feriştahında bile yazsan kırılmayacak program yoktur. Ama access'te program kırmak
Access bilen biri için çocuk oyuncağıdır. Bütün bu numaralar amatörlere ve
Access bilmeyen müşterilere söker. Gerçi bu aralar herkes süper yazılımcı olduğunu iddia eder oldu ya, neyse... Yine de en iyi müşterilerim excel'de yazdığı programla 3-4 sene idare edip artık canına tak etmiş olan, kendini bu işten kurtarmak isteyen kişiler. Excel'le hazırladığı çalışmasından mesela bir örnek formül yapıştırayım aşağıya.. Adamın işle ne derecede uğraştığını anlayın

)
=(EĞER(C11="Matt Anodized";(YUVARLA(($AB$7*J11)/10000;0,5))/100;0))+(EĞER(C11="Polish Anodized";(YUVARLA(($AC$7*J11)/10000;0,5))/100;0))+(EĞER(C11="Chemical Anodized";(YUVARLA(($AD$7*J11)/10000;0,5))/100;0))+(EĞER(C11="Mill Finish";(YUVARLA(($S$7*J11)/10000;0,5))/100;0))+(EĞER(C11="Mill Finish Polish";(YUVARLA(($T$7*J11)/10000;0,5))/100;0))+(EĞER(C11="Wood Effect";((YUVARLA((($S$7+$K$6)*J11)/10000;0,5))/100+$AQ$6);0))+(EĞER(C11="Powder Coating";(YUVARLA(($W$7*J11)/10000;0,5))/100;0))+(EĞER(C11="Rubber Profiles";(YUVARLA(($AC$7*J11)/10000;0,5))/100;0))+(EĞER(C11="Rubber";($M$6);0))+(EĞER(C11="Stand";($L$6);0))+(EĞER(D11="Drilled";$C$6;EĞER(D11="Punched";$D$6;EĞER(D11="Self Adhesive";$G$6;EĞER(D11="Hot Melt";$F$6;0)))))
İnadına, ille de Accesstr.net...