jjafferr

الآن سؤالك كامل وواضح 🙂 لما تُدخل البيانات ، سؤاء في الجدول او الاستعلام او النموذج ، ترى ان طرف السجل عليه هذه العلامة : . هذه العلامة معناها انك في وضع إدخال المعلومة / تعديلها / تحديثها ، ولكنك لم تحفظها بعد ، فلما تخرج من السجل (خروجك من الحقل الى حقل آخر معناه انك لازلت على نفس السجل) ، سواء الى السجل السابق او التالي او اي سجل او حتى خروجك من الجدول / الاستعلام / النموذج (لأن الاكسس تلقائيا يحفظ السجل في هذه الحالات) ، هنا فقط الاكسس يحفظ بيانات السجل ، وعليه تختفى هذه العلامة 🙂 بعض الاوقات في النموذج نكون نُدخل البيانات ، والاكسس لا يكون قد حفظ السجل ، لهذا السبب ، لا تظهر هذه المعلومة الجديدة في التقرير (لانها اصلا غير محفوظة في الجدول) 🙂 والطريقة هي ان نُجبر البرنامج على حفظ السجل قبل طباعة التقرير ، وهناك عدة طرق لذلك ، ومنها : 1. النقر على زر Refresh All (مثل ما عملت انت) والذي يضطر البرنامج الى دفع ثمن باهض ، بتحديثه سجلات جميع الجداول (وهذا يأخذ وقت اذا كان عدد الجداول كثير او في شبكة) التي في البرنامج (واذا كنت تشتغل في بيئة اكثر من مستخدم وهناك من يدخل البيانات ، فحتى بياناتهم يتم تحديثها غصبا عنهم) ، 2. استخدام الكود ، قبل سطر طباعة التقرير (هذا الكود الاسرع) : يحفظ البيانات فقط اذا تم عمل تغيير عليها if me.dirty then me.dirty=false او سيتم حفظ البيانات بغض النظر اذا تم تعديل عليها او لا docmd.runcommand accmdsaverecord 3. استخدام الكود ، قبل طباعة التقرير (وهذا ابطئ ، لأنه يضطر الى تحديث بيانات الجدول ، ثم جلبها الى النموذج) : me.Refresh او me.Requery . جعفر

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

السلام عليكم 🙂 نعمل البرنامج ، ثم نقسمه الى قسمين ، FE الواجهة و BE الجداول ، ولما نعطيه للمستخدم ، نربط الجداول بمسار خاص به ، ويعمل البرنامج. ولما المستخدم يحتاج الى تعديل/اضافات ، ويرسل لنا نسخته بالايميل (انا ممكن اكون مسافر وبعيد عن نسختي) ، فيجب علينا ان نغير مسار الجداول ليتناسب مع مجلدات الكمبيوتر عندنا ، ولما ننتهي من التعديل ، نرسله بالايميل ، وهناك يجب على المستخدم ان يغير المسار الى ذلك الذي به BE الاصل 🙂 المشكلة انه: 1. بعض الاوقات نكون قد وضعنا الـ BE في مكان لا يجب ان يعرفه المستخدم ، فلا نريد تدخل منه لهذا التغيير ، 2. بعض الاوقات المستخدم لا يعرف مكان الـ BE اصلا ، 3. وبعض الاوقات ، المستخدم لا يكون فني ليعرف كيف يختار مكان الـ BE 🙂 صادفتني هذه المشكلة مراراً ، ومرة دفعت الثمن غالي لما ربطوه بالـ BE الغلط ، ربطوه بنسخة الـ Backup بدل عن النسخة الاصل 😁 الى ان اهتديت الى هذه الطريقة 🙂 الفكرة هي عبارة عن اضافة جدول tbl_ReLink_To_Original في الـ FE فيه سجلين ، سجل يحتوي على مسار BE المستخدم ، وسجل يحتوي على مسار BE المبرمج ، وبدل هذا الجدول ، ممكن ان نضع ملف نص txt في مجلد FE ، ونكتب فيهم السجلين ، ثم نقرأهم ، ولكن الجداول في الـ FE تناسبني اكثر ، فإستعملتها 🙂 1. لمعرفة مسار BE المستخدم: . . ثم ننسخه من (1) جدول MSysObjects الى السجل الاول (Seq = 1) في جدولنا (2) tbl_ReLink_To_Original . ثم في السجل الثاني (Seq = 2) ، نكتب مسار الـ BE حسب مجلدات الكمبيوتر عندنا (3) . طريقة العمل: نعمل ماكرو Macro باسم Autoexec ، والذي يقوم الاكسس بفتحه وتنفيذ اوامره اول ما يفتح البرنامج ، 1. نقوم بتشغيل الكود الذي سيربط الـ BE الى المسار الصحيح للمستخدم (اما المبرمج فلا يسنخدم هذا الماكرو ، وانما يدخل في البرنامج بمسك مفتاح الشفت) ، 2. اذا لم يحصل البرنامج على المسار الصحيح ، فيجب ان نخبره ان يعطينا نافذة نختار منها المسار الصحيح ، وهناك عدة طرق ، واخترت طريقتي هنا ، 3.4.5.7.8 هذه لإخفاء جميع كائنات البرنامج من جداول واستعلامات ونماذج وماكرو وتقارير ووحدات نمطية ، وتوسيع البرنامج لحجم الشاشة (فلا نحتاج ان نجعل النموذج منبثق ، والذي به الكثير من المشاكل) ، 5. فتح النموذج الاول من البرنامج ، . هذه هي الوحدة النمطية التي تقوم بالعمل (1) اعلاه : Public Function f_ReLink_To_Original(Optional Seq As Integer = 1) 'On Error GoTo err_f_ReLink_To_Original On Error GoTo Exit_f_ReLink_To_Original ' ' The client have his own path to the linked BE tables, ' yet for Development when we want to do change and modifications on the FE, ' we want to link this FE to our local BE tables, for testing, ' and we are done, we will send this FE back to the client, which will have our BE path!! ' ' Although the FE have a code on startup, which will prompt for the new BE path, but not all clients know how to use it!! ' So I added a table tbl_ReLink_To_Original to the FE, and the path to the client BE path, as Seq = 1 , ' and for the Developer BE, the Seq is 2 or other numbers. ' ' for the Development BE path, we call this Function, for the immediate window: ' ?f_ReLink_To_Original(2) ' ' or from a normal Event: ' Call Call f_ReLink_To_Original(2) ' ' and enter the DB with Shift key, ' ' and when the FE goes to the client, this Function will call Seq = 1 by default, thus returning their correct Path. ' ' ' by jjafferr ' ' v1. 24-Feb-2020 ' Dim db As dao.Database Dim tdf As dao.TableDef Dim ConnectionString As String, Linked_Connection As String Set db = CurrentDb 'which BackEnd the user selected ConnectionString = DLookup("[DB_Path]", "tbl_ReLink_To_Original", "[Seq]=" & Seq) 'the existing BackEnd Linked_Connection = DLookup("[Database]", "MSysObjects", "[flags] = 2097152") 'if the existing BackEnd = User Selected, then No need to connect again, just exit If ConnectionString = Linked_Connection Then GoTo Exit_f_ReLink_To_Original For Each tdf In db.TableDefs ' Only make a change if the table is a linked table If Len(tdf.Connect) Then tdf.Connect = ";DATABASE=" & ConnectionString tdf.RefreshLink End If Next Exit_f_ReLink_To_Original: Exit Function err_f_ReLink_To_Original: If Err.Number = 3170 Then 'MsgBox "رجاء التاكد من مسار القاعدة الموجوده في الجدول" & vbCrLf & "tbl_ReLink_To_Original" 'Resume Next Resume Exit_f_ReLink_To_Original Else MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_f_ReLink_To_Original End If End Function . اما للمبرمج ، فيجب عليه ان يدخل الكود ويكتب (لاحظوا اننا استخدمنا الرقم Seq = 2 ، ليشير الى السجل الثاني في الجدول ، المشير الى مسار الـ BE حسب مجلدات الكمبيوتر عندنا (3) : من نافذة الكود السفلى: immediate ?f_ReLink_To_Original(2) او من اي حدث Call f_ReLink_To_Original(2) . واذا اردت الاستفادة من هذه الطريقة لبرامجك ، فيجب عليك استيراد هذه الكائنات الى برنامجك (مع الاخذ في الاعتبار تغيير اسم النموذج في ماكرو autoexec ) : جعفر Relink Tables.zip

وعليكم السلام 🙂 رجاء تعطينا تفاصيل اكثر حتى نقدر نساعدك 🙂 جعفر

وعليكم السلام 🙂 جرب هذا الكود: =IIf(IsError([Text61]-[Text63]);"";[Text61]-[Text63]) جعفر

وعليكم السلام 🙂 رجاء عمل التالي: 1. ادخل بيانات في جدول الاشهر ، وبيانات اخرى في الجداول الاخرى حسب الحاجة ، 2. ماهي العلاقة بين جدول الاشهر وبقية الجداول ؟ ثم على اساس هذه البيانات ، اعمل يدويا النتيجة التي تريدها على اكسل ، وارفق لنا كل ذلك ، وان شاء الله خير 🙂 جعفر

السلام عليكم 🙂 مثال مشابه جعفر

احد المؤسسات التي تستعمل احد برامجي ، عندها 16 مستخدم ، وحوالي 2200 عملية تعامل مع البيانات يوميا ، من سجلات جديدة ، او تحديث او حذف ، او تصفح ، واكثر من مليون ونصف سجل بين مختلف جداول البرنامج ، لهذا السبب ، مافي مجال إلا ان يكون البرنامج في كامل لياقته 🙂 جعفر

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

جرب هذا الرابط ، فيه مجموعة طرق ، من خبير 🙂 https://accessexperts.com/blog/2011/03/24/sql-server-connections-strings-for-microsoft-access/ جعفر

السلام عليكم 🙂 النسخة الثالثة من البرنامج 🙂 جعفر

السلام عليكم 🙂 رجاء مراجعة موضوع النسخة 2 من هنا : واجهة هذه النسخة: البرنامج يقوم بهذه الخطوات التي يوصي بها المحترفين (كما هو موضح في الصورة اعلاه) ، طريقة العمل: 1. اختار ملف اكسس ، 2. اذا الملف محمي بكلمة سر ، فيمكن كتابته في المربع المخصص ، حيث سيتم حفظه في ذاكرة الكمبيوتر ، والتي يجب عليك ان تدخلها يدويا للقيام بالخطوات 2 و 3 لمرة واحدة ، بينما البرنامج سيدخلها تلقائيا للخطوات التالية ، 3. يجب ان تمسك مفتاح الشفت ، ثم تضغط على زر Decompile ، ولا تترك الزر إلا لما ينتهي البرنامج من عمله ، عندما نرى الخطوات 8 و 9 🙂 هذه النسخة اسرع من النسخة السابقة ، وافضل 🙂 جعفر Decompile_3.zip

السلام عليكم اخي حسين 🙂 قام اخونا العود ابو خليل مشكورا بجمع بعض المواضيع الدروس والمواضيع المهمة هنا: دروس وشروح وتطبيقات وأفكار واول درس كان SQL Server ، وفيه عدة امثله: أكسس و اسكيوال سيرفر Access with Sql Server فأرجو ان تحصل على جوابك هناك ان شاء الله 🙂 جعفر

السلام عليكم 🙂 انت بهذه الطريقة وصلت الى الحد الاقصى لبرنامج الاكسس ، ورجاء احتفظ بنسخه منه في مكان امين ، قبل ان تفقد جميع بياناتك!! كما لاحظت ، لا يمكنك الاستمرار بإضافة صور جديدة ، وانت محظوظ بانك تقدر تفتح قاعدة البيانات وتشوف محتواها !! الطريقة الوحيدة لديك الآن هي: 1. عمل نسختين لبرنامجك ، واحدة للحفظ والثانية لتفكيكها (تابع لوسمحت) ، 2. افراغ/اخراج جميع المرفقات من برنامجك الى مجلد/مجلدات في الويندوز (برمجيا طبعا 🙂) ، بطريقة مرتبة ، آخذ بعين الاعتبار التوسع المستقبلي (يعني ما تريد ان تضع جميع مرفقاتك في مجلد واحد ، لجميع السنوات وجميع الاقسام) ، 3. حذف حقل المرفقات من قاعدة البيانات ، 4. عمل ضغط واصلاح ، 5. عمل ربط برمجي لهذه المرفقات. جعفر ملاحظة: انا غير متواجد في المنتدى هذه الايام ، ولا اعرف كيف وصلت لهذا الموضوع 🙂 فرجاء لا تتوقع رد سريع مني 🙂

وعليكم السلام 🙂 اضف هذا المتغير الى القائمة: Public Const msoControlPopup = 10 جعفر

قد يكون الكمبيوتر الآخر فيه تحديث وندوز مال الفترة الماضية : جعفر

شكرا اخوي عبدالفتاح على مشاركتك 🙂 وكلما ابتعدت عن استعلام المجاميع ، كلما كان استعلامك اسرع 🙂 جعفر

تفضل ، استعلام يمكن تحديثه 🙂 ولكن ليس بأستعلام واحد !! كان ممكن نختصر هذه الاستعلامات ، ولكنك اردت الحل عن طريق الاستعلام الفرعي ، وليس وحدة نمطية !! الاستعلام 4 هو مطلبك 🙂 . . جعفر 1167.1.mdb.zip

صدقني انا بطيئ في ادخال البيانات ، فيا ريت ترفق لنا هذه البيانات 🙂 يا اخي ، قول لي من بياناتك شو اللي تريد اظهاره بالاستعلام ، وما فهمت اي سجل تريد جعفر

السلام عليكم اخي محمد 🙂 صار لي يومين اضرب اخماس في اسداس ، وما عرفت المطلوب رجاء تشرح لي بالتفصيل لو سمحت 🙂 جعفر

شكرا جزيلا اخي صالح 🙂 لطالما ظل هذا الموضوع غامض ، وهو تحت اعيننا 🙂 جعفر

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

اعطنا مثال لوسمحت ، وياريت شوية بيانات

الحمدلله 🙂 وشكرا على المعلومة 🙂 جعفر

عفوا ، انا لم افهم شيء !!