' انظر لموقع عبارة Barna في الاسطر التالية
If (IsNull(strDBPassword) = True) Or (strDBPassword = "Barna") Then
tdf.Connect = ";DATABASE=" & strNewMDB
Else
tdf.Connect = ";DATABASE=" & strNewMDB & ";PWD=" & strDBPassword
End If
tdf.RefreshLink
السلام عليكم ورحمة الله وبركاته
اسعد الله مساءكم جميعا ....... لدي قاعدة بيانات ..... يظهر فيها المسار الكامل للملف المختار ... أريد أن يستخرج اسم الملف بدون امتداد الملف في مربع النص path3
barna_1.accdb
السلام عليكم ورحمة الله وبركاته
أخواني أعضاء المنتدي .... أحيانا عندما أعطى البرنامج لأشخاص للعمل عليه كيف يتم تغيير بعض حيارات الاكسس بكود وليس يدويا بما يتوافق مع برنامجي مثلا :
1. جعل اعدادات العميل الانتقال للسجل التالي بدلا من الحقل التالي مثلا ....
2. جعل اعدادات العميل تظليل الحقل بالكامل مثلا ....
بارك الله فيكم جميعا