Mohamed Khaled Galal

تم رفع المثال

السلام عليكم اخواني عندي تقرير يوجد به خانات بها بيانات اسفل كل خانه يوجد خانات مخفيه لاني وضعت كود باخفاء الخانات التي لا يوجد بها بيانات ولكن المشكله انها تركت فراغات كبيره بين كل خانه والثانيه كما هو موضح بالصوره هل يمكن عمل كود لازاله المسافات الفارغه . وهذا هى الكود If IsNull([XXS]) Then Me.XXS.Visible = False Me.Label122.Visible = False Else Me.XXS.Visible = True Me.Label122.Visible = True End If If IsNull([XS]) Then Me.XS.Visible = False Me.Label121.Visible = False Else Me.XS.Visible = True Me.Label121.Visible = True End If If IsNull([S]) Then Me.S.Visible = False Me.Label120.Visible = False Else Me.S.Visible = True Me.Label120.Visible = True End If If IsNull([M]) Then Me.M.Visible = False Me.Label119.Visible = False Else Me.M.Visible = True Me.Label119.Visible = True End If If IsNull([L]) Then Me.L.Visible = False Me.Label118.Visible = False Else Me.L.Visible = True Me.Label118.Visible = True End If If IsNull([XL]) Then Me.XL.Visible = False Me.Label117.Visible = False Else Me.XL.Visible = True Me.Label117.Visible = True End If If IsNull([XXL]) Then Me.XXL.Visible = False Me.Label116.Visible = False Else Me.XXL.Visible = True Me.Label116.Visible = True End If If IsNull([XXXL]) Then Me.XXXL.Visible = False Me.Label115.Visible = False Else Me.XXXL.Visible = True Me.Label115.Visible = True End If If IsNull([XXXXL]) Then Me.XXXXL.Visible = False Me.Label114.Visible = False Else Me.XXXXL.Visible = True Me.Label114.Visible = True End If If IsNull([XXXXXL]) Then Me.XXXXXL.Visible = False Me.Label113.Visible = False Else Me.XXXXXL.Visible = True Me.Label113.Visible = True End If If IsNull([XXXXXXL]) Then Me.XXXXXXL.Visible = False Me.Label112.Visible = False Else Me.XXXXXXL.Visible = True Me.Label112.Visible = True End If If IsNull([Total]) Then Me.Total.Visible = False Me.Label143.Visible = False Else Me.Total.Visible = True Me.Label143.Visible = True End If وهذا اسم التقرير ومرفق معه المثال: https://www.mediafire.com/file/q820bqvh960eorn/QR.rar/file

السلام عليكم اخواني الكرام اريد عند الضغط على زر اضافه سريال يقوم بفتح نموذج رقم (2) وكتابه رقم 1 الموجوده في النموذج رقم (1) في خانه رقم الأذن في النموذج رقم (2) نموذج رقم (1) نموذج رقم (2) اسم النموذج رقم (1) اسم النموذج رقم (2) مرفق قاعده البيانات برجاء ربط قاعده البيانات بالجداول. https://www.mediafire.com/file/pm9kiux3ir4s0yg/QRSystemManagerFinal.rar/file

السلام عليكم اخواني اواجه مشكله وهي ظهور خلفيه الاكسس عند الضغط على فورم معين في الاكسيس كما يلي عندما فقط اضغط على هذه الصفحه تفتح لي واجهه الاكسيس في الخلف ولكن باقي الصفحات عند الضغط عليها تعمل بشكل جيد وتكون واجهه الاكسيس مخفيه

متشكر جدا لكم اخواني الكرام على مجهودكم الاكثر من رائع

السلام عليكم اخواني الكرام اريد طريقه نقل بينات منتج من جدول رقم 1 الي جدول رقم 2 عن طريق نموذج يتم كتابه كود المنتج وتلقائيا يقوم بجلب البيانات من الجدول الاساسي ونسخها في الجدول رقم 2 مرفق لكم مثال على هذا Database2.accdb

للرفع

للرفع

للرفع

للرفع

اليوزر الاخر لي تفضلوا اخواني هذا شرح لما اريد عمله ومرفق لكم المثال اريد عند اضافه بيانات في هذه الصفحه تظهر لي رساله بان البيانات غير مسجله في الجدول رقم 1 يجب تسجيلها هنا اولا وهذه هي جداول النموذجين يجب تسجيل البيانات في جدول BundleDataINCutting اولا ثم تسجيلها في جدول BundleDataOut وهذا المرفق اخواني الكرام https://www.mediafire.com/file/pltioq1vwru1m75/DataBase.rar/file

شكرا لك اخي العزيز

السلام عليكم اخي العزيز اولا اشكرك جدا على تعبك ومجهودك معي هذا هو المطلوب ولكن علي البيانت الموجوده في الجدول كما يلي

لا يمكن اضافه موقع الشبكه كمموقع موثوق الا بالطريقه التي ذكرتها في الاعلي

هذا الحل لو كانت قاعده البيانات على الجهاز فقط وليست الشبكه

السلام عليكم اخواني هل يوجد حل لهذه الفكره

السلام عليكم اخواني الكرام لدي قاعده بيانات واريد عمل فلتر لاكثر من قيمه في النموذج برقم الموديل او رقم PO او مقاس واريد ان اربطهم ببعض لان كل موديل لديه رقم PO ومقاس اريد ان تكون الثلاث حقول كومبو بوكس ان امكن لديكم مرفق لقاعده البيانات برجاء ربط الجداول في النماذج https://www.mediafire.com/file/378mhndqy937d5p/m.khaled.rar/file

السلام عليكم اخي العزيز تفضل هذا نظام تحكم كامل للمستخدمين يمكنك منع اي مستخدم من فتح نموذج معين او مسح او تعديل او طباعه او اضافه شيئ فقط كم باضافه الي برنامجك كما تلاحظ يوجد جدول اسمه Forms Names وهذا الجدول تقوم باضافه اسماء النماذج كما هي بالتفصيل والجدول الثاني هو UserControl وهنا تضيف فيه الصلاحيات والجدول الثالث وهو جدول المستخدمين وهنا اضافه صلاحيات لكل مستخدم على حده زر Add Control تقوم بالضغط عليه عند اضافه نموذج جديد على برنامجك قم بوضع هذا الكود في الواجهه الرئيسيه للبرنامج او في كل نموذوج حسب تصميمك للبرنامج Option Compare Database Option Explicit Dim frmname As String Sub addaction() Me.Open = DLookup("open", "usercontrol", "[userid]=" & Me.txtUserID & "and [FormName] = '" & frmname & "' ") Me.Add = DLookup("add", "usercontrol", "[userid]=" & Me.txtUserID & "and [FormName] = '" & frmname & "' ") Me.Edit = DLookup("edit", "usercontrol", "[userid]=" & Me.txtUserID & "and [FormName] = '" & frmname & "' ") Me.Delete = DLookup("delete", "usercontrol", "[userid]=" & Me.txtUserID & "and [FormName] = '" & frmname & "' ") End Sub Sub frmopencheck() If Me.Open = -1 Then DoCmd.OpenForm frmname Else MsgBox "ليس لديك الصلاحيه", vbCritical, "تحذير" Exit Sub End If End Sub ثم قم بوضع هذا الكود في زر فتح النموذوج Private Sub addbundleout_Click() frmname = "اسم النموذج" Call addaction Call frmopencheck End Sub قم بوضع هذا الكود في كل النماذج في حدث Form_Current Private Sub Form_Current() Me.Form.AllowAdditions = Forms!MainForm!Add.Value Me.Form.AllowEdits = Forms!MainForm!Edit.Value Me.Form.AllowDeletions = Forms!MainForm!Delete.Value End Sub UserControl.rar

السلام عليكم اخي الكريم لقد وجدت حل نهائي لهذه المشكله وهي كالاتي الذهاب الي قائمه Start والبحث عن internet Options ثم اتباع الاتي : ثم قم باضافه IP السيرفر او IP الجهاز المشارك عليه قاعده البيانات ثم الغاء علامه الصح في الخطوه رقم 6

شكرا جدا ليك اخي @Moosak لقد تم حل المشكله

بالفعل انا كاتب 0

اخواني الكرام لقد حاولت عددت مرات وتم حل المشكله كما في المرفق

شكرا لك اخي @Moosak عندما طبقت هذا الكود ظهرت لي هذه الرساله

نعم اخي هي خانه شيك ولكن لا اريد عدد الخانات الصح اريد اذا كان في خانه غير متعلم عليها صح تظهر لي رساله بأن هناك سجلات لم يتم التعليم عليها بالصح

شكرا لك اخي لكن اريد ان اطبق داله IF اذا كان هناك سجلات تساوي 0 تظهر الرساله اذا لم تكن هناك سجلات تساوي 0 لا يظهر شيئ وشكرا جدا لك