منذر عساج

تعديل بسيط أعتقد أنك قد توصلتي إليه ولكن لا بئس db1.rar

أخي الكريم شاهد الروابط التالية : http://www.officena.net/ib/index.php?showtopic=16047&hl http://www.officena.net/ib/index.php?showtopic=15592&hl http://www.officena.net/ib/index.php?showtopic=15929&hl

ما قصده أخي رضوان أن ما يمكن عمله عبر ثمانية جداول يمكن عمله عبر جدولين أو ثلاثة إذا اخترنا العلاقة المناسبة لذلك . يقصد عرض نسخة من المثال هنا لتحليلها وإبداء الرئي . والله الموفق ,,,

أعتقد أن الكلندر المصمم عبر عنصر تحكم أكتف أكس يحوي هذه الميزة

أخي الكريم إذا كانت الجداول الثلاثة تحوي نفس الحقول لماذا أصلاً تقوم بفصلها الى ثلاثة جداول ولما لا تكون في جدول واحد فنحن نضطر الى فصل البيانات في أكثر من جدول في حالة ما إذا كان الجدول بيانات الجدول الثاني تتكرر أكثر من مرة لكل سجل في الجدول الأول . مثلا جدول يحوي بيانات الموظفين الأساسية - جدول يحوي الدورات التي حصل عليها حيث أن من المحتمل أن يكون لكل موظف أكثر من دورة ( موظف يملك ثلاث دورات وآخر دورتين ...) في هذه الحالة نقوم بفصل الى جدولين بنهما علاقة رأس بأطراف . والله الموفق ,,,,

أخي الكريم لعمل ما تريد ينبغي أن يكون لديك علاقة واحد الى متعدد بين الجدولين عبر حقل محدد وليكن الرقم مثلاً قم بعمل نموذج لحقول الجدول الأب ( الأعلى في العلاقة ) وفي نفس النموذج قم بإدراج نموذج فرعي يضم حقول الجدول الثاني وسيكون الرابط بنهما هو الرقم . شاهد التعديل الذي تم على إستفسار الأخ ابو أسامة http://www.officena.net/ib/index.php?showtopic=16155

أخي من خلال ردك في مشاركة أخرى ربما أستطعت فهم ما تريد آمل أن يكون هذا ما تريده: omar1.rar

أخي الكريم كما قلت إما أنا لم نفهم ما تريد أو أنك لم توضح المطلوب نعتذر عن ذلك ونود التوضيح أن أمكن ,,, والله الموفق ,,

بداية موفقة أخي الكريم وإسمح لي ببعض الملاحظات : 1- في شاشة المبيعات يفضل إدراج الأصناف عبر قائمة منسدلة بدلاً من الإدخال اليدوي . 2- حقلي الصنف ينبغي أن يكون في حقل الصنف الثاني ما يوافق الصنف الأول فقط إلى إذا كانت جميع بيانات حقل الصنف الثاني تقابل جميع بيانات حقل الصنف الأول . 3- عند طلب كمية غير متوفرة في المخزن ينبغي عدم السماح بإكمال الفاتورة وإجبار المستخدم على وضع الكمية المتبقية فقط أو أق منها . 4- حبذا لو إستطعت جلب السعر من الجدول بمجرد إدخال بيانات الصنف . وفقك الله والسلام عليكم ,,,

أخي الكريم ستكون الكود بالشكل التالي مع تغيير نتيجة تحقق الشرط بما تريد . Public Function RoundUpTo5(ByVal S) As Double On Error Resume Next Select Case S - Fix(S) Case 0 To 0.25: RoundUpTo5 = Fix(S) + 0.5 Case 0.26 To 0.5: RoundUpTo5 = Fix(S) + 0.5 Case 0.51 To 0.75: RoundUpTo5 = Fix(S) + 0.5 Case 0.76 To 1: RoundUpTo5 = Fix(S) + 0.5 End Select End Function

أختي الكريمة قومي بإرفاق مثال وسيتم التعديل عليه إن شاء الله

في المرفق التعديل الذي طلبته الزيادة عن المائة تتحول الى حقل جديد قم بترحيله عبر استعلام إلحاق الى المكان الذي تريده db1.rar

بعد أذن أخي/ رضوان بالتأكيد يمكن أن يحوي البرنامج على آلاف السجلات بشرط حفظ الصور في ملف خارج قاعدة البيانات . والآن ما الذي تريده بالضبط ( يرجى التوضيح ).

ضع الكود التالي في حدث عند التحميل للنموذج DoCmd.SetWarnings False DoCmd.RunSQL ("UPDATE tbl_Tel SET tbl_Tel.OnlyYou = No;") Me.Refresh DoCmd.SetWarnings True هذا بناءً على النموذج الموضح في الرابط يمكنك التعديل بما يناسبك في جملة استعلام التحديث UPDATE

الاخت الكريمة في المثال المرفق طريقة لفرز مربع التحرير والسرد الثاني بما يتوافق مع مربع التحرير والسرد الأول أولا : الجدول يتكون من حقلين ( المدينة , الرمز البريدى ) في النوذج مربع التحرير والسرد الاول city مصدر عنصر التحكم له هو حقل المدينة في الجدول ومربع التحرير والسرد الثاني zip مصدر عنصر التحكم له هو حقل الرمز البريدي zip في الجدول مع إضافة الشرط التالي في خانة معايير حقل المدينة : Like [forms]![frmSimple]![combo0] نعود لمربع التحرير والسرد الخاص بالمدينة ونضع الكود التالي في حدث بعد التحديث : Me!Combo2 = Null Me!Combo2.Requery حيث Combo2 اسم مربع التحرير والسرد الثاني والخاص بالرمز البريدي Combo0 أسم مربع التحرير والسرد الأول والخاص بالمدينة frmSimple اسم النموذج والله الموفق ,,,, CascadingComboBoxes2K.rar

أعتذر عن الخطأ وإليك التعديل ___________.rar

راجع الرابط التالي : http://www.officena.net/ib/index.php?showtopic=15175&hl

جرب التعديل التالي : Private Sub find_name_Change() Dim ct As String * 1 Dim ss As String * 1 'On Error Resume Next ct = """" ss = "*" Me.find_name.Tag = Me.find_name.Text Me.RecordSource = "SELECT * FROM NEMAS WHERE NEMAS.names LIKE "(Nz(Me.find_name.Tag)) & ss & ct & "" If Me.RecordsetClone.RecordCount = 0 Then Me.تفصيل.Visible = False Me.RecordSource = "" Else Me.تفصيل.Visible = True End If Me.find_name = Me.find_name.Tag Me.find_name.SetFocus SendKeys "{f2}" End Sub

أخي الكريم ما ذكره أخي / yousef صحيح فما ذكرته غير منطقي على الإطلاق طلما أنك تستطيع عمل كل ذلك من خلال جدول واحد ونموذج واحد وزر واحد . وعلى أفتراض أن عدد الموظفين كان ألف أو ألفان ماذا ستفعل قم بإرفاق نسخة من القاعد بعد عمل ضغط وإصلاح لها وسنحاول المساعدة إن شاء الله .

لم أنتبه الى انك بحاجة الى تخزين القيمة الكتابية للشيك في الجدول تم التعديل والله الموفق ,,, _______.rar

أختي الكريمة أرفقي مثال وسنحاول المساعدة إن شاء الله

أخي الكريم المثالين الذين قمت بإرفاقهما لا يحويان أي شي سو نموذج عليه بعض مربعات النص لعمل ما تريد يجب أن تنشأ جدول يحوي أسماء الموظفين وبيانات معاملتهم ثم تنشأ نموذج لعرض البيانات .

تم التعديل كود التفقيط للمبدع / أبو هادي أعاده الله إلينا سالماً غانماً _______.rar

اخي الكريم اليك التعديلات التي طلبتها ملاحظة : الأكود مأخوذة من مثال للاخ / أبو شادي على الرابط التالي : http://www.officena.net/ib/index.php?showtopic=13672&hl db2.rar

وهذا هو المثال الأصلي لأننا سنقوم بإغلاق ثم حذف الروابط الأخرى 45.zip