jjafferr

مثل ما يقولوا العمانيين: وابوي انا عليك :) خليتني ما اقدر اقاوم إلا ان ارد عليك ، شفت اسم مسقط بلادي :) انت محتاج الى هذا الكود فقط: Private Sub c2_AfterUpdate() Me.no2 = Me.c2.Column(0) Me.nam2 = Me.c2.Column(1) End Sub جعفر

اختي الفاضلة :) لوسمحتي تنظرين للصورة في مشاركتك رقم 6 ، ثم تقارنيها بالصورة في مشاركتك الاخيرة ، في الصورة الاولى ، SellBillNum 1 معاد 4 مرات ، و SellBillNum 12 معاد مرتين ، و.... ، بينما في الصورة الاخيرة ، فان البرنامج عمل ناتج تراكمي لها وجمعها في سجل واحد…

انا فتحت النموذجين ، لكن لازلت ما فاهم شو قصدك في "الزر التي فيها شروط" :( اخبرني اي زر اضغط ، وشو اللي سأراه ، وشو الشئ اللي لازم اشوفه ، وشو التعديل اللي تريدني اعمله!! اخي الفاضل ، انت المبرمج وتعرف تفاصيل برنامجك ، اما انا فلا اعرف فيه شئ ، غير الجزئية الل…

وعليكم السلام اختي :) ولا يهمك اختي ، اسئلي ما بدا لكي ، واسال الله سبحانه وتعالى ان يقدرني على الاجابة :) ممكن تخبريني شو اللي كنتي تريدين عمله في الاسطر الاضافية في الكود؟ اذا كان قصدك انك تريدين المستخدم ان يرى/يقرأ الفاتورة فقط ، فنستطيع ان نفتح النموذج لل…

اخي ابوشهد :) برنامجك غير مرفق في جميع مشاركاتك :( وانما انت ارفقت صور فقط :) جعفر

حياك الله اخي الفاضل :) اعتقد بأن كلمة "نماذج" كلمة محجوزة للأكسس :( فجرب وغير اسم النموذج الى اي اسم ، ويفضل الاسم يكون بالانجليزي ، اما بالنسبة للصفحتين ، فراجع اعدادات الصفحة والطابعة :) جعفر

اخي ابوعلاء ، دائما تخجلني بعباراتك الخارجة عن نطاق الكون :tbsob: جعفر

وعليكم السلام :) FormHeader معناه رأس النموذج ، فهل النموذج اللي انت فيه فيه رأس وذيل :) ، فبعض المبرمجين لا يستعملون في النموذج إلا قسم التفصيل Detail section ، فيمكنك ان تتحذف - Me.FormHeader. Height ، وبعض البرامج تكون الاسماء فيها بالعربي ، فيجب تغيير Form…

:)

:)

جرب هاي: Private Sub Form_Current() On Error GoTo err_Form_Current 'z1 = DSum("[12]", "ÞØä", "[ÊÇÑíÎ ÇáÓäÏ]=#" & Me.[ÊÇÑíÎ ÇáÓäÏ] & "#") 'Dim rst As DAO.Recordset 'Set rst = CurrentDb.OpenRecordset("Select * From ÞØä ") 'WHERE [ÊÇÑíÎ ÇáÓäÏ]= " & Me.ÊÇÑíÎ_ÇáÓäÏ…

ما ادري ليش الخطأ :( لكن عموما ، كل اللي عملته هو هذا الكود (جزء منه كان عندك ، وانا اضفت الباقي): Private Sub TreeView0_NodeClick(ByVal Node As Object) lblItemCode.Caption = "" If Node.Key <> "Root" Then lblItemCode.Caption = Mid(Node.Key, InStr(Node.Key, "_"…

اعمل الحقول بنفس الطريقة في النموذج "المركز" ، وحط/غير المعادلات ، وبعدين اخذها من النموذج الى الكود كما هي :) اذا فهمت المعادلات الموجودة ، راح تعرف كيف تخلي المعادلات التالية :) جعفر

تفضل ، على حسب مثالك :) جعفر 277.treevew1.accdb.zip

مو اتفقتنا شوي شوي علينا في الخط ، وإلا هاي العاب نارية مال الفوز :haha: جعفر

وعليكم السلام اخوي :) ممكن مثال لوسمحت ، يعني لما تضغط على غساله 11121:1 ، او الغسالات:1112 ، شو اللي لازم يظهر في الحقول اللي تريدها في النموذج؟ جعفر

اخي فواز :) هذا النموذج الآن ، خش اللي تريد ، واخفي اللي تريد ، هاي كانت عدة الشغل اللي كنت محتاج لها :) نقلت معادلات الخانات كلها الى الكود علشان نقدر نتحكم فيها بطريقة اكبر ، وسر نجاح العملية هي ، اصطياد الخطأ ، واتضح ان رقمه -2147352567 ، فلما صدناه ، عملنا…

اشحلات هالخط وصاحبه والله :D جعفر

هلا اخوي فواز :) تكفى اخوي ، شوي شوي علينا بهالخط الجمبو ، احنا ما قادرين نرد على السؤال بالخط الصغير ، يعني تخوفنا بهالخط :) دقائق وارد عليك ان شاء الله :) جعفر

مشكور وما قصرت اخوي :) وجزاك الله خير :) جعفر