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

السلام عليكم إخواني الكسلانين .. إني أحبكم في الله سبق أن قدمت درساً بسيطاً بالأمس عن الخاصية Offset ، وطبعا يبدو أنه لا يوجد متابعين بشكل جيد .. عموما هذا رابط الموضوع السابق ... يرجى عدم قراءة الشرح للخاصية الجديدة Resize إلا بعد الإطلاع على الموضوع الخاص بالخاصية Offset لتعرف الفارق بينهما .. أترككم في رعاية الله مع الملف .. راجيا من الله أن يجعل الوقت الذي أمضيته في كتابة الشرح في ميزان حسناتي يوم القيامة.. إخواني الأحباب تقبلوا تقديري واحترامي وتحياتي ... :gift2: :fff: RESIZE.rar

السلام عليكم و رحمة الله وبركاته بعد اذن استاذنا ياسر خليل مرفق الكود Sub trhil_to_sheet() Dim FS As Worksheet, TS As Worksheet Dim FR, TR, ER1, ER2 Dim TSN Set FS = Sheets("transe") FS.Unprotect For FR = 3 To FS.UsedRange.Rows.Count TSN = FS.Cells(FR, 1).Text If TSN = "" Then GoTo 9 For TS1 = 1 To Sheets.Count If Sheets(TS1).Name = TSN Then Set TS = Sheets(TSN) TR = TS.Range("B9999").End(xlUp).Row + 1 If TR < 20 Then TR = 20 TS.Unprotect FS.Range("B" & FR & ":C" & FR).Copy TS.Range("B" & TR).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False FS.Range("E" & FR & ":G" & FR).Copy TS.Range("E" & TR).PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False FS.Range("B" & FR & ":C" & FR & ",E" & FR & ":G" & FR).ClearContents GoTo 9 End If Next TS1 9 Next FR ActiveWorkbook.Save End Sub

يشرفنا متابعتك للمنتدى ويشرفنا أكثر المشاركة فيه ولو بمعلومة بسيطة ، فقد تنفع غيرك إذا لم تكن لها أهمية لك جزيت خيراً أخي عبد الله ... وأتمنى منك أن تشارك وتشارك لأنك أنت المستفيد في النهاية قبل الجميع

السلام عليكم اضف موديل والصف الكود التالي فيه Function Dy_Ad(ByVal بداية_التاريخ As Date, عدد_الايام As Integer) As String Dim Dt_S As String Dim y, m, d Dim im, idy, Tol Dim Dt_Out, D_ad, Dte Dte = بداية_التاريخ D_ad = عدد_الايام If Not IsDate(Dte) Then Exit Function Dt_S = Dte y = Split(Dt_S, "/")(2): m = Split(Dt_S, "/")(1) d = Split(Dt_S, "/")(0): Tol = d + Val(D_ad) Select Case Tol Case Is = 30 im = m + 1 m = im d = 1 Case Is > 30 idy = Tol - 30 im = m + 1 m = im d = idy Case Else: d = Tol End Select Dt_Out = DateSerial(y, m, d) Dy_Ad = Dt_Out End Function استخدام الدالية كالتالي في خلية H9 =Dy_Ad(D9;F4) على حساب ان ايام الشهر 30 يوم

اسم الطالب موجود فعلا وارى انه لا فرق بين ان يكون مقطعا او كاملا تم اضافة حقل يجمع الاسم الشيء المهم : اراك رجعت الى التسميات بالحروف العربية ؟ 1-اعد تسمية النماذج 2-يوجد حقلين في جدول الطلاب اعد تسميتهما ايضا نموزج 03.rar

ضع هذه المعادلة في الخلية T10 =IF(OR(F10<$F$7/2,G10<$G$7/2,H10<$H$7/2,I10<$I$7/2,J10<$J$7/2,K10<$K$7/2,L10<$L$7/2,M10<$M$7/2,N10<$N$7/2,O10<$O$7/2),0,SUM(F10:O10)) تقبل تحياتي

تفضلي اختي تم عمل نموذج فرعي للاستعلام . وهو عبارة عن ورقة بيانات تستطيعين الفترة كما بالاستعلام. ثم تم استعمال امر فتح التقرير وبتمرير ان ياخذ فلتر النموذج الفرعي والذي سيكون مقبولا للتقرير لان النموذج الفرعي والتقرير لهم نفس المصدر وهو الاستعلام بل نفس اسماء الاعمدة . بالتوفيق DB.rar

في صندوق الادوات فعل ايقونة تفعيل عناصر التحكم انظر الصورة

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

السلام عليكم جرب الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) Dim s As Integer, t1 As Integer Dim t2 On Error GoTo 1 If Target.Address = [c3].Address Then t1 = Split(CStr(Target), "-")(0) t2 = Split(CStr(Target), "-")(1) For s = 1 To Sheets.Count Sheets(s).Name = t1 & "-" & t2 t1 = t1 + 1 Next End If 1 End Sub المرفق 2003 تسمية الشيتات.rar

أريد كتاب PDF يشرح Microsoft Access 2010 كامل الواجهة الإنجليزية مع شرح العربية أريد 2010 وليس 2007 أو 2003 من فضلكم عندى إمتحان وعايز أذاكر لأن الإمتحان على إصدار 2010 English وعايز طبعاً الشرح بالعربية مع واجهة البرنامج الإنجليزية .. فى الإنتظار شكراً جزيلاً .

الحل يمكن في تقسيم البرنامج الى ملفين , ملف القاعدة و يحوي الجداول فقط و هذا يوضع في جهاز الخادم و الملف الثانية و هو الواجهة و يضم بقية المكونات مثل الاستعلامات و النماذج و التقارير ويوضع نسخة من هذا الملف اي الواجهة لدى كل جهاز عميل و يتم عمل ربط للجداول من كل جهاز عميل على جداول ملف القاعدة على الخادم