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

وعليكم السلام-تفضل لك ما طلبت ... على الرغم ان ما طلبته ليس بالسهل او الهين فهى أكواد فورم كاملة لم تقم بعمل اى كود منها ,, ويجب عليك استكمال أسعار المنتجات لحسن عمل الفورم !!!! ثلاث قوائم.xlsm

اتفضل يا سيدى لا تنسى وضع افضل اجابة وهذه هى الاكواد المستخدمة Dim CalcAge As String Public Function IDData(IDNumber As Variant, Optional stype As Integer = 1) As Variant If IsNull(IDNumber) Or IDNumber = "" Or IDNumber = "" Or IDNumber = Empty Or IDNumber = vbNullString Or Len(IDNumber) = 0 Then IDData = "" Exit Function ElseIf Len(IDNumber) < 14 Then IDData = ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1608") & ChrW("1605") & ChrW("1609") & ChrW("32") & ChrW("1594") & ChrW("1610") & ChrW("1585") & ChrW("32") & ChrW("1589") & ChrW("1581") & ChrW("1610") & ChrW("1581") & ChrW("32") & ChrW("40") & ChrW("32") & ChrW("1571") & ChrW("1589") & ChrW("1594") & ChrW("1585") & ChrW("32") & ChrW("1605") & ChrW("1606") & ChrW("32") & ChrW("49") & ChrW("52") & ChrW("32") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("41") Exit Function ElseIf Len(IDNumber) > 14 Then IDData = ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1608") & ChrW("1605") & ChrW("1609") & ChrW("32") & ChrW("1594") & ChrW("1610") & ChrW("1585") & ChrW("32") & ChrW("1589") & ChrW("1581") & ChrW("1610") & ChrW("1581") & ChrW("32") & ChrW("40") & ChrW("32") & ChrW("1571") & ChrW("1603") & ChrW("1576") & ChrW("1585") & ChrW("32") & ChrW("1605") & ChrW("1606") & ChrW("32") & ChrW("49") & ChrW("52") & ChrW("32") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("41") Exit Function ElseIf Not IsNumeric(IDNumber) Then IDData = ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1608") & ChrW("1605") & ChrW("1609") & ChrW("32") & ChrW("1594") & ChrW("1610") & ChrW("1585") & ChrW("32") & ChrW("1589") & ChrW("1581") & ChrW("1610") & ChrW("1581") & ChrW("32") & ChrW("40") & ChrW("32") & ChrW("1604") & ChrW("1575") & ChrW("1576") & ChrW("1583") & ChrW("32") & ChrW("1605") & ChrW("1606") & ChrW("32") & ChrW("1573") & ChrW("1587") & ChrW("1578") & ChrW("1582") & ChrW("1583") & ChrW("1575") & ChrW("1605") & ChrW("32") & ChrW("1571") & ChrW("1585") & ChrW("1602") & ChrW("1575") & ChrW("1605") & ChrW("32") & ChrW("1601") & ChrW("1602") & ChrW("1591") & ChrW("32") & ChrW("41") Exit Function ElseIf Not IsDate(Format(IIf(Left(IDNumber, 1) = 3, Mid(IDNumber, 2, 2) + 2000, Mid(IDNumber, 2, 2) + 1900) & "/" & Mid(IDNumber, 4, 2) & "/" & Mid(IDNumber, 6, 2), "yyyy/mm/dd")) Then IDData = ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1608") & ChrW("1605") & ChrW("1609") & ChrW("32") & ChrW("1594") & ChrW("1610") & ChrW("1585") & ChrW("32") & ChrW("1589") & ChrW("1581") & ChrW("1610") & ChrW("1581") & ChrW("32") & ChrW("40") & ChrW("32") & ChrW("1582") & ChrW("1591") & ChrW("1571") & ChrW("32") & ChrW("1601") & ChrW("1609") & ChrW("32") & ChrW("1578") & ChrW("1575") & ChrW("1585") & ChrW("1610") & ChrW("1582") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1605") & ChrW("1610") & ChrW("1604") & ChrW("1575") & ChrW("1583") & ChrW("32") & ChrW("41") Exit Function Else If stype = 1 Then Dim DateOfBirth As Date: DateOfBirth = Format(IIf(Left(IDNumber, 1) = 3, Mid(IDNumber, 2, 2) + 2000, Mid(IDNumber, 2, 2) + 1900) & "/" & Mid(IDNumber, 4, 2) & "/" & Mid(IDNumber, 6, 2), "yyyy/mm/dd") IDData = DateOfBirth Dim strYear As String: strYear = ChrW("1587") & ChrW("1606") & ChrW("1607") Dim strMnth As String: strMnth = ChrW("1588") & ChrW("1607") & ChrW("1585") Dim strDy As String: strDy = ChrW("1610") & ChrW("1608") & ChrW("1605") CalcAge = CalcAgeY(DateOfBirth, Date) & " " & strYear & " " & "," & CalcAgeM(DateOfBirth, Date) & " " & strMnth & " " & "," & CalcAgeD(DateOfBirth, Date) & " " & strDy ElseIf stype = 2 Then Dim strRegionCode As String: strRegionCode = Mid(IDNumber, 8, 2) Select Case strRegionCode Case Is = "01": IDData = ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1575") & ChrW("1607") & ChrW("1585") & ChrW("1577") Case Is = "02": IDData = ChrW("1575") & ChrW("1604") & ChrW("1573") & ChrW("1587") & ChrW("1603") & ChrW("1606") & ChrW("1583") & ChrW("1585") & ChrW("1610") & ChrW("1577") Case Is = "03": IDData = ChrW("1576") & ChrW("1608") & ChrW("1585") & ChrW("1587") & ChrW("1593") & ChrW("1610") & ChrW("1583") Case Is = "04": IDData = ChrW("1575") & ChrW("1604") & ChrW("1587") & ChrW("1608") & ChrW("1610") & ChrW("1587") Case Is = "11": IDData = ChrW("1583") & ChrW("1605") & ChrW("1610") & ChrW("1575") & ChrW("1591") Case Is = "12": IDData = ChrW("1575") & ChrW("1604") & ChrW("1583") & ChrW("1602") & ChrW("1607") & ChrW("1604") & ChrW("1610") & ChrW("1577") Case Is = "13": IDData = ChrW("1575") & ChrW("1604") & ChrW("1588") & ChrW("1585") & ChrW("1602") & ChrW("1610") & ChrW("1577") Case Is = "14": IDData = ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1604") & ChrW("1610") & ChrW("1608") & ChrW("1576") & ChrW("1610") & ChrW("1577") Case Is = "15": IDData = ChrW("1603") & ChrW("1601") & ChrW("1585") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1588") & ChrW("1610") & ChrW("1582") Case Is = "16": IDData = ChrW("1575") & ChrW("1604") & ChrW("1594") & ChrW("1585") & ChrW("1576") & ChrW("1610") & ChrW("1577") Case Is = "17": IDData = ChrW("1575") & ChrW("1604") & ChrW("1605") & ChrW("1606") & ChrW("1608") & ChrW("1601") & ChrW("1610") & ChrW("1577") Case Is = "18": IDData = ChrW("1575") & ChrW("1604") & ChrW("1576") & ChrW("1581") & ChrW("1610") & ChrW("1585") & ChrW("1577") Case Is = "19": IDData = ChrW("1575") & ChrW("1604") & ChrW("1573") & ChrW("1587") & ChrW("1605") & ChrW("1575") & ChrW("1593") & ChrW("1610") & ChrW("1604") & ChrW("1610") & ChrW("1577") Case Is = "21": IDData = ChrW("1575") & ChrW("1604") & ChrW("1580") & ChrW("1610") & ChrW("1586") & ChrW("1577") Case Is = "22": IDData = ChrW("1576") & ChrW("1606") & ChrW("1610") & ChrW("32") & ChrW("1587") & ChrW("1608") & ChrW("1610") & ChrW("1601") Case Is = "23": IDData = ChrW("1575") & ChrW("1604") & ChrW("1601") & ChrW("1610") & ChrW("1608") & ChrW("1605") Case Is = "24": IDData = ChrW("1575") & ChrW("1604") & ChrW("1605") & ChrW("1606") & ChrW("1610") & ChrW("1575") Case Is = "25": IDData = ChrW("1571") & ChrW("1587") & ChrW("1610") & ChrW("1608") & ChrW("1591") Case Is = "26": IDData = ChrW("1587") & ChrW("1608") & ChrW("1607") & ChrW("1575") & ChrW("1580") Case Is = "27": IDData = ChrW("1602") & ChrW("1606") & ChrW("1575") Case Is = "28": IDData = ChrW("1571") & ChrW("1587") & ChrW("1608") & ChrW("1575") & ChrW("1606") Case Is = "29": IDData = ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1602") & ChrW("1589") & ChrW("1585") Case Is = "31": IDData = ChrW("1575") & ChrW("1604") & ChrW("1576") & ChrW("1581") & ChrW("1585") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1581") & ChrW("1605") & ChrW("1585") Case Is = "32": IDData = ChrW("1575") & ChrW("1604") & ChrW("1608") & ChrW("1575") & ChrW("1583") & ChrW("1610") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1580") & ChrW("1583") & ChrW("1610") & ChrW("1583") Case Is = "33": IDData = ChrW("1605") & ChrW("1591") & ChrW("1585") & ChrW("1608") & ChrW("1581") Case Is = "34": IDData = ChrW("1588") & ChrW("1605") & ChrW("1575") & ChrW("1604") & ChrW("32") & ChrW("1587") & ChrW("1610") & ChrW("1606") & ChrW("1575") & ChrW("1569") Case Is = "35": IDData = ChrW("1580") & ChrW("1606") & ChrW("1608") & ChrW("1576") & ChrW("32") & ChrW("1587") & ChrW("1610") & ChrW("1606") & ChrW("1575") & ChrW("1569") Case Is = "88": IDData = ChrW("1605") & ChrW("1608") & ChrW("1575") & ChrW("1604") & ChrW("1610") & ChrW("1583") & ChrW("32") & ChrW("1582") & ChrW("1575") & ChrW("1585") & ChrW("1580") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1580") & ChrW("1605") & ChrW("1607") & ChrW("1608") & ChrW("1585") & ChrW("1610") & ChrW("1577") Case Else: IDData = ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1608") & ChrW("1605") & ChrW("1609") & ChrW("32") & ChrW("1594") & ChrW("1610") & ChrW("1585") & ChrW("32") & ChrW("1589") & ChrW("1581") & ChrW("1610") & ChrW("1581") & ChrW("32") & ChrW("40") & ChrW("32") & ChrW("1582") & ChrW("1591") & ChrW("1571") & ChrW("32") & ChrW("1601") & ChrW("1609") & ChrW("32") & ChrW("1603") & ChrW("1608") & ChrW("1583") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1605") & ChrW("1581") & ChrW("1575") & ChrW("1601") & ChrW("1592") & ChrW("1577") & ChrW("32") & ChrW("41") End Select ElseIf stype = 3 Then Dim GenderCode As Long: GenderCode = Mid(IDNumber, 13, 1) Select Case GenderCode Case Is = 1, 3, 5, 7, 9: IDData = ChrW("1584") & ChrW("1603") & ChrW("1585") Case Is = 0, 2, 4, 6, 8: IDData = ChrW("1571") & ChrW("1606") & ChrW("1579") & ChrW("1609") Case Else: IDData = "" End Select ElseIf stype = 4 Then IDData = CalcAge End If End If End Function Function CalcAgeY(vDate1 As Date, vdate2 As Date) Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAgeY = vYears End Function Function CalcAgeM(vDate1 As Date, vdate2 As Date) Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAgeM = vMonths End Function Function CalcAgeD(vDate1 As Date, vdate2 As Date) As String Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If Day(vDate1) = 31 Then vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) - 1 If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAgeD = vDays End Function على اعتبار أن xxx = الرقم القومى IDData(xxx, 1) او IDData(xxx) >>---> تاريخ الميلاد IDData(xxx, 2) >>---> محافظة الميلاد IDData(xxx, 3) >>---> النوع IDData(xxx, 4) >>---> حساب العمر قاعدة بيانات موظفين - (3).accdb

اخي شاهد المرفق tarhil.xlsm

بارك الله فيك وشكراً جزيلاً لجهودكم جعله الله فى ميزان حسناتكم -والى الأمام دائماً وأتمنى لك المزيد من النجاح والتفوق

طيب فكرة على فكر اساتذتنا الكرام نقوم بزيادة ونقصان رأس الصفحة كما يلي .... ضع هذا الكود في حدث عند التنسيق .... If (Me.Page / 2) = Int(Me.Page / 2) Then Me.PageHeaderSection.Height = 36 * 287 Else Me.PageHeaderSection.Height = 0 End If جرب واعلمنا بالنتيجة .....

تفضل .... لاحظ التعديل في الاستعلام والتقرير .... 2.accdb ههههه اسف اخي الكريم لم انتبه لردك ......

وعليكم السلام ورحمة الله وبركاته أخي العزيز .. أتمنى أن يكون هو المطلوب 🙂 2.accdb

وعليكم السلام 🙂 لمعرفة تاريخ شهرين من اليوم: dateadd("m",2,date) . اذن، اذا شهرين من اليوم اكبر من او يساوي شهرين من بداية العقد ، dateadd("m",2,date) >= dateadd("m",2,Start_Date) . جعفر

دى طريقتى قاعدة بيانات موظفين - (2).accdb

وعليكم السلام-احسنت استاذ أحمد وجعله الله فى ميزان حسناتك , شرفتنا اخى الكريم

بارك الله فى جهودك استاذ أحمد ملف رائع وتشرفنا بوجود حضرتك معنا بالمنتدى ونورتنا

ايه الحلاوة ديه أعمال ممتازة بارك الله فيك استاذ مجدى وزادك الله من فضله

السلام عليكم -يمكنك استخدام هذه المعادلة لذلك =SUMIFS($D$6:$D$200,$C$6:$C$200,$G7,$B$6:$B$200,">="&$H$6,$B$6:$B$200,"<="&$I$6) Sumifs.xls

وعليكم السلام-وذلك ببساطة لأنك لم تقم بتثبيت الجزء الأول والأخير من معادلة المخزن .. بمعنى لابد ان تكون بهذا الشكل حتى لا يتغير المدى كلما سحبت لأسفل اى وضع مدى المعادلة بين علامتين $ =SUMIF(مشتريات!$C$4:$C$579,مخزن!A3,مشتريات!$D$4:$D$579)-SUMIF(مبيعات!$C$4:$C$581,مخزن!A3,مبيعات!$D$4:$D$581) اسعار المنتجات فاتورة1.xls

تفضل التعديل سيتم انشاء مجلد بإسم (ملفات الأفراد) و سيتم انشاء مجلدات داخل مجلد ( ملفات الأفراد ) برقم الملف و سيتم انشاء مجلدات حسب القائمة داخل كل مجلد برقم الملف بالإسم حسب القائمة sa1.0.zip

وعليكم السلام-يمكنك استخدام هذه المعادلة وشكراً =IF(COUNTIF($D$2:D2,D2)=1,"أول فاتورة","") تكرار الشراء1.xlsx

بارك الله فيك وزادك الله من فضله

أحسنت استاذ ماجد مبدع دائما جزاك الله كل خير

أحسنت استاذ مناد وعود حميد بهداياك القيمة بارك الله فيك وزادك الله من فضله

أحسنت استاذ عمرو بارك الله فيك وزادك الله من فضله

يمكنك استخدام هذا الكود فى حدث Thisworkbook Private Sub Workbook_Open() Worksheets("æÑÞÉ1").Activate Range("c2").Select End Sub ورقة عمل1 Microsoft Excel جديد.xlsm

استخدم الكود بهذه الطريقة مع اكمال بقية الكائنات بنفس الطريقة .................. If (Me.Page / 2) = Int(Me.Page / 2) Then Me.PageHeaderSection.Height = 36 * 287 Me.id_تسمية.Visible = False Me.date1_تسمية.Visible = False Else Me.PageHeaderSection.Height = 0 Me.id_تسمية.Visible = True Me.date1_تسمية.Visible = True End If

تفضل .... 2.accdb

دا انتو بتاخدو ملايين .. واحنا ياحبة عيني ...بناخد ملالييم 😂😍

بعد اذن استاذي جعفر انظر للمرفق contract1.accdb

لم ترفق محاولتك ، فلن استطيع مساعدتك في توجيهك لتصحيح خطأك !! انا اعطيتك الخطوات في هذه المشاركة: . ولما تعمل الخطوات ، يكون استعلامك (طبعا ملف الاكسل لازم يكون موجود في المسار) : SELECT T1.* FROM [Excel 8.0;HDR=YES;IMEX=1;Database=D:\Documents\Downloads\MyBackup\سجل الجرد.xls].[Sheet1$A1:U65536] AS T1; . افتح الاستعلام في وضع التصميم ، ثم اتبع الخطوات اللي اعطيتك في الرابط اعلاه. جعفر

هذه فكرة أخرى مشاركة لأخي الحلواني @أبو عبدالله الحلوانى 🙂 إضافة تقرير فرعي وهو عبارة عن صفحة فارغة لذلك ستفصل بين السجلات .. M_L - Copy.rar

جزاك الله كل خير

وعليكم السلام-من فضلك عليك بمعرفة ودراسة المعادلة بتفسك وان لا تغير المدى بها وعليك ان تتأكد انها تبدأ من الصف الرابع وليس العاشر كما قمت انت بتغييرها.وشكراً =SUMIF(مشتريات!$C$4:$C$585,مخزن!A3,مشتريات!$D$4:$D$585)-SUMIF(مبيعات!$C$4:$C$582,مخزن!A3,مبيعات!$D$4:$D$582) اسعار المنتجات فاتورة2.xls

ياسلام عليك الله يفتح عليك يا استاذ وربنا يجعله فى ميزان حسناتك استاذ كبير فعلا طيب احنا كده جمعنا راسين فى الحلال

بسم الله الرحمن الرحيم ..السلاك عليكم ورحة الله وبركاته ..إخواني وأخواتى،.. هذه هدية بسيطة لكم(ملف لاحتساب اوقات الحضور والانصراف واوقات الراحة للموظفين) كل ما يجب عليك فعله أن تضغط على كود الموظف في شيت أسماء الموظفين تنتقل للشيت لهذا الكود تكتب فقط اسم الموظف بالأعلى وتكتب وقت الحضور والإنصراف للموظف في اليوم وتكتب وقت ذهابه وحضوره من الراحة واترك الباقي على المعادلات. ...وشكرا لكم.الملف مره أخرى بعد التطوير يا أحباب الحضور والانصراف واحتساب وقت الراحة بالوقت.xlsx

وعليكم السلام 🙂 مع/بدون تصفية ، نفس الطريقة ، ولكن هل rbt_Ahsa_Emploly اسم متغير او اسم تقرير ؟ اذا كان اسم تقرير ، فيجب ان تضع الاسم بين علامتي "" ، هكذا : DoCmd.OpenReport "rbt_Ahsa_Empoly", acViewReport, , , , Me.Name . واذا كان الخطأ غير هذا ، فرجاء تفتح موضوع جديد له ، مع وضع رسالة الخطأ 🙂 جعفر

وعليكم السلام ورحمة الله قاعدة بيانات موظفين.rar

AutoFilter with 34 Dynamic Filter Criteria اتوفلتر ب 34 دينامك شرط كما لم تراه من قبل !!!_XlDynamicFilterCriteria.xlsb

ماشاء الله عمل جميل ورائع استاذ موسى...جزاك الله خيرا

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

لا توجد اى مشاكل وعلى كل حال لو تكرمت جرب هذه النسخة من القاعدة db7 Test.mdb

جزاك الله خير الجزاء الحمد لله استرجعت الحساب

جرب أخي الفاضل وضع هذا الكود في حدث workbook كما في الصورة Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next Target.PasteSpecial xlPasteValues Application.CutCopyMode = True End Sub ثم انسخ بياناتك ، وانتقل إلى ورقة العمل الهدف و انقر بزر الماوس الأيمن على الخلية الوجهة ، سيتم لصق قيم الخلايا المنسوخة دون أي تنسيق بإذن الله.

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

في النموذج ، اعمل حقل بإسم str_Key ، وضع فيه هذا الكود Private Sub str_Key_KeyPress(KeyAscii As Integer) Debug.Print ChrW(KeyAscii) Me.str_Key = Empty End Sub . او على مستوى النموذج: Private Sub Form_KeyPress(KeyAscii As Integer) Debug.Print ChrW(KeyAscii) End Sub الفرق ان هذا الكود يستعمل KeyAscii ، اي ارقام الحروف ، بينما الكود في المشاركات السابقة يستعمل KeyCode ، اي ارقام ازرار الكيبورد !! جعفر

عليك استخدام خاصية البحث بالمنتدى قبل رفع المشاركة خدمة جلب قاعدة بيانات المدارس بالتربية والتعليم في مصر لملف إكسيل في أقل من 5 دقائق

تفضل هناك العديد من الأكواد لتنفيذ طلبك منها : Sub PDF_Show() ActiveWorkbook.FollowHyperlink "C:\Users\Ali\Downloads\ÚÞÏ ÇáÊÃÓíÓ-ãÍæá.pdf" 'يجب عليك تغيير وتعديل عنوان ومكان ملف البى دى اف بما يتوافق عندك بين علامتين التنصيص End Sub وهذا كود ثانى Sub OpenPDF() Dim pdf As String On Error Resume Next pdf = "C:\Users\Ali\Downloads\عقد التأسيس-محول.pdf" 'يجب عليك تغيير وتعديل عنوان ومكان ملف البى دى اف بما يتوافق عندك بين علامتين التنصيص ActiveWorkbook.FollowHyperlink pdf End Sub واليك الملف اوراق الشركة.xlsm

تم النعديل على الملف من اجل اختيار بأي عامود تتم التصفية(تاريخ الميلاد / الوظيفة/ مكان الميلاد الخ...) فقط اختر العامود المناسب من الخلية E1 و اضغط الزر Give_Me_ Data_Please spec.filter_2010.xlsm

السلام عليكم ورحمة الله أخي الكريم، يمكنك استعمال الكود التالي مع ربطه بزر "انتقال"... الكود : Sub LastCelInColE() [E11012].End(xlUp).Select End Sub أخوك بن علية

جرب الملف التالي Replace Values With Strings.rar

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

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

السؤال : كيف يمكن عمل استعلام تكوين جدول Make Table Query بحيث يسأل عن اسم الجدول المطلوب تكوينه و اسم الملف الذي سيتم تكوين الجدول به أثناء التشغيل الإجابة : Private Sub Command16_Click() Dim x As String, y As String, z As String x = Trim(InputBox("Enter the Table name", "Table name", "Table1")) y = Trim(InputBox("Enter the Dbase Path", "Path", "c:\db2.mdb")) If Trim(Right(y, 4)) <> ".mdb" Then y = y & ".mdb" End If z = "SELECT Table1.m, Table1.mm INTO " & x & " IN '" & y & "' FROM Table1;" MsgBox z DoCmd.RunSQL z End Sub make_table_selective.zip