النجاشي

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

للرفع

سوال جيد اخي الفاضل بإذن الله ينظر استاذنا جعفر. بالامر

السلام عليكم ورحمه الله وبركاته احبتي كيف اعدل الداله اذا كان حقل Nwaha نص بدل ما نكتب Nwaha=16 اريد تكتب بهذا الشكل قبض= Nwaha مبلغ سند القبض: IIf([Nwaha]="16";[Price];0)

للرفع

السلام عليكم ورحمه الله وبركاته احبتي الكرام اريد تعديل علي الوحده النمطيه عندما ادخل بسنه جديده يبدا الترقيم من جديد تحياتي اليكم وحده نمطيه.mdb

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

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

احبتي لقد وجدت كود ولكن مادريت كيف اضع له الشرط حتي يصبح يلون خط السجل الحالي صار يلون كل الحقول فكيف الحيليه الكود المسول عن لون الخط بالاخمر كيف يتم تعديله بحيث يصير يتماشي مع التظليل Dim RS As Recordset Dim CountLines Dim F As Form Dim KeyName As String Dim KeyValue Set F = Form KeyName = "Rajmsanf" KeyValue = [Rajmsanf] On Error GoTo Err_GetLineNumber Set RS = F.RecordsetClone Me.Rajmsanf.ForeColor = RGB(255, 0, 0) ' البحث عن السجل الحالي Select Case RS.Fields(KeyName).Type ' البحث واستخدام ترقيم قيمة الحقل Case DB_INTEGER, DB_LONG, DB_CURRENCY, DB_SINGLE, _ DB_DOUBLE, DB_BYTE RS.FindFirst "[" & KeyName & "] = " & KeyValue ' البحث واستخدام اول قيمة للحقل Case DB_DATE RS.FindFirst "[" & KeyName & "] = #" & KeyValue & "#" ' البحث واستخدام المساواة لقيم الحقل Case DB_TEXT RS.FindFirst "[" & KeyName & "] = '" & KeyValue & "'" Case Else MsgBox "ERROR: Invalid key field data type!" Exit Function End Select ' الاستمرار والمتابعة في ايجاد بقية الارقام Do Until RS.BOF CountLines = CountLines + 1 RS.MovePrevious Loop Bye_GetLineNumber: ' اظهار النتيجة GetLineNumber = CountLines Exit Function Err_GetLineNumber: CountLines = 0 Resume Bye_GetLineNumber 128.mdb

للرفع

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

قصدي تختص بلون الخط

ممكن احبتي عمل وحده نمطيه

ما شاء الله عليك استاذنا جعفر إبداع جميل ربنا يعطيك الصحه والعافبه

بارك الله فيك استاذي الكريم اوفيت وكفيت باذن الله القي الحل رغم اني قبل كذا مرت عليا مشاركه للاستاذ ادم ولكن مادريت باي موضوع الف شكر اليك يالغالي

استاذي الكريم ابو محمد اهلا وسهلا فيك يالغالي نورت المنتدي حيا بك استاذي الكريم صحيح ان اللون اصبح كويس ولكن بيصير اهتزاز عند التنقل لاعلي واسفل وهذا الا مجننا هل لديك طريقه اخري مشكور على المجهود يالغالي بارك الله فيك استاذي الكريم الغالي جعفر نعم مازال الاهتزاز موجود مدوخنا فكنت ابحث عن كود قد يحل الموضوع ممكن التعديل علي هذا ممكن تنحل المشكله KeyValue = [Rajmsanf] On Error GoTo Err_GetLineNumber Set RS = F.RecordsetClone ' البحث عن السجل الحالي Select Case RS.Fields(KeyName).Type ' البحث واستخدام ترقيم قيمة الحقل Case DB_INTEGER, DB_LONG, DB_CURRENCY, DB_SINGLE, _ DB_DOUBLE, DB_BYTE RS.FindFirst "[" & KeyName & "] = " & KeyValue ' البحث واستخدام اول قيمة للحقل Case DB_DATE RS.FindFirst "[" & KeyName & "] = #" & KeyValue & "#" ' البحث واستخدام المساواة لقيم الحقل Case DB_TEXT RS.FindFirst "[" & KeyName & "] = '" & KeyValue & "'" Case Else MsgBox "ERROR: Invalid key field data type!" Exit Function End Select ' الاستمرار والمتابعة في ايجاد بقية الارقام Do Until RS.BOF CountLines = CountLines + 1 RS.MovePrevious Loop Bye_GetLineNumber: ' اظهار النتيجة GetLineNumber = CountLines Exit Function Err_GetLineNumber: CountLines = 0 Resume Bye_GetLineNumber الف تحيه اليك

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

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

السلام عليكم احبتي عندما اكون واقف على السجل الحالي اريد لون الخط يكون ابيض هل من كود لعمل ذالك اي عندما اتنقل بين السجلات يكون لون الخط ابيض تحياتي احبتي لون_الخط.mdb

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

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

السلام عليكم احبتي اريد بعد ادارج الاصناف بالفاتوره تكون منظمه بشكل تصاعدي حاولت من مصدر السجلات عملت تحت رقم الصنف ولم تنجح معي شاكرين مقدرين احبتي تنظيم_التسلسل_بالفاتوره.mdb

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

ابشر استاذي الان تفضل استاذي انظر لاول سجل كيف تكرر وهكذا بقيه السجلات اذا قمت اعمل اصدار فاتوره بيع وشراء يتكرر بالنموذج تحياتي ‏‏‏‏برنامج المخــــــــــزون - - نسخة.rar

استاذي الفاضل تفضل هذا القاعده فيها فاتوره شراء فاتوره بيع قوم بعمل فاتوره بيع مثلا 10 او غير ذالك وقوم بعمل فاتوره شراء بنفس الصنف ستلاحظ المشكله تحياتي يالغالي