العبيدي رعد

السلام عليكم لدي استعلام اسمه mez1 اريد أنشأ تعبير جديد بالاستعلام بحيث يظهر لي حقل تكست في تقرير الحقل فيه ارقام والمطلوب جلب اسماء هذه الارقام من حقل deatils في الاستعلام والحقل الرقمي اسمه code

استاذ خليفة المحترم وضعتها في الاستعلام ونجحت ماذا عن دالة dlookup في التقرير ولأكثر من شرط والتقرير ايضا بياناته من استعلام اسمه mez1

@kkhalifa1960 السلام عليكم استاذ خليفة المحترم اشكر تواصلك معي اولا .... وثانيا انا أعمل على تقرير واكسس 2010 عملت المعادلة في تكست بوكس بياناتها من المعادلة IIf([dept] = 33; "المطلوبات "; IIf([dept] = 98; "الموجودات النظامية"))))))) Nz(IIf([dept] = 1; "الايرادات"; IIf([dept] = 2; "النفقات"; IIf([dept] = 31; "الموجودات الثابتة"; IIf([dept] = 32; "الموجودات المالية"; IIf([dept] = 33; "المطلوبات "; IIf([dept] = 98; "الموجودات النظامية"))))))) لكن لم تعمل يوجد خطأ

نعم استاذ خلفة اشتغل الملف جزاك الله خير الجزاء ولطفا لو تفضلتم رأيكم بالمعادله iif اريد عملها لأكثر من شرط جزاكم الله خير الجزاء

@kkhalifa1960 السلام عليكم مشكور استاذ خليفة ملئت حقل في جدولي bills , bills2 لكن في التقربر لم يظهر لو تفضلت بملاحظة هذه الاجابة العبيدي رعد 02 الأعضاء 60 1 البلد:العراق الإهتمامات:حسابات مالية الكاتب قام بنشر منذ 1 ساعه @Ezril السلام عليكم عملت تكست بوكس في التقرير عند تفاصيل dept =IIf([Dept]="1";"الايرادات") ولكن لم افلح بإكمال الشروط الى اكثر من ذلك فعندما dept=32 يكون العنوان السلف ... وعندما يكون =33 يكون العنوان الموجودات المالية وهكذا مثلا لست او سبع شروط علما انا استخدم اكسس 2010

@Ezril السلام عليكم عملت تكست بوكس في التقرير عند تفاصيل dept =IIf([Dept]="1";"الايرادات") ولكن لم افلح بإكمال الشروط الى اكثر من ذلك فعندما dept=32 يكون العنوان السلف ... وعندما يكون =33 يكون العنوان الموجودات المالية وهكذا مثلا لست او سبع شروط علما انا استخدم اكسس 2010

الشكر الجزيل لك استاذ عمر وكل عام وأنتم بألف خير هناك ترقيم خاص تحت حقل القسم فكل رقم 1 يقع تحت الايرادات وكل رقم 2 يقع تحت النفقات وهكذا الشكر الجزيل لك استاذ عمر وكل عام وأنتم بألف خير هناك ترقيم خاص تحت حقل القسم فكل رقم 1 يقع تحت الايرادات وكل رقم 2 يقع تحت النفقات وهكذا

الاستاذ @عمر ضاحى المحترم عملت دالة dlookup هكذا ولكنها خطأ =DLookUp("[hesab]";"hesab_r";"dept"=&[Reports]![mezanerad1]![T])

الاستاذ عمر ضاحي حفظكم الله وتقبل أعمالكم @عمر ضاحى أرفق قاعدة بيانات بالتقرير المطلوب ... وعملت جدول إضافي اسمه hesab_r لاستخراج اسماء الحسابات الرئيسية علما أن شجرة الحسابات الرئيسية والفرعية موجودة في جدول daleel حسابات.rar

السلام عليكم تقبل الله أعمالكم بأحسن القبول لدي تقري ميزان مراجعة معلوماته من استعلام اسمه mezanerad والتقرير اسمه mezanerad1 المطلوب كما موضح في الصورة المرفقة جلب اسم القسم كما موضح

السلام عليكم أخي العزيز هل تريد التقرير بهذه الصورة أنظر التقرير q2 قيد مزدوج.rar

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

اخي الكريم السلام عليكم ولو أني لم أطلع على المسألة لكن اود الاشارة ... لماذا لاتستعمل القيد المحاسبي المزدود يعني طرف يكون دائن وطرف اخر يكون مدين

السلام عليكم اكتشفت الموضوع ... استدعاء الدالة كان في زر غلق النموذج جعلته الان في حدث befor update للفورم حيث استدعيت الدالة شكرا جزيلا للأستاذ @ابو خليل

للرفع استادي @ابو خليل

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته رمضان كريم وكل عام وأنتم بأتم صحة وعافية اريد تسجيل التغييرات في جدول التي يقوم بها المستخدم لغرض متابعته تفضل علينا الاستاذ ابو خليل مشكورا ببرنامج ... لكني حاولت تطبيقه فلم أتمكن من ذلك ارفق برنامج بسيط ولم يسجل التغييرات فيه ... علما انا عندي برنامج فيه نموذج مزدوج من نموذجين ومعلوماته من استعلام فهل يؤثر ذلك؟ والسؤال هل هناك استيراد مكتبة بهذا البرنامج ؟ تسجيل التغييرات.rar

بارك الله فيكم ولكم جزيل الشكر

السلام عليكم نعم استاد قاسم مثل ماتفضلت استخدمت double

السلام عليكم اكتشفت الخطأ ... حيث في الكود التعريف as integer والمفروض اكتب as Doubll لأن الحقل الرقمي الاصلي في الجدول من نوع Double

السلام عليكم لدي زر لحفظ السجلات كالتالي Private Sub Save_Click() 'On Error GoTo Err_Command17_Click Me.b_all.Requery Dim i, x As Integer هي تكست بوكس حقل رقمي يمثل رصيد الصندوق هنا يقع الخطأ ' x = Me.tr i = Me.td If Me.tm <> td Then MsgBox ("لايمكنك الحفظ !! القيد غير متوازن") Me.Undo Else If i > x And Me.types = "سند صرف" Then MsgBox ("لايمكنك الحفظ !! فرصيد الصندوق غير كاف ") Me.Undo Else If MsgBox("في حال أردت المتابعة والحفظ اضغط نعم واذا أردت الإلغاء اضغط لا" & vbCrLf & "", vbYesNo, " تنبية ") = vbYes Then DoCmd.Save On Error GoTo BCC Dim Q As Recordset Set Q = CurrentDb.OpenRecordset("SELECT * from Bills where mz = false;") While Not Q.EOF Q.Edit Q!mz = True Q.Update Q.MoveNext Wend DoCmd.GoToRecord , , acNewRec no.SetFocus ACC: Exit Sub BCC: Resume ACC End If End If End If End Sub يظهر لي الخظأ المرفق في الصورة

شكرا جزيلا استاذ ابو خليل تم العمل والنتيجة صحيحة

العزيز الاستاذ ابو خليل المحترم كل شهر رمضان وأنت بالف خير أرفق هذه الصورة حيث استعلام البحث جلبته من استعلام qrs وعملت نموذج البحث وتكست اسمها t1 فأين الخطأ

السلام عليكم شكرا جزيلا استاذ خليفة ... لاأدري لماذا لايتم البحث عندي ....الاستعلام للبحث مأخوذ من استعلام اخر لان اريد البحث بجدولين بينهما علاقة وعندما اطبق نفس المعايير يظهر الحقل بإسم exp1

السلام عليكم استاذ قاسم ... جربت على مرفق لي للبحث ولم تظهر النتائج في فورم search5 هل يجب أن أدخل جميع الحقول الموجودة في الاستعلام ؟ ولماذا يظهر عندي exp

السلام عليكم الف شكر استاذي العزيز وتقبل الله اعمالكم في هذا الشهر الفضيل يظهر أن فكرتي لم تصل بالصورة المطلوبة أرفق صورة لتوضيح العملية الحسابية للرصيد التراكمي وبالنسبة للفورمات احتاجها حتى تكون الفوارز 55,500,750 هكذا