J2006

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

سامحني على هذا الخطا الفادح ..........

تسلم ياخ خابور خير ودمت لمحبيك

قمت بوضع سؤال وقام الاخ خابور بمساعدتي شاكراُ له سرعه التجاوب لكن لم استطع فهم الكود اريد احد يشرح لي الكود بتفصيل ممل . لانه عند قيامي بأضافة بعض البنود لم يعمل الكودمعي . Private Sub Worksheet_Activate() KH_START End Sub و Sub KH_START() Dim MyCell As Range Set MyCell = Range("البيانات") Dim X As Integer, C As Integer, CC As Integer Dim R As Integer, RR As Integer Application.ScreenUpdating = False '========================== ' مسح البيانات المرحلة السابقةان وجدت With ورقة2 X = .UsedRange.Rows.Count + 6 .Range("B7:K" & X).ClearContents End With '============================ ' ترحيل البيانات الجديدة RR = 7 With MyCell For C = 1 To 3 CC = Choose(C, 3, 7, 11) For R = 1 To .Rows.Count If .Cells(R, CC) <> "" Then ورقة2.Cells(RR, 2) = .Cells(R, CC - 2) ورقة2.Cells(RR, 5) = .Cells(R, CC - 1) ورقة2.Cells(RR, 8) = .Cells(R, CC) RR = RR + 2 End If Next R Next C End With Application.ScreenUpdating = True End Sub وجدت في الكود الثاني كلمة البيانات ماهو القصود منها . اليكم المرفق وتم اضافة بنود باللون الاحمر ولم يشملها الترحيل ...... زادكم الله من علمة 3333.rar

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

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

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

السلام عليكم ورحمة الله وبركاتة اريد نقل البنود التي يتم وضع كميات لها الى الصفحة الثانية وتجاهل الفراغات . وفي حالة مسح الكميات تكون الصفحة الثانية فاضية ارجوا المساعدة ............ 11.zip

السلام عليكم ورحمة الله وبركاتة عمات قاعدة بيانات وقمت بتقسيمها على جهازي . الان انا ورطان اريد الغاء التقسيم :') .........

وجدت هذا الكود واريد ان اعرف ماذا يقصد ب ((command5)) On Error Resume Next If InputBox("ENTER PASSWARD ", "PASSWARD REQUIRED") <> "123" Then On Error GoTo Command5_Click_Err Beep MsgBox "INCORRECT PASSWARD", vbOKOnly, "TRY AGAIN" Command5_Click_Exit: Exit Sub Command5_Click_Err: MsgBox Error$ Resume Command5_Click_Exit DoCmd.CancelEvent Else On Error GoTo Command0_Click_Err DoCmd.OpenForm "CONTRACT TYPES", acNormal, "", "", , acNormal Command0_Click_Exit: Exit Sub Command0_Click_Err: MsgBox Error$ Resume Command0_Click_Exit DoCmd.OpenForm "&Iacute;&ETH;&Yacute; &Egrave;&Ccedil;&aacute;&Otilde;&aelig;&Ecirc;" End If ولكم الشكر...........

انهيت برنامجي والحمد لله لكني بحثت عن صلاحية المستخدمين ولم اجدها ارجو المساعدة العاجلة

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

السلام عليكم ورحمة الله وجدت هذا الكود واريد شرح بسيط له س 15 : ما أريده ھو أن تعمل القاعدة فقط إذا كان حقل آخر يساوي قیمة معینة ، مثال : لدي حقل تاريخ وحقل نصي إذا كان التاريخ أكبر من يوم 5 من الشھر فالقیمة في حقل النص لابد أن تكون متأخر ؟ ج: أظهر خصائص الجدول ، وفي خاصية التحقق من الصحة للجدول اكتب: ( [ اسم حقل النص ] ='' متاخر"; [ اسم حقل النص ];5 =< ( [ اسم حقل التاريخ ] IFF) DAY

احد يساعدني

للرفع