kaser906
-
Posts
1,411 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
23
Community Answers
-
kaser906's post in مشكلة حدثت بعد اضافة كود لتغيير حرف was marked as the answer
وعليكم السلام ورحمة الله وبركاتة
أخي الفاضل
أرجو ان تتقبل نقدي بصدر رحب
أولا
يوجد لديك أخطاء وقعت بها اثناء تسمية بعض الحقول والجداول والنماذج أستطيع حسب معرفتي المتواضعه جدا
تسميتها بالاخطاء ( الفادحة)
no data sub id main end start serial
كل هذه المسميات محجوزة وعند وقوع بعض المشاكل أو الاخطاء كما حدث معك الآن
تجعلك تدور في حلقة مفرقة لمحاولة معرفة السبب
والكثير من اساتذتنا الكرام في هذا المنتدى عندما يدخولون على موضوع ويفتحون المرفق
ويجدون ان المرفق يحتوي على مسميات لكائنات باسماء محجوزة تجدهم يغادرون بدون تردد
لماذا ؟
لانهم وجهو وحذروا من اعطاء التسميات المحجوزة لما تسببه من اخطاء وصعوبة حل المشاكل التي تنتج عنها
ثانيا
نأتي لموضوعك
وضعت الكود وقلت انه سبب مشكلة
ولم تشرح ما هو هدفك من وضع الكود
ما هو التكرار الذي يحدث وما هو المعيار الذي يحدد عدم حدوثة
حاول تفصل وتوضح بشكل دقيق لعلك تجد من يساعد
::بالتوفيق::
إن كنت ترى هذه المشاركة مفيدة فلا تنسى التقيم
-
kaser906's post in كيف امنع المستخدم من الخروج من النموذج وهو لم يقم بالحفظ was marked as the answer
وعليكم السلام
انظر المثال في الرابط التالي
::بالتوفيق::
-
-
kaser906's post in طريقتي في حماية قاعدة البيانات من تفعيل الشفت وحماية الاستعلامات و وحدات المايكرو وكلمة السر للقاعدة الخلفية was marked as the answer
أمل من الادارة وضع الملفين بالمشاركة الأولى بسبب عدم اتاحة خيار التحرير
إليكم الملفين مفتوحي المصدر
ولا أعتقد أن الطريقة محتاجه شرح
فقط قم بتعديل أسم المايكرو في الملفين بإزالة رقم 1
او قم بتعين نموذج بدأ التشغيل من قائمةالخيارات
::بالتوفيق::
Free.rar
-
kaser906's post in طلب عدم التنقل او الاغلاق الا بعد الحفظ was marked as the answer
اخي الكريم
انظر الموضوع التالي
تجد به نفس طلبك حاول الاستفادة من الطريقة بالنموذج
::بالتوفيق::
-
kaser906's post in رسالة خطاء في اوفيس 2013 was marked as the answer
بعد إذن استاذي @jjafferr
إذا اردت عدم ظهور هذه الرسالة اختر كما هو موضح بالصورة وواضح من شرح الميزة ما ذكره الاستاذ جعفر
::بالتوفيق::
-
kaser906's post in كيف الطريقة عنداثناء كتابة في خانة رقم يكتب تلقائيا في خانة txt1 من دون مااضغط زر الانتر زر الموس was marked as the answer
تفضل المرفق
::بالتوفق::
تجربة (2).accdb
-
kaser906's post in استفسار حول اعتماد بيانات حقل في نموذجان مختلفان على حقل في جدول واحد was marked as the answer
تفضل
::بالتوفيق::
elements906.accdb
-
kaser906's post in طلب: كيف يتم تحديث حقل التاريخ مباشرة هجري أو ميلادي was marked as the answer
تفضل بثلاث خيارات وليس خيارين
أم القرى ميلادي هجري
::بالتوفيق::
Kaser906تحويل التاريخ11.rar
-
kaser906's post in حل مشكلة عند الذهاب الى تعديل تصميم البرنامج يكون الخيار غير مفعل was marked as the answer
وعليكم السلام
هذه ليست مشكلة
الملف الذي تحاول التعديل عليه تم حمايته
ضد التعديل
::بالتوفيق::
-
kaser906's post in كيف اضيف أمرين في بعد التحديث في مربع نص واحد ؟ was marked as the answer
ضع هذا الامر في حدث عند التركيز لمربع التحرير والسرد MA
Me.Requery
وهذا يغنيك عن وضع الامرين بالحقلين السابقين
::بالتوفيق::
-
kaser906's post in اظهار اقدم تاريخ بالاستعلام واضافة استثناء was marked as the answer
تفضل
::بالتوفيق::
3Kaser906.rar
-
kaser906's post in تجديد الارتباط تلقائياً بمسار جديد للجداول المرتبطة التي لها باسوود was marked as the answer
جرب الخيار كما بالصورة
-
-
kaser906's post in مشكلة في تعديل كلمة السر .. صلاحيات المستخدمين was marked as the answer
تفضل
كود فتح نموذج تعديل كلمة السر
On Error GoTo Err_Orders1_Click Dim x As Integer x = DLookup("SN", "users_T", "deCode([UName],'User')='" & Trim(MyUser.USERNAME) & "'") DoCmd.OpenForm "UsersChangePassword_F", , , , , acDialog, x Exit_Orders1_Click: Exit Sub Err_Orders1_Click: MsgBox Err.Description Resume Exit_Orders1_Click وهذا الكود لتعديل كلمة السر بعد التأكد من المطابقة
If IsNull([paas]) Then MsgBox "أدخل كلمة المرور hgshfrm", 48, "نقص بالإدخال" Exit Sub ElseIf Me.paas <> Me.Pww Then MsgBox "كلمة المرور السابقة غير مطابقة", 48, "خطأ بالادخال" Exit Sub ElseIf IsNull([PW]) Or IsNull([CPW]) Or [PW] <> [CPW] Then MsgBox "كلمة المرور الجديدة غير متطابقة" + vbCr + "أو أنها فارغة" + vbCr + "الرجاء إعادة كتابة كلمة المرور", vbOKOnly + vbMsgBoxRight + vbExclamation, "خطأ بالإدخال" Exit Sub ElseIf [CPW] = [Pww] Then MsgBox "كلمة المرور الجديدة" + vbCr + "هي نفسها كلمة المرور القديمة " + vbCr + "أدخل كلمة مرور مختلفة ", 48, "خطأ بالادخال" Exit Sub ElseIf Len([CPW]) < 4 Then MsgBox "يجب أن تتكون كلمة المرور " + vbCr + "من أربعة ارقام او حروف على الاقل", 48, "ادخـال خـاطـئ !" Exit Sub Else DoCmd.RunSQL "UPDATE Users_T SET UName = '" & incode(UN, "User") & "' , PW = '" & incode(PW, "Pass") & "' WHERE ( SN=" & Str(UNUM) & ");" MsgBox "تم تغيير كلمة المرور بنجاح", vbInformation, "تنفيذ" DoCmd.Close End If تم عمل مربعي نص غير منظمين
إليك المرفق
::بالتوفيق::
Kaser906 صلاحيات المستخدمين.rar
-
kaser906's post in تفريغ كافة الحقول من البيانات بعد الإدخال was marked as the answer
DoCmd.GotoRecord , , acNewRec
-
kaser906's post in How To Fix MS Access Search Key was marked as the answer
حسب علمي لايمكن اصلاح هذه الرسالة في القاعدة الحالية
قم بعمل قاعدة بيانات جديدة
ثم استورد جميع الكائنات اليها
والاهم من ذلك يجب معرفة سبب ظهور هذه الرسالة
::بالتوفيق::
-
kaser906's post in تخفيف الماكرو was marked as the answer
ممكن تجرب الخطوات التالية
اعمل مجلد جديد على سطح المكتب
ضع البرنامج بداخله
ثم قم بالخطوات التالية حسب الصور
اختر المجلد الذي يوجد به البرنامج
وجرب شغل
ممكن هذي تفيد معاك اذا كان قسم الاتي مفعل خاصية السماح بالمواقع الموثوقه على السيرفر
::بالتوفيق::
-
kaser906's post in استفسار حول DLookup was marked as the answer
TYPE2 = DLookup("last([Typ1])", "TypTbl") -
kaser906's post in استفسار حول كيفية الغاء التحذير عند تشغيل استعلام التحديث was marked as the answer
وعليكم السلام
استخدم الحدث التالي
DoCmd.SetWarnings False DoCmd.OpenQuery "اسم الاستعلام" DoCmd.SetWarnings True
-
kaser906's post in سؤال حول ربط قاعدة البيانات داخل شبكة المحلية was marked as the answer
اغلق قاعدة البيانات من الجهاز( الخادم ) الذي توجد عليه
افتح المجلد الذي توجد فيه القاعدة
إذا رأيت ملف مشابه لأسم قاعدة البيانات
فهذايعني ان القاعدة مفتوحة من احد الاجهزة المتصله
لكن لايمكن الجزم بأنه يتم حاليا ادخال سجلات او التعديل عليها
لعل المستخدم مثلا فتح ملف الواجهة وتركه مفتوح
::بالتوفيق::
-
kaser906's post in كود تأمين حقل في النموذج was marked as the answer
تفضل
::بالتوفيق::
إذا كنت ترى هذه المشاركة مفيدة فلا تنسى التقييم
نموذج تامين السجلات خاص .1.K906باوفيسنا.rar