نجوم المشاركات

تفضل End4.rar

مشاركة مع استاذنا @ابوخليل و @عبد الفتاح كيرة ھذا جيد اذن اليك هذا الكود بعد تحديث للحقل الاسم في نموذج Private Sub namst_AfterUpdate() Dim MyName MyName = Split(Me.namst, " ") If DLookup("[namm]", "TblMalomat", "[namm]='" & MyName(0) & "'") <> "" Then Me.sex = DLookup("[sex]", "TblMalomat", "[namm]='" & MyName(0) & "'") Else MsgBox (" الاسم " & " ( " & MyName(0) & " ) " & " ليس موجودا في الجدول المعلومات ") End If End Sub اذن اكتب احد الاسماء الموجودة في جدول المعلومات لكن ملاحظة يجب ان يكون هناك فراغ اي مسافة بين الاسماء ------------ واذا تريد تعمل كلها بدفعة واحدة بواسطة استعلام تحديث اليك هذا اولا اليك هذا فانكشن الصقها في وحدة نمطية Public Function BoyGirl(MyName) Dim MySex MyName = Split(MyName, " ") If DLookup("[namm]", "TblMalomat", "[namm]='" & MyName(0) & "'") <> "" Then MySex = DLookup("[sex]", "TblMalomat", "[namm]='" & MyName(0) & "'") End If BoyGirl = MySex End Function وفي استعلام التحديث اضف حقل الجنس وفي سطر تحديث اكتب اسم الفانكشن و بين قوسين اسم الحقل الاسماء BoyGirl([tel1]![namst]) فقط عليك ان تعمل تشغيل الاستعلام مرة واحدة فقط اتفضل اليك قاعدتك بعد التعديل الجنس --.rar

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

يمكن ان تعلن عن متغير نصي عام ثم تجعل قيمته = حقل الاستعلام باستخدام الدالة Dlookup كذا يصبح قيمة الحقل في الذاكرة وتستطيع ادراجه في اي مكان 6001.rar

السلام عليكم اخي الكريم بالنسبة لي انا استخدم الفكرة التالية في تصميم كشف الحساب 1- انشئ جدول كشف حساب يحتوي الاعمدة المطلوبة في كشف الحساب 2- اقوم بنقل البيانات من جدول المشتريات و جدول المبيعات وجداول المردودات الى كشف الحساب عن طريق استعلام الحاق واستعلام حذف 3- في كل مرة تفتح كشف الحساب يقوم استعلام الحذف بحذف البيانات من جدول كشف الحساب واضافتها مرة اخرى باستعلامات الالحاق وهكذا تحصل على طلبك بشكل افضل من الاستعلام وعلاقاته المتشابكة

مشاركة مع الاستاذ اباخليل جرب حدث عند التحميل للنموذج الثاني بالكود التالي: Private Sub Form_Load() Me.أمر13.Visible = Forms!tabl1!مهمة1 Me.أمر15.Visible = Forms!tabl1!مهمة2 Me.أمر16.Visible = Forms!tabl1!مهمة3 End Sub بالتوفيق

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

اخي ابا نادر شكرا على ثقتك باخوتك هنا اكثر من الغرب وبالموقع السابق جرب الكود التالي وبعيدا عن اين المشكلة بكودك السابق وسنعود للمشكلة بعد التاكد من نجاح المطلوب Private Sub print_Click() Set obj = CreateObject("Word.Application") obj.Visible = True obj.Documents.Open "path" obj.ActiveDocument.Shapes("nnnn").Fill.ForeColor.RGB = RGB(0, 0, 0) obj.ActiveDocument.Close SaveChanges:=wdSaveChanges obj.Quit End Sub تنبيهات قبل التنفيذ: 1. حاول ان تغير الثيم او الخلفية للمربع المقصود nnnn حيث اكتشفت ان به مشكلة تتطلب اعادة اللون عن طريق التنسيق او اعادة الانشاء ثم احفظ المستند 2. غير المسار الصحيح بديلا للكلمة path في الكود اعلاه ان شاء الله يتم المطلوب وبالتوفيق

شكرا جزيلا اخي العزيز بارك الله فيك شكرا جزيلا بارك الله فيك وزادك علما ونور

اذا كان رقم بيكون يساوي 19 او 23 بيكتب هكذا If [Forms]![namber_hsap_tmp]![nambr_mostkdam] = 19 Or [Forms]![namber_hsap_tmp]![nambr_mostkdam] = 23 Then لكن اذا تريد .. اذا الرقم بيكون بين الرقمين 19 الى 23 ستكتب هكذا If [Forms]![namber_hsap_tmp]![nambr_mostkdam] >= 19 and [Forms]![namber_hsap_tmp]![nambr_mostkdam] <= 23 then

شكرا جزيلا بارك الله فيك اخي وضاح

تفضل End3.rar

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

بارك الله فيك أستاذنا الفاضل. دمتم بخير

السلام عليكم تستعمل هذا الكود خلف زر البحث If IsNull(Me.iSearch) Then Me.FilterOn = False Me.iSearch.SetFocus Else Me.Filter = Nz(Me.fild_search, "IDfoaid") & "='" & Me.iSearch & "'" Me.FilterOn = True End If و هذا التعديل على الملف عمل كمبوبوكس لأختيار حقل البحث.rar