jjafferr

وعليكم السلام 🙂 نعم اعرف هذا ، لهذا السبب لم اذكر كلمة BE او محل تواجدها ، بينما في الرابط اعلاه ذكرت هذا لأن @سلمان الشهراني لم يكن يستعمل SQL Server : . انت لن تعمل مجلد مشاركة لتضع فيه اي شيء له علاقة ببرنامجك ، ويمكنك استعمال اي مجلد مشاركة عام في السيرفر ، حيث ان هذه الطريقة تختاج الى عمل ملف txt على الجهاز الآخر (السيرفر في حالتك). اما الآن فاترك كل ما عملناه ، وخلينا نتكلم عن السيرفر 🙂 انت استلمت رسالتين خطأ : 1. Type mismatch ، وهذا بسبب خطأ في السطر التالي من الكود : بدلا عن If Err.Number = 70 Then MsgBox "Permission Denied" MachineTimeGet = "" استعمل If Err.Number = 70 Then MsgBox "Permission Denied" MachineTimeGet = Empty بعد البحث ، وجدت الطريقة ، ووضعتها في نموذج جديد: جعفر 1176.my_FE_Network_PC_Time.mdb.zip

همممم ليش كل هذه الاسطر !! اذا كنت عامل علاقات بين الجداول ، وكنت مختار "حذف البيانات المرتبطة" (الاختيار الثالث في المربع الاحمر والذي عليه السهم) : يكفي ان تحذف بيانات الجدول الرئيسي فقط ، وبقية الجداول سوف تحذف بياناتها تلقائيا 🙂 يعني حسب اسماء الجداول في الصورة ، لو حذفنا بيانات الجدول tbl_Persone_Static (الجدول الذي حوله المربع الاحمر) ، فتلقائيا بيانات جميع الجداول المرتبطة به سوف يتم حذفها ، هذه ميزة وعمل الاختيار رقم 3 🙂 جعفر

طلبت من الاستاذ محمد طاهر ان يرد على استفسارك مباشرة 🙂 جعفر

وعليكم السلام 🙂 يمكنك جعل البرنامج يتأكد من وجود هذا الملف ، عند فتح اول نموذج ، وعلى حدث "التحميل" او "الفتح" : if Dir("D:\Test\AMIN.xls") ="" then msgbox "لم يتم الحصول على الملف المطلوب" exit sub 'اخرج من البرنامج endif جعفر

السلام عليكم 🙂 لا يكفي ان تكتب رقم IP السيرفر ، بينما يجب ان تكتب اسم المجلد الذي لك فيه صلاحية الكتابة Read/Write ، مثل : . وعملنا تعديل في الوحدة النمطية ، بحيث تأخذ اسم مجلد السيرفر من حقل النموذج : Public Function Make_File3(BE_Path As String) On Error GoTo err_Make_File3 Dim PauseTime, Start 'we need the path to have a slash at its end If Right(BE_Path, 1) <> "\" Then BE_Path = BE_Path & "\" End If BE_Path = BE_Path & "dummy.txt" 'make the dummy txt file Open BE_Path For Output As #1 Print #1, "No text required" Close #1 'pasue for a second, until file is recognized, for slow networks PauseTime = 1 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop 'get the date created Make_File3 = FileDateTime(BE_Path) 'clean up, delete the file Kill BE_Path Exit_Make_File3: Exit Function err_Make_File3: If Err.Number = 75 Then MsgBox "Access Denied" & vbCrLf & "لا تملك الصلاحية في الكتابة في المجلد" Else MsgBox Err.Number & vbCrLf & Err.Description End If Resume Exit_Make_File3 End Function . ونناديها من النموذج هكذا: Me.srvr_Date_Time = Make_File3(Me.srvr_Domain_Name) جعفر 1176.my_FE_Network_PC_Time.mdb.zip

نعم 🙂 جعفر

السلام عليكم 🙂 الموقع كان فيه عطل فني يوم الاثنين وصباح الثلاثاء ، والاستاذ محمد مدير الموقع كان متابع الموضوع 🙂 للعلم 🙂 جعفر

🙂

وعليكم السلام 🙂 هذا الرابط فيه طلبك : جعفر

اضفت الاستعلام الجديد add6 للصفوف ذات الـ 6 حصص , والاستعلام نسخة معدلة من الاستعلام السابق add ، عندما يكون الحقل F25 الذي به رقم الطالب للحصص الـ 7 ، فارغ ، نستعمل الاستعلام add6 : . جعفر stu_Table.zip

عفوا ، الآن صار لي وقت اشوف البرنامج !! اي زر في النموذج يقوم بالاستيراد وفيه المشكلة ؟ جعفر

الاستاذ فايز 🙂 اعطنا الخطوات لوسمحت 🙂 جعفر

السلام عليكم 🙂 صحيح غير ممكن عمله في نموذج مستمر ، ولكن مثل ما قال اخونا طاهر ، ممكن تحويله الى تقرير ، للعرض ، . والنتيجة تكون . ولكن لاحظ ، انك لا تملك ميزات النموذج ، مثلا ، انظر الى حقل كومبوبوكس البحث "فرز بالحالة العائلية" في وضع التصميم ، بينما في وضع العرض يتحول الى مربع نص. جعفر

حياك الله اخوي محمد 🙂 اتمنى من الجميع ان يتبع هذه الطريقة ، حتى يعرف صاحب الموضوع مكان الخطأ ، وكيف تم حل الموضوع ، والاهم من هذا ، انه لما يجي عضو آخر يقرأ الموضوع ، مافي داعي ينزل المرفق ويقلب النماذج والاكواد للوصول الى الكود ، ومن ثم يعرف طريقة الحل 🙂 جعفر

انا دائما افضل ان استعمل الاستعلام العادي بدلا عن استعلام الكود ، مع ان استعلام الكود اصعب في انشائه ، ولكن الاستعلام العادي ابسط في التعامل معاه ، لذا ، قمت بطلب اعطائي جملة SQL من الكود هكذا : . ثم عمل استعلام فارغ ، ثم بالزر اليمين ، نختار SQL ، ونلصق جملة SQL التي في المربع الاخير (رجاء الانتباه ، اذا الجملة فيها كلمات عربية ، فقبل ان تعمل نسخ ، يجب ان تتأكد ان لغة الكيبورد هي العربية ، وإلا فبدل الكلمات العربية سترى كلمات اغريقية غريبة !! ) . ثم نرى الاستعلام بالطريقة المعتادة في وضع التصميم: . وفي وضع العرض ، نريد ان نرى اي من بيانات السطر الاول الذ لا تريده: . سنأخذ كلمة "سنة الالتحاق" ونضعه في المعيار : . والنتيجة ، وقد تم ازالة السجل الاول : . الآن نعمل تغيير في الكود ، فنطلب من الكود استعمال هذا الاستعلام بدلا عن جملة SQL التي في الكود : . والسلام 🙂 كما لاحظت انك تحتفظ بنسخة من الملفات ، وبها تاريخ اليوم ، فالافضل ان تحفظه بتنسيق yyyy-mm-dd علشان تسلسل الملفات في المجلد يطلع صح 🙂 جعفر stu_Table.zip

😂😂😂 هذه الجملة عندنا في مصر لها معني اخر 😂😂😂 يالله هات استاذ محمد ، خلينا نختم الموضوع 😂

عفوا اخي خالد ، بس الرابط تنفيذ لنفس فكرتك 🙂 جعفر

معلش استاذ فايز ، خذني على قد عقلي !! وين هذا الزر ؟ كل الازرار اللي اشوفهم :

وعليكم السلام 🙂 انزلت المرفق ، ولكني ضعت بين الازرار !! رجاء تخبرنا اي الازرار نستعمل 🙂 جعفر

السلام عليكم 🙂 في عندنا مثل عماني يقول: ابيه (يعني اريده) بس تف عليه 🙂 يعني انت تريد الكومبوبوكس لميزاته ، وبعدين تريد ان توقف ميزاته احد الحلول انك تستخدم مربع نص عادي ، وعلى حدث بعد التحديث تبحث في الجدول عن القيمة ، او تظهر سطر واحد فقط ، وتظهر اسم العمود جعفر

السلام عليكم 🙂 المنتدى مليء بالمواضيع الدسمة ، كل الذي عليك فعله هو ، البحث جعفر

الحمدلله اننا على نفس الموجة

انعم واكرم بعمان واهلها الافاضل واصحابكم هم اصحابنا 😎 الله يسلمك ، اخوي زاهر عنده خطأ فني وما فهم السالفة اصحابنا اللي اتكلم عنهم ، اللي البخور يعزمهم ، تراهم اللي يطيرون جعفر

اووووه نسيت انك من متابعين مسيرتي مع اخونا الاستاذ فايز 🙂 جعفر

هممم ، يعني تريد تخبر اخوي خالد اني عماني ، وتريده يتحرّز بالبخور ، للعلم ، البخور يعزم اصحابنا جعفر