شايب
-
Posts
322 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
2
Community Answers
-
شايب's post in جلب قيمه الى استعلام من جدول اخر ليس بينهما علاقه was marked as the answer
جرب
جلب قيمه1.accdb
-
شايب's post in عند فرز النتائج من قائمة منسدلة was marked as the answer
في معيار الاستعلام لحقل القسم استبدل المعيار من
[Forms]![a_f_date]![القسم] الى المعيار التالي
IIf(Len([Forms]![a_f_date]![القسم] & "")=0;[القسم];[Forms]![a_f_date]![القسم]) الملف مرفق
اخونا الشايب
frzz.accdb
-
شايب's post in الترقيم التلقائي االيومي was marked as the answer
اجعل الترقيم في حدث بعد التحديث لحقل الاسم وليس القيمة الافتراضية للحقل
ترقيم يومي.accdb
-
شايب's post in مساعده في كود تحقق من البيانات was marked as the answer
لا تجعل الجدول BundleDataOut هو النموذج الفرعي وانما اعمل نموذج اضافي مصدرة الجدول BundleDataOut وبالامكان جعل النموذج الجديد يعرض على شكل ورقة بيانات ثم ضع الكود في حدث بعد التحديث للحقل BundleCode وسوف يعمل الكود
انظر للفيديو ⬇️
-
شايب's post in هل بالامكان تكوين Navigation خاص في نموذج الاكسس ؟؟ was marked as the answer
جرب
Database1121.accdb
-
شايب's post in Append Query was marked as the answer
جرب مع عدم الاقتناع باستخدام حقول مربعات التحرير والسرد في الجداول
Estimation.accdb
-
شايب's post in تصفية البيانات في النموذج المستمر was marked as the answer
التصفية هي وضع معيار معين لاظهار السجلات التي ترغب في اظهارها وليست لاخفاء البيانات
اما عند رعبتك في جعل النموذج فارغ من البيانات فيمكن استخدام الخاصية DataEntry ولها قيمتان نعم يكون النموذج لادخال بيانات فقط وعند تحديدها الى لا فسيتم عرض البيانات
و لاستخدام الخاصية مع النموذج الفرعي في زر امر او اي حدث مناسب لك ضع الامر التالي
Me.test.Form.DataEntry = True test هو اسم النموذج الفرعي
ولعكس العملية
Me.test.Form.DataEntry =False الشايب
-
شايب's post in عرض تقرير اختيار متعدد من مربع قائمة was marked as the answer
مشاركة مع الاستاذ خليفة
فكرة من ضمن افكار وبدون الحاجة الى تقريرين
الملف مرفق
اخونا شايب
gestion(1).accdb
-
شايب's post in كود قائمة بحث واستبدال was marked as the answer
مشاركة مع الاساتذه الكرام
الاخ شايب يعتقد ان فكرة نموذج بحث التي اشار اليها الاساتذة فكرة معقولة
ولكن يمكن التوصل للمطلوب بدون الحاجة الى ذلك
حيث ان اخفاء او اظهار تبويب استبدال في نافذة البحث مرتبط بحالة التعديل للنموذج نعم او لا
وبالتالي يمكن اضافة السطر
Me.AllowEdits = False قبل الكود الذي تستخدمه
ولكن لابد ان تعيد تغيير الخاصة الى نعم بعد تنفيذ البحث او في اي حدث اخر لتتمكن من تعديل البيانات في النموذج
اخونا الشايب
-
شايب's post in مساعدة في الإكمال التلقائي للبيانات في مربع النص was marked as the answer
ماتبحث عنه هو ما اشار الية الاستاذ خليفة
هناك فرق بين الحقل النصي والكمبو بوكس
والفيديو الذي اشرتم له يستخدم كمبوبوكس ويوجد بالموقع العديد من الامثلة لذلك
مع كل ذلك هل يمكن عملها باستخدم مربع نص الاجابة نعم
هذا الرد للتوضيح فقط لعدم الاقتناع بالفكرة مع انها تؤدي المطلوب
الشايب
-
شايب's post in إظهار الاختيارات المحددة من مربع قائمة في مربع نص was marked as the answer
الشكر لله استاذنا
ايضا ممكن نستخدم الامر التالي للوصول للنتيجة
Dim x As String Dim i As Integer For i = 0 To lst_XX.ListCount - 1 If lst_XX.Selected(i) = True Then x = x & " - " & lst_XX.Column(0, i) End If Next i x = Mid(x, 4) DoCmd.OpenReport "rap_1", acViewPreview, , , , x الشايب
-
شايب's post in إختيار واحد أو اختيار متعدد من مربع قائمة لعرض تقرير was marked as the answer
ههههه
نعم لدي اكثر من طريقة ولكن الاسهل باستخدام جدول مؤقت ونستخدم معيار القائمة لغرض الحاق البيانات المفلترة
اما مصدر التقرير فيكون استعلام جديد مبني على الجدول المؤقت
جرب المرفق لعله يكون المطلوب ولي عود غدا ان اراد الله
الشايب
basey(٢).accdb
-
-
شايب's post in تلوين حقول في تقرير بناء على قيم محددة was marked as the answer
استخدم التنسيق الشرطي
Database1(20).accdb
-
شايب's post in محتاجه كود يعمل تحديد الكل والغاء الكل was marked as the answer
بعدين لابد ان نعرف اننا لا نتعامل مع خانة اختيار او مجموعة اختيار وانما في هذا المثال نتعامل مع حقل من نوع نعم لا
-
شايب's post in باستخدام زرار id طريقة نقل بيانات من فورم مصدره جدول لفورم اخر بناء على was marked as the answer
اذا اردنا بقاء نموذج visit_frm غير منضم وبدون اجراء تغيير على النماذج والحقول
فمن اسهل الطرق تحميل قيمة الحقول ضمن امر فتح النموذج
في مثال الاخت في زر الامر النتائج نضع الامر التالي
DoCmd.OpenForm "visit_frm", , , , , , ID & "|" & ptitle & "|" & pname & "|" & code وكما تشاهد حملنا قيمة اربع حقول ويمكن زيادة عدد اكبر من ذلك وفصلنا بين كل حقل والاخر بـ
&"|"& والغرض استخدامها كفاصل بين قيمة كل حقل والاخر
ثم في نموذج visit_frm في حدث عند الفتح نضع الامر
If Not IsNull(Me.OpenArgs) Then Dim k As Variant k = Split(Me.OpenArgs, "|") ID = k(0) ptitle = k(1) pname = k(2) code = k(3) End If اخونا الشايب
-
شايب's post in برجاء المساعدة في كلمة مرور لزرار was marked as the answer
هذا الخطا اذا كنت تستخدم اصدار 64
فلا يكفي اضافة ptrsafe
وانما نحتاج تغيير نوع المتغير من long الى LongPtr
مرفق مثال من موقع اجنبي قمت بتعديله بشكل سريع
demo of inputbox with mask.mdb
-
شايب's post in اختيارين من قائمة يتم فلترة اختيارهم فى قائمة اخرى was marked as the answer
مشاركة مع الاستاذ خليفة
اعتقد ان الافضل ان يكون لدينا جدول للمدن وجدول اخر للاحياء
ونعمل مربع قائمة متعددة الاختيار لاسماء المدن وقائمة منسدلة لاسماء الاحياء يتم تحديد مصدرها من خلال كود استعلام بمعيار in
اخونا الشايب
-
شايب's post in مساعدة فى مستطيل بحث was marked as the answer
في مرفقك الاخير لا يوجد سجل باسم سليمان
فقط سعيد ومازن وحسن وحسين وانا اضفت محمد ومحمود و البحث يعمل
جرب الان
Database1(1).accdb
-
شايب's post in اريد اضافة جدول لكن الاكسس يرفض ويكتب تم تعريف حقول كثيرة was marked as the answer
المفروض جدول access يقبل الى 255 حقل في الجدول
بالنسبة لملفك اعمل ضغط واصلاح وسوف يقبل اضافة حقول
كما يمكن عمل قاعدة جديد واستورد اليها جداولك وايضا سوف يقبل اضافة حقول
اخونا شايب
-
شايب's post in عندي مشكلة في النموذج الفرعي was marked as the answer
طالما اصبح النموذج فرعي فلابد من وضع المسار كاملا بدأ بالنموذج الرئيسي
[Forms]![Form2]![Form1].[Form]![Combo6] الملف مرفق
New Microsoft Access Database.accdb
-
شايب's post in مساعده في عمل chekbox واضافه البيانات المحتاره فيه الي الحقول was marked as the answer
مع ان الاخ العزيز شايب فهمه على قده
ولكن محاولة بسيطة
بداية ممكن عمل استعلام الحاق وممكن العمل مباشرة مع مصدر السجلات
وهنا الاخ شايب عمل مع مصدر السجلات
Dim rs As Recordset Dim rst As Recordset Dim a As Integer Set rs = CurrentDb.OpenRecordset("stages") Set rst = CurrentDb.OpenRecordset("StageBundleUPC") rs.MoveFirst For a = 0 To rs.RecordCount - 1 If rs!AddStage = True Then rst.AddNew rst!CutColor = Me.txtco rst!CutYSGPO = Me.txtysgpo rst!CutTotal = Me.txtct rst!CutNumber = Me.txtcn rst!CutStyle = Me.CutStyle rst!CutStages = rs!Stages rst.Update End If rs.MoveNext Next a rs.Close: rst.Close Set rs = Nothing: Set rst = Nothing Me.Child15.Requery الملف مرفق
الشايب
Sample.accdb
-
شايب's post in ماكرو ترتيب البيانات حسب الحروف الابجدية was marked as the answer
SetOrderBy
للماكرو نفتج شاشة انشاء ماكرو ونختار SetOrderBy وفي خانة ترتيب حسب ضع
id DESC او id ASC حسب رغبتك تصاعدي او تنازلي id هو الحقل الذي نرغب تطبيق الفرز عليه
اما في الكود فيكون الامر
DoCmd.SetOrderBy "[id] asc" اخونا الشايب
-
شايب's post in فتح قاعدة بيانات الاكسس المحمية بكلمة سر عن طريق إنشاء ملف تنفيذي بصيغة exe was marked as the answer
هذا الموضوع
وهذا ايضا
اما اخونا شايب فغير مهتم بموضوع الحماية ويعتقد ان التركيز على اعداد برنامج متميز ويحقق الهدف المطلوب وتصحيح الاخطاء التي قد تواجه الم
اكثر اهمية من تضييع الجهد على اختراع وسائل حماية معقدة تربك المستخدم او تنفره من استخدام البرنامج
وجهة نظر
-
شايب's post in خطأ في استعلام الحاق was marked as the answer
في الكود السابق السطر الثالث غير مطلوب ونسيت احذفة ولكن لا يسبب وجوده مشكلة