بحث مخصص فى أوفيسنا

هذه الصفحة تحدث تلقائياً   

  1. الساعة الأخيرة
  2. الكود بعمل على اكثر من ذلك بكثير (مهما كان عدد الاسماء حنى و لو 2000000 اسم) انا ارسلت لك نموذج فقط و لا اعرف ما السبب عندك ربما كانت الاسماء مختلقة او التاريخ محتلف يين شيت و اخر
  3. الف الف مبروك استاذ صالح ولله يجعلها من حفظة كتاب الله ويرزقك برها يارب العالمين
  4. السلام عليكم وتوسعة لتوضيح اخي محمود: 1. فهرس علامات الجدولة في النموذج تبدأ من صفر ، وتمكنك ترتيبها من الرقم 1 لكل كائن في النموذج ، 2. مع ان كل كائن له رقم في 1 ، إلا انن قد لا نريد التوقف عند هذا الكائن ، وهنا عندنا الخيار اما طريقة: . فيمكنك بالفأرة اليسار ان تضغط على Bill_Data مثلا ، ثم (وانت لازلت ماسك الفأرة اليسار) تسحبها الى اعلا او اسفل ، ثم تفلتها حسب الترتيب الذي تحب في كلا الطريقتين ، يجب عليك حفظ النموذج قبل اغلاقه. جعفر
  5. شكرا اخي سليم لاكن الكود لايعمل عند تطبيقه على نموذج ااكثر من 20 اسم والغرض من اللبرنامج هو تحديث البيانات لشهر كامل ل100 موظف ، الكود البرمجي لايعمل على المثال المرفق من قبلي لانه يحتوي على بيانات اكثر من ال 20 اسم . شكرا لك على المساعدة .
  6. الف مبروك استاذ صالح والله يجعلها من حفظة كتاب الله ويرزقك برها ويحفظها لكم من كل مكروه
  7. رجب جاويش اخى الفاضل جزاك الله خيرا واحشتنا اعمالك كتير
  8. انظر الى المرفق كنموذج من 20 اسم sample salim.rar
  9. السادة المحترمين محترفى الأكسس ... تعديل على برنامج شئون الموظفين وترحيل المرتبات وطباعة الرواتب مبنى على تاريخ الشهر HR+Salary.rar
  10. اليوم
  11. استيدل الكود بهذا Sub copy_All_visible() Application.ScreenUpdating = False Dim My_sh As Worksheet Dim My_range As Range Dim k, m, lr, i, x As Integer Dim arrsh() As Integer k = Sheets.Count: m = 3: Set My_sh = Sheets(k): My_sh.Range("a3:m1000").ClearContents For i = 1 To k - 1 If Sheets(i).Visible = True Then t = t + 1: x = Sheets(i).Index ReDim Preserve arrsh(1 To t) arrsh(t) = Sheets(i).Index End If Next For y = 1 To UBound(arrsh) With Sheets(arrsh(y)) lr = .Cells(Rows.Count, 1).End(3).Row Set My_range = .Range("a6:k" & lr) End With With My_sh .Cells(m, 1) = Sheets(arrsh(y)).Cells(1, 2) .Cells(m, 2) = Sheets(arrsh(y)).Cells(2, 2) My_range.Copy .Range("c" & m).PasteSpecial xlPasteValues m = m + lr - 4 End With Next My_sh.Activate Range("a3").Select Erase arrsh Application.ScreenUpdating = True End Sub
  12. الف مبروك اخي صالح ورزقت برها وصلاحها اللهم امين
  13. تم العمل على الهوية فقط ولكن يوجد بالملف تنسيقات شرطية كثيرة تعيق التنسيق الشرطي المطلوب تفضل الهوية + الجواز1.rar
  14. نعم هذه الدالة تقوم بإرجاع قسم كل مستخدم تقوم بإختياره Me.نص2 = DLookup("[classe_user]", "tbl_user", "[user_name]='" & Me.user_name & "'") و هذا مثال على ذلك dlookup.rar
  15. بارك الله فيكم و جزاكم الله كل خير
  16. اخي الكريم انا عملت لك التعديل ورفعت لك القاعدة بياناتك بعد تعديل شوف اسفل اصورة المشاركة السابقة مع تقدير الحمد لله تم الوصول الى النتيجة
  17. انا قلتلك في المسبق بس لكي يوصل الفكر اليك انت صاحب العمل تكدر تخلي جدول واحد و تكدر تنفصل الى جدولين وتربط بينهم وانت لازم تعرف اي حقول لازمة اي اساسية يعني فرضنا انا كتبت اسم ياسين وفي جدول الاخر كتبت اسم الابناء وربطت بينهم واحد للجماعة لان بيكون احتمال واحد عنده كتير من الابناء لذا انا عملت جدولين وانت راح تختار وتنفصل الحقول الى جدولين حسب شغلك مع تقدير
  18. الف الف مبروك استاذ صالح ولله يجعلها من حفظة كتاب الله ويرزقك برها يارب العالمين
  19. أخي الفضل يوجد جدولين (جدول tblasasi ) ماهي الحقول التي من المفترض التسجيل فيها والجدوال الأخر (جدول tblmealomat ) ما هي حقوله وأين باقي الجداول ممكن توضح أكثر
  20. أخي محمود أبو سيف مازال التكرار في حقل النوع والوصف وماهي الطريقة وفكرة الأخ الكريم Shivan Rekany مازلت أجربها لقد نجحت فعلا شكرا لكم جميعا هذا هو المطلوب
  21. جرب هذا db.rar
  22. ربنا يكرمك ويباركلك ويجعله في ميزان حسناتك أخي الكريم سوف أجرب وأرد عليك
  23. استخدم نموذج بخاصية مجموع شوف الصورة db (5).rar
  24. خلينا نستخدم دالة Format ونحل الموضوع بدون الثواني (لاحظ نهاية الاقتراح الثاني) Estime2: IIf(IsNull([ft1]) Or IsNull([ft2]),"00:00",Format(TimeSerial(Hour(Nz([FT1]))-Hour(Nz([Ft2])),Minute(Nz([Ft1]))-Minute(Nz([FT2])),Second(Nz([FT1]))-Second(Nz([FT2]))),"Medium Time")) او Estime3: IIf(IsNull([ft1]) Or IsNull([ft2]),"00:00",Format(TimeSerial(Hour(Nz([FT1]))-Hour(Nz([Ft2])),Minute(Nz([Ft1]))-Minute(Nz([FT2])),Second(Nz([FT1]))-Second(Nz([FT2]))),"hh:mm AMPM")) . آه ، لازم تستبدل ; بدل , (لأني اشتغل على وندوز انجليزي). جعفر
  25. اخي الكريم حين تسجل اسرة راح تختار هل هو من بين اي اسرة وبعدين تكتمل و تسجل كل البيانات واضفنا ذاك الحقل بدل ان تعمل 7 جداول و 7 نماذج لكل اسرة جدول و نموذج وبعدين تعمل استعلامات المطلوبة بالاكواد في نموذج التقارير وراح تختار في نموذج التقارير الحقول المطلوبة اللي انت تختار مع تقدير
  26. أخي الكريم ممكن بس تشرح لي ما هو المقصود من تصميمك السابق
  27. اخي الكريم بس لكي يتم الفكر اليك عملت هذا اتمنى ان يوصل لك المفهوم واذا ما فهمت مني ارجع الى طريقتك السابقة لانه ذاك الطريقة راح يفيدك اكثر لانك تعرف كيف تشتغل مع ذاك الطريقة مع تقدير New_Family.rar
  1. Load more activity