jjafferr

انا ما قلت هذا الشيء ، ومن معارضي تغيير اعدادات الوندوز حقي ، او اضافة شيء في الريجستري ، انا قلت . . كل موضوع له خصوصيته لعمل شيء معين ، لهذا السبب يمكنك اخذ ولو جزء منه حتى يفيدك ، ولكن ، وهذه الطريقة اللي اعمل عليها انا: شبه مستحيل ان اكون انا اول شخص في العالم يريد عمل هذا العمل ، لذا ، اول شيء اعمله هو البحث عن الطرق اللي استعملها الآخرين ، وآخذ منها حاجتي ، سواء العمل كله او كود معين ، ثم اعدل عليه ليلائم طلبي. وعلى حسب سؤال الموضوع ، فاعتقد بأنك حصلت على الاجابة المطلوبة ، اما قولك : فيجب ان تشرحه وبتفصيل ، وبصور ، وتخبرنا طلبك ، ولكن في موضوع جديد 🙂 جعفر

1. يمكنك تغيير نوع اطار النموذج من اعدادات النموذج ، فلن يستطيع المستخدم تغيير حجم او مكان النموذج ، 2. كذلك من اعدادات النموذج ، اختار "نعم" ، حتى يفتح لك النموذج في منتصف شاشة الاكسس ، . 3. لأني انا طلبت منه يفتح البرنامج من مسافة صفر من يسار شاشة الوندوز ، وترك مسافة صفر من اعلى شاشة الوندوز ، مع ملاحظة ان حساب المسافة بقياس Twips (سنتيمتر 1 = 567 تويب ، وبوصة واحدة = 1440 تويب) 4. الرابط التالي فيه الكود المطلوب لمعرفة حجم شاشة الوندوز : . او بإختصار تنادي هذه الدالة: Declare ptrsafe Function GetSystemMetrics32 Lib "User32" _ Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long Sub ScreenRes() Dim w As Long, h As Long w = GetSystemMetrics32(0) ' width in points h = GetSystemMetrics32(1) ' height in points End Sub . ** رجاء الملاحظة: شاشة الوندوز : هي الشاشة اللي لما تفتح الكمبيوتر وترى سطح المكتب : Screen/Display Resolution شاشة الاكسس : لما تفتح برنامج الاكسس ، المربع الاحمر هو شاشة الاكسس ، سواء اللي تشوفه في الصورة ، او لما تفتحه بدون اشرطة الاوامر العلوية ، وشريط بدون قائمة الكائنات من جداول و استعلامات وو ويعبئ حجم شاشة الوندوز . وبهذه الدالة تستطيع معرفة حجم شاشة الاكسس: 'https://www.tek-tips.com/viewthread.cfm?qid=1475779 Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function GetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hwnd As Long, lpRect As RECT) As Long Public Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Public Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, _ ByVal hdc As Long) As Long Public Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, _ ByVal nIndex As Long) As Long Public Const WU_LOGPIXELSX = 88 Public Const WU_LOGPIXELSY = 90 Public Function TwipsPerPixel(strDirection As String) As Long 'Handle to device Dim lngDC As Long Dim lngPixelsPerInch As Long Const nTwipsPerInch = 1440 lngDC = GetDC(0) If (Left$(strDirection, 1) = "X") Then 'Horizontal lngPixelsPerInch = GetDeviceCaps(lngDC, WU_LOGPIXELSX) Else 'Vertical lngPixelsPerInch = GetDeviceCaps(lngDC, WU_LOGPIXELSY) End If lngDC = ReleaseDC(0, lngDC) TwipsPerPixel = nTwipsPerInch / lngPixelsPerInch End Function Public Sub WindowSize(ByRef Height As Long, ByRef Width As Long) Dim hwnd As Long Dim rct As RECT hwnd = FindWindow(vbNullString, "Microsoft Access") If hwnd <> 0 And GetWindowRect(hwnd, rct) <> 0 Then Height = (rct.Bottom - rct.Top) * TwipsPerPixel("Y") Width = (rct.Right - rct.Left) * TwipsPerPixel("X") End If End Sub جعفر

نعم ممكن ، كل شغل الحجم موجود في حدث "عند فتح النموذج" ، فإحذف DoCmd.Maximize اما اذا كنت تريد ترتب النماذج داخل شاشة الاكسس ، فيمكنك استعمال الامر docmd.MoveSize(Right, Down, Width, Height) جعفر

وعليكم السلام 🙂 في الرابط برنامج ما استغنى عنه ، عدة مرات في اليوم ، ولما تشغله تحصل على جواب سؤالك جعفر

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

نعم ستعمل ، وبدون تعديل ، اما كيف تقسم قاعدة البيانات ، فالمنتدى مليئ بمثل هذا الموضوع ، واليك بعض الامثلة: https://www.officena.net/ib/topic/56791-استخدم-ملف-اكسس-من-اكثر-مستخدم-بنفس-الوقت/ https://www.officena.net/ib/topic/82076-طريقة-وضع-كلمة-المرور-بعد-تقسيم-قاعدة-البيانات/ https://www.officena.net/ib/topic/74664-تقسيم-قاعدة-البيانات-وتحويلها-الى-برنامج-تنفيذي/ https://www.officena.net/ib/topic/104953-سؤوال-مهم-في-خاصية-تقسيم-قاعدة-البيانات

وعليكم السلام 🙂 او افتح النموذج بهذا الامر: docmd.OpenForm "اسم النموذج",,,,acFormAdd جعفر

اذن الاستعلام هو افضل حل لك

تقدر تحذف الحقل NameID من الجدول ، وتستخدم الحقل الجديد اللي عملته ، فالحقل الجديد لا يعتمد على الحقل NameID

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

بالضبط لهذا السبب يجب ان لا نستعمله في الجدول 🙂

مثل تفضلت ، بس بزاوية مختلفة 🙂 . جعفر

شكرا على المرفق 🙂 انا عملت التغيير اللي اخبرتك ، ولكن على حقل آخر (للمقارنة) ، ويجب ان يكون نص : . ونحصل على نفس النتائج: . ولكن ، وبما انه Combobox ، فلا يمكننا معرفة العمود الاول والثاني من مجرد النظر الى النتيجة ، فالاعدادات هي التي تخلينا نرى النتيجة ، لهذا السبب ، خلينا نطلب قيمة الاعمدة بالاسم : . والنتيجة ، معناها ان التغيير اللي عملته انا في الاعدادات ، في الواقع ما عمل تغيير في قيم الـ Combobox بالنسبة للأكسس : . ولكن لما تستورد البيانات من اكسل ، تكون النتيجة: . جعفر 1517.Combo_Column2.zip

في وضعك ، ما فيه فرق بين تصديرك للاكسل او استيرادك من اكسل ، وكان خطأ مطبعي من جانبي 🙂 هل جربت طريقتي؟ جعفر

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

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

وابويا انا عليك موسى ، تو ملاحظتي صارت لا محل لها من الاعراب 🤔🙄 🙂 جعفر

عفوا ، انا اتفق معاكم 100% بأن تقسيم البرنامج هو الطريقة الصحيحة لمشاركته ، ولكن تعليقي كان على كلمة "يجب" اخوي موسى 🙂 جعفر

السلام عليكم 🙂 قبل كل شيء ، خلوني ابخر المكان عن العين ، علشان ما تصيب الحبايب 😁 . شكرا على الفكرة الجديدة ، بأرسال النسخة الجديدة من FE بإستخدام BE ، بدل عن سحبها بواسطة FE 🙂 في الواقع انا اكملت برمجة التحديث قريبا ، ودارت في بالي العديد ، وقرأت عن العديد من الطرق ، واستقر رأيي على الطريقة التقليدية ، مع العلم ان هذه الفكرة اتت على بالي (BE هو الذي يرسل التحديث) ، ولكن ارتأيت عدم استخدامها ، لأسباب التالية: ضعف الشبكة في موقع العمل ، وفي الواقع هذه تجربة جدا فريدة ، جعلتني اعيد النظر في الكثير من تفاصيل البرمجة ، وقد اُوفق لعمل موضوع خاص به إن شاء الله ، المستخدم (على الاقل 4 حاليا) ، يجب ان يُلبي طلب الزبائن ، بمعدل 3 زبائن في الدقيقة (والامل ان يكون اكثر) ، وبسبب ضعف الشبكة ، التركيز كان على جعل BE في حالة تأهب لخدمة المستخدم ، ولا نشغل BE بأي شيء آخر ، يجب ان يتم التحديث بدون تدخل المستخدم ، فهنا يجب ان نعرف مسار برنامج FE المستخدم ، تلقائيا ، وليس مكان البرنامج الاصل ، فربما ولسبب ما ، قام المستخدم بتغيير مكان المجلد الى مكان آخر ، كانت الفكرة ، ان لا استعمل نموذج في BE ، وانما عن طريق ادخال قيمة في حقل معين في جدول ، وهذا الحقل يقوم بتشغيل وحدة نمطية في BE ويقوم بعمل اللازم ، بهذه الطريقة: هذه المعلومة غير دقيقة ، فأول برنامج اكسس عملته لمؤسسة عام 2002 ، وضعت البرنامج كاملا على السيرفر ، وكان يستخدمة بين 5-8 اشخاص في اليوم ، والحمدلله الله ستر وما صارت مشكلة فيه 🙂 وحيا الله بالحبايب ، اللي ذكروني ، واللي ما ذكروني 🙂 جعفر

وهذه طريقة اخرى ، لعمل النسخ الاحتياط مباشرة على Google Drive جعفر

وعليكم السلام 🙂 البرنامج فيه خطأ !! المفروض لما تختار من ايقونة مسار التحديث ، وتختار المسار ، المفروض ان يتم تثبيته ، واستعماله ، ولكن السطر التالي من كود زر الحفظ ، لا يراعي ذلك ، وفي نفس السطر يمكنك تغيير المسار (الثانوي/الاضافي) اذا وُجد ، تغيير السطر التالي DstFile = CurrentProject.Path & "\Copy\نظام ادارة شؤون التلاميذ الاصدار 1.00-" & Format(Now, "dd-mm-yyyy") & "-" & Format(Now, "hh-nn-ss") & ".accdb" CurrentProject.Path معناه المجلد الذي به قاعدة البيانات بينما نريد ان نحفظه في المسار الذ اخترناه الى DstFile = Copy_Path & "\Copy\نظام ادارة شؤون التلاميذ الاصدار 1.00-" & Format(Now, "dd-mm-yyyy-hh-nn-ss") & ".accdb" بينما اذا لم نرد ان نحفظه في اي مجلد ثانوي ، وانما حفظه في المسار الذي تم اختياره من الايقونة DstFile = Copy_Path & "\" & "نظام ادارة شؤون التلاميذ الاصدار 1.00-" & Format(Now, "dd-mm-yyyy-hh-nn-ss") & ".accdb" جعفر

اخي عمار 🙂 رجاء عدم كتابة اكثر مو موضوع بنفس السؤال. مكرر يُغلق

اعتذر منك ، فلا يحق لنا التدخل في تعديل مثل هذا البرنامج الكبير إلا لمساعدة المبرمج ، او ما يُثبت بأن للشركة الحق في تعديل البرنامج ، لذا فالموضوع مخالف لـ "حقوق الملكية الفكرية" للمبرمج. الموضوع بين الشركة والمبرمج ، يُغلق . جعفر

اخي الكريم 🙂 فيه مجموعة اسئلة تحوم حول هذا الموضوع: 1. سؤال هذا الموضوع كان حول المرفق Database10.mdb وانه لا يعمل ، وقد اخبرتك انه معطوب ولا يمكن استرداد بياناته ، بينما تتكلم الآن عن مرفق آخر ، وتريد حذف بعض بياناته ، فأي علاقة بين السؤال الاصل وطلبك الاخير ؟ 2. التقرير الذي تتكلم عنه ، عبارة عن 5 صفحات ، وبه 151 سجل ، منهم 146 سجل بدون تاريخ : . وحتى التاريخ المكتوب في الجدول غير تقليدي : . فكيف تريد ان تختار التواريخ !! 3. تعليقك هذا معناه انك لست صاحب البرنامج : . فعليه ، يجب عليك التواصل بالمبرمج الذي عمل البرنامج ، ليعمل لك اللازم 🙂 قوانين المنتدى تراعي "حقوق الملكية الفكرية" للمبرمج ، وخلاف ذلك يعتبر مخالفا لقوانين المنتدى 🙂 جعفر

وعليكم السلام 🙂 كل اللي محتاج له هو الامر : Not In في معيار الاستعلام ، والرابط التالي فيه مثال: . ولكن ، البيئة اللي تريد تشتغل فيها ، غير مناسبة لجداول الأكسس ، والافضل ان تستعمل جداول SQL Server او mySQL على احد مواقع الانترنت ، وتربط واجهة الاكسس بها ، بهذه الطريقة تكون بياناتك على الانترنت ، والكل يقدر يشوفها ويستعملها في نفس الوقت. جعفر