Shivan Rekany

اتفضل Desktop.zip

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

اتفضل اخي اليك هذا Function FolderSize(filespec) Dim fs, f, s Dim SizeName As String Dim SizeFil As Long Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(filespec) If f.Size >= 1 And f.Size <= 1023 Then SizeName = " Byte " SizeFil = f.Size ElseIf f.Size >= 1024 And f.Size <= 1048575 Then SizeName = " KB " SizeFil = f.Size / 1024 ElseIf f.Size >= 1048576 And f.Size <= 1073741823 Then SizeName = " MB " SizeFil = f.Size / 1048576 ElseIf f.Size >= 1073741824 And f.Size <= 1099511627775# Then SizeName = " GB " SizeFil = f.Size / 1073741824 ElseIf f.Size >= 1099511627776# Then SizeName = " TB " SizeFil = f.Size / 1099511627776# End If s = UCase(f.Name) & " Size Folder is ( " & SizeFil & " )" & SizeName MsgBox s ', 0, "Folder Size Info" End Function Private Sub Command0_Click() FolderSize ("C:\Users\MyShiv\Downloads") End Sub

اتفضل Sort3.rar

اخی الحبیب کان من الفروض ان ترفق نسخة مصغرة من قاعدة بياناتك لكي نعمل تعديل عليه اي يجب حضرتك ترفق مثال ونحن راح نعدل عليه مع تقدير

السلام علیکم ورحمە الله وبركاته انا وجدت طريقة من احدى مواقع اجنبية بيعمل التقاط شاشة كاملة اي نحن نقدر ان نفتح التقرير وبعد الفتح بيلتقط صورة له بواسطة الكود هل بيوفي الغرض ام لا

في الجدول ام استعلام ؟ كان من المفروض ان يكون الاستعلام بيكون كما في المرفق الجديد في كلا النموذجين الفرعيين اضفت مربعين نصيين وكتبت فيها دالة سوم لجمع حقل له و عليه وفي النماذجين في حدث الحالي كتبت شيء هكذا Private Sub Form_Current() On Error Resume Next Forms![نموذج1]![نص15] = Me.Text24 Forms![نموذج1]![نص17] = Me.Text26 End Sub Password.zip

اتفضل Password.zip

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

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

جرب هذا الكود Private Sub Form_Current() If Not NewRecord Then Me.date_to = Date If IsNull(Me.date_from) Or IsNull(Me.date_to) Then Exit Sub Me.da = CalcAgeD(Me.date_from, Me.date_to) Me.mo = CalcAgeM(Me.date_from, Me.date_to) Me.ye = CalcAgeY(Me.date_from, Me.date_to) End If End Sub 6666.rar

سؤالك ليس واضحة لي هناك حضرتك تسأل عن زر حفظ وجديد وهنا كتبت جزء من كود زر اغلاق وحفظ هذا هو كود للزر حفظ وجديد Private Sub Command172_Click() On Error Resume Next Dim a a = MsgBox("هل تريد الاضافة", vbExclamation + vbDefaultButton1 + vbMsgBoxRight + vbYesNo, "تنبيه") If a = vbYes Then DoCmd.GoToRecord , , acNewRec [اسم_المشروع].SetFocus Else Me.Undo 'DoCmd.GoToRecord , , acNewRec End If End Sub وهذا هو كود حفظ واغلاق Private Sub Command173_Click() On Error Resume Next a = MsgBox("هل تريد الحفظ", vbExclamation + vbDefaultButton1 + vbMsgBoxRight + vbYesNo, "تنبيه") If a = vbYes Then DoCmd.Close acForm, Me.Name DoCmd.OpenForm "ادارة_خدمة_العملاء", acNormal Else Me.Undo DoCmd.Close acForm, Me.Name DoCmd.OpenForm "ادارة_خدمة_العملاء", acNormal End If End Sub الان وضح لي ماذا تريد ان نعمل لك

من المفترض ان تسأل ماتريد في اول مشاركة بنفس الشي شوف الكود Private Sub ÃãÑ26_Click() Me.OrderByOn = True If Me.Frame28 = 1 Then Me.OrderBy = "[NAME] ASC" ElseIf Me.Frame28 = 2 Then Me.OrderBy = "[Country] ASC" ElseIf Me.Frame28 = 3 Then Me.OrderBy = "[City] ASC" ElseIf Me.Frame28 = 4 Then Me.OrderBy = "[game] ASC" ElseIf Me.Frame28 = 5 Then Me.OrderBy = "[AGE] ASC" ElseIf Me.Frame28 = 6 Then Me.OrderBy = "[Married] ASC" End If End Sub Private Sub ÃãÑ27_Click() Me.OrderByOn = True If Me.Frame28 = 1 Then Me.OrderBy = "[NAME] DESC" ElseIf Me.Frame28 = 2 Then Me.OrderBy = "[Country] DESC" ElseIf Me.Frame28 = 3 Then Me.OrderBy = "[City] DESC" ElseIf Me.Frame28 = 4 Then Me.OrderBy = "[game] DESC" ElseIf Me.Frame28 = 5 Then Me.OrderBy = "[AGE] DESC" ElseIf Me.Frame28 = 6 Then Me.OrderBy = "[Married] DESC" End If End Sub اليك هذا الكود Private Sub Check53_AfterUpdate() Dim SQL As String Me.Refresh If Me.Check53 = True Then SQL = "UPDATE Info1 SET Info1.chose = True" Else SQL = "UPDATE Info1 SET Info1.chose = FALSE" End If DoCmd.RunSQL (SQL) Me.Requery End Sub Sort2.rar

اتفضل تم عمل بخطوتين اولا هذه الاستعلام التجميعي هكذا SELECT جدول2.التسلسل, جدول2.التاريخ, جدول2.الاسم, جدول2.[نوع العرض], جدول2.[سعر النتج], جدول2.[نوع البيع] FROM جدول2 UNION ALL SELECT جدول1.التسلسل, جدول1.التاريخ, جدول1.الاسم, جدول1.[نوع العرض], جدول1.[سعر النتج], جدول1.[نوع البيع] FROM جدول1; وفي مصدر نموذج الفرعي تم استخدام هذا استعلام SELECT Query1.التسلسل, Query1.التاريخ, Query1.الاسم, Query1.[نوع العرض], Query1.[سعر النتج], Query1.[نوع البيع] FROM Query1 WHERE (((Query1.التاريخ)=[Forms]![FRM1]![n1])); حركة.rar

اللهم امين اجمعين شكرا لك اخي الحبيب

اتفضل تم استخدام هذا الكود Private Sub ÃãÑ26_Click() Me.OrderByOn = True If Me.Frame28 = 1 Then Me.OrderBy = "[NAME] ASC" ElseIf Me.Frame28 = 2 Then Me.OrderBy = "[Country] ASC" ElseIf Me.Frame28 = 3 Then Me.OrderBy = "[City] ASC" ElseIf Me.Frame28 = 4 Then Me.OrderBy = "[game] ASC" ElseIf Me.Frame28 = 5 Then Me.OrderBy = "[AGE] ASC" End If End Sub Private Sub ÃãÑ27_Click() Me.OrderByOn = True If Me.Frame28 = 1 Then Me.OrderBy = "[NAME] DESC" ElseIf Me.Frame28 = 2 Then Me.OrderBy = "[Country] DESC" ElseIf Me.Frame28 = 3 Then Me.OrderBy = "[City] DESC" ElseIf Me.Frame28 = 4 Then Me.OrderBy = "[game] DESC" ElseIf Me.Frame28 = 5 Then Me.OrderBy = "[AGE] DESC" End If End Sub Sort1.rar

استخدم ھکذا Kill Me.T11 يجب ان يكون في حقل تي 11 مسار بالكامل مع نوعية الملف مثلا E:\TestExcel.XLSB

تم العلاج لکن القاعدە بھا ناقص جدول المعھد تم استخدام ھذا الكود لكي توصل الى طلبك اختر نوع و نتيجة والصف والجنسية و والمرحلة سيعطيك النتائج حسب ما تختار مع هذا الكود Private Sub Command36_Click() DoCmd.OpenReport "ge", acViewReport, , "[الجنسية]=" & Me.الجنسيات & _ "and [الصف]=" & Me.مربع_تحرير_وسرد11 & _ "and [نتيجة الطالب]=" & Me.مربع_تحرير_وسرد19 & _ "and [النوع]=" & Me.مربع_تحرير_وسرد23 & _ "and [المرحلة]=" & Me.مربع_تحرير_وسرد15 End Sub لكن يجب ان تختار لكل حقول work.rar

اضف Me.Undo في الكود بعد سطر Else طابة 2.rar

ولک نفس الدعاء انا ما عملت اي تقرير بل هو تقريرك فقط انا اضفت الاكواد لكن المشكلة بيرجع لخصائص التقرير في قسم اوزر خاصیە مودال غیرھا الى نو غدا ان شاء الله ساشتغل عليه

حسب فھمی لسۆالک تقدر تستخدم بيتوين بين رقمين وتقدر تبحث في المنتدى راح تجد ما تريد او ارفق نسخة مصغرة من قاعدة بياناتك و وضح اكثر عن ماتريد

اتفضل work.rar

جرب ان تستخدم خط اخر مثل Sakkal Majalla و تأكد ان يكون خط موجود في كلا الجهازين و اخبرني هل سيتغير ام لا

الیک نسخە اخر amdee.zip

وعليكم السلام ورحمة الله وبركاته اتفضل اليك ما طلبت للعلم تم تنزيل من هذا الموقع http://api.256file.com/grfinger.dll/en-download-226397.html grfinger.rar