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

كل عام وانتم بالف خير عيدكم سعيد

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

السلام عليكم شباب عيدكم مبارك وايامكم سعيدة ان شاء الله جعفر

وأنتم بكل صحة وسلامة تقييم 22 .rar

كل عام وانتم بخير

:: اتمنى الخير والسعادة لكل اعضاء وإداريو المنتدى الأعزاء .... وكل عام والجميع بخير ...

تقبل الله منا ومنكم صالح الأعمال

يسرني ويسعدني أن أتقدم إليكم بأصدق التهاني والتبريكات بمناسبة عيد الفطر المبارك، سائلاً المولى العلي القدير أن يجعل أيامكم كلها أفراح، وأن يعيده علينا وعليكم أعواماً عديدة وأزمنةً مديدة وأنتم في أحسن حال .. وأن يتقبل منا ومنكم الصلاة والصيام وسائر الطاعات،ويجعلنا من المقبولين الفائزين. وكل عام وأنتم بخير

وأنتم بخير والمسلمين اجمعين

جرب المرفق اضافة وصرف لمنتج رئيسي أو فرعي أو مكون لهما أو منتج غير ما سبق مثل الزجاج وأخبرني بالملاحظات التي مازالت قائمة تقييم 20 .rar

تقبل الله منا ومنكم صالح الأعمال

وعليكم السلام هذه طريقتي: Private Sub ÃãÑ56_Click() Dim a_rr As Error Dim X As String On Error GoTo a_rr X = InputBox("enter text", "text ") If Len(Trim(X)) = 0 Then MsgBox "error " Exit sub end if For i = 1 To Len(X) If IsNumeric(Mid(X, i, 1)) Then MsgBox "contains Numbers" Exit Sub End If Next i DoCmd.OpenReport "Rep_sadder", acViewPreview, , "Go_sad like '" & X & "'" Exit Sub a_rr: MsgBox " error " End Sub جعفر

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

ضع ملفا للتطبيق عليه حتى نعرف من أين تريد أن يبدأ هذا الترقيم...

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

كل عام وحضرتك والقائمين على هذا المنتدى واعضائة بخير ولك ولهم كل الشكر والاحترام والتقدير

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

بوجودك صار عيدنا عيدين اللهم امين اجمعين ويسعدنا ... اللهم امين اللهم امين .. اجمعين شكرا .. وانت بخير وانت بالف خير

=date ()

اليك هذا للاخفاء Private Sub Form_Load() DoCmd.ShowToolbar "Ribbon", acToolbarNo End Sub وهذا للاظهار Private Sub Form_Load() DoCmd.ShowToolbar "Ribbon", acToolbarYes End Sub

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

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

السلام عليكم ورحمة الله يمكن استعمال المعادلة التالية (بداية من الخلية A2) : =IF(OR(B2<>"";S2<>"");MAX($A$1:$A1)+1;"") إذا أردت أن تبدأ من الخلية A6 فتكون المعادلة كما يلي: =IF(OR(B6<>"";S6<>"");MAX($A$5:$A5)+1;"") وهكذا... بن علية حاجي

استاذنا المحترم جمال خد وقتك واستمتع بالعيد مش هنشغلك فى ايام زى دى بالنسبة للمرفق بعد التجربة المبدأية لاضافة وصرف المكونات والمنتجات الرئيسية منها والفرعية دى الملاحظة الوحيدة اللى ظهرت : بالنسبة للشاشة كمنتج فرعى تمت عمل اضافة للكفر والبودى والكرستالة وتم تقييمهم لكن عند اضافة او صرف الشاشة لا يستدعى سعرها من جدول المنتجات أما بالنسبة للمشكلة السابقة اللى هيا المنتج الجديد اللى اضفت امامه كود المنتج الرئيسى اللى المفروض يستدعى سعره تم حل المشكلة الحمدلله دلوقتى ممكن اضيف اى منتج جديد وأحدد بس كود المنتج المطلوب انه ياخد سعره. فى نقطة حابب اوضحهالك لو فيها اختلاط او شئ : بالنسبة لنقطة الزجاج دى انه لا ينتمى لأى تصنيف ده مجرد اسم لم يكتمل وضعه تحت اى تصنيف ولذلك احنا عندنا 3 تصنيفات فقط مكونات داخلية للمنتجات سواء منتجات فرعية (بنسميها منتج وسيط ) أو منتجات رئيسية زى الكمبيوتر وبالنسبة للمنتجات نوعين فقط منتج وسيط او فرعى وده يعتبر منتج ومكون لمنتج رئيسى أخر فى نفس الوقت زى الشاشة أو منتجات رئيسية مثل الكمبيوتر ولا يوجد صنف لا ينتمى لأى من التصنيفات السابقة الا الاصناف الجديدة مثلا ولسة مضفنهاش فى جدول البوم ولكنه هينضاف مينفعش يتساب بدون تصنيف تمام ؟ وهيتم التجربة بتعمق باذن الله ولو فى ملاحظات هكتبهالك هنا كل عام وانتم بخير تقييم 21 .rar

شكرا لحضرتك المشكلة كانت فى النموذج عملته من جديد

ممكن ترفق نسخة مصغرة من قاعدة بياناتك

شكرا اخي الكريم

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

أوك طيب ايه تسلسل التسجيل المفترض ؟ يعني المنتج اذا كان رئيسي واذا كان مكون فأين يبدأ التسجيل والتكويد؟ علشان نقدر نقترح طريقة تحديد النوع والجمع بين الثلاثة انماط رئيسي وفرعي ومختلط اذا جاز التعبير كمان هناك نمط رابع وهو المنتج المماثل للمنتج الرئيسي مثل hp i3 هذا يماثل المنتج الرئيسي computer i3 المسجل بجدول المنتجات وله مكونات فرعية بجدول بوم

النقطة دي تتعلق بكفية تحديد نوع المنتج كان في السابق يتم تحديد نوع المنتج بدلالة field: Pcode..................table: Item_names لكن أنا عملت تغيير في كلاس المنتج ليحدد النوع من جدول Bom Public pcode As String Public mcode As String Public pprice As Double Public Function Load(cody As String) As String mcode = Nz(DLookup("MCode", "Bom", " [MCode] = '" & cody & "'"), 0) pcode = Nz(DLookup("PCode", "Bom", " [PCode] = '" & cody & "'"), 0) pprice = Nz(DLookup("price", "Products", " [PCode] = '" & pcode & "'"), 0) End Function وهذا ساعدني في مسألة المنتج الذي يعتبر رئيسي وفي نفس الوقت مكون فرعي المهم المسألة تحتاج تفكير منطقي كيف يتم تحديد نوع المكون و من أي جدول ؟ ضمن ثلاثة أنماط من المكونات

DoCmd.OutputTo acOutputReport, "rptRateCard", acFormatPDF, ("RateCard" & Format(Now(), "mmmyyyy") & ".pdf"), True

الاخ الكريم / الحماحمي المثال المرفق منك جداوله معموله باللغة العربية وهدا يسبب صعوبة في كتابة الاكواد ثانيا : السؤال غير واضح لي شخصيا مادا تريد بالصبط يرجى التوضيح اكثر كما يرجى كتابة الجداول باللغة الانجليزية بقدر الامكان هدا هو اعتقادي بان لم يستجيب احد خصوصا انك تنادي علي المشرفين فقط كلنا متعاونيين للوصول الي الحلول

مرحبا شكررررررررررررا