الرجاء المشاركة لحل المعضلة

السلام عليكم ورحمة الله وبركاته

أخي العزيز : fai.fai

الرجاء التقيد بقوانين وشروط الكتابة في المنتدى من حيث أن عنوان المشاركة يجب ان يدل على فحواها .

برنامجك عبارة عن ملف MDE وهو محمي ولا يمكنك التعديل عليه إلا في النماذج فقط وبصعوبه بالغة على المبتدئين .

كم حجم الملف ؟

تحياتي (f)

========

اخي فيصل الحربي

اسف على الأطالة سعة الملف هو 5.77 mb وللمعلومات الموجوده به لااستطيع ارفاقه حالياً طبعاً ارغب فقط ان اقوم على التعديل على التقارير المرفقة به مثل الخطابات مثلاً كليشة التقرير اسمها منتديات الويب ارغب بتعديلها الى منتديات الفريق العربي وهي على شكل مستندات الوورد .

ثانياً غلطتي اني لم اتطرق على قوانين المنتدى من قبل ولكن الجايات اكثر ارجوا تقبل اعتذاري وشكراً لنصحك وتوجيهك . اخوك fai.fai

جرب هذا الكود يمكن تقدر تسحب جميع حقول ونماذج البرنامج الى قاعدة mdb جديدة ..

Function fValidUser(strUserName as string) as integer
Dim wrk as workspace
Dim strPath as string
Dim dbRemote as Database
Dim rst as recordset

On Error goto fValidUser_error

Set wrk = DBEngine.Workspaces(0)

strPath = "<موقع الملف في الجهاز>"
Set dbRemote = wrk.OpenDatabase(strPath, False, True)

Set rst = dbRemote.OpenRecordset("<اسم قاعدة البيانات>", DB_OPEN_TABLE)
rst.index = "PrimaryKey"

 rst.Seek "=", strUserName

If rst.NoMatch Then
   fValidUser = False
Else
   fValidUser = True
End If

fValidUser_Exit:
On Error resume next
rst.Close
Set rst = nothing

 dbRemote.Close
set dbRemote = Nothing

Set wrk = nothing

exit function

fValidUser_Error:
Msgbox "unexpected error"
fValidUser = False
resume fValidUser_exit

End Function

جرب منت خسران شيء ;)

ما شاء الله تبارك الله هذه احدى طرق الاختراق اللطيفة للبرامج

بعطيكم العافية

كيف اضيف الكود الي في الأعلى واين الخبرة بسيطه

م