عبدالقدوس48

السلام عليكم ورحمه الله شرح طريقة بحث وتصفية وفرز وفلترة السجلات بطريقة جديدة بدون اكواد https://m.youtube.com/watch?v=xRs4GkTEEso

Database1011.accdb

هل تقصد هذا كما في الصورة

فهمتك الأن أخي أنت تقصد البحث

وعليكم السلام التصفية تكون في التقرير أقل كما في الصورة

السلام عليكم في المرفق مثال لإغلاق البرنامج بعد 30 ثانية، وإذا أردت الإغلاق بعدد الدقائق قم بتغيير القيمة من خاصية حدث النموذج (الفاصل الزمني لعداد الوقت) = 60000 بدلا من 1000 البرنامج بعد فترة.accdb

السلام عليكم هذا بمناسبة عيد المرأة عيد المرأة.accdb

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

وعليكم السلام ورحمة الله وبركاته يوجد دالة الفرنسية أنت غير فيها Function ConversionHeures(Nombre As Integer) As String If Nombre = 0 Or Nombre = 24 Then ConversionHeures = "Minuit " Exit Function ElseIf Nombre = 12 Then ConversionHeures = "Midi " Exit Function End If Const stEspace As String = " " Dim Varnum, VarnumD, VarnumU, Resultat, Varlet Static Chiffre(1 To 19) Chiffre(1) = "une" Chiffre(2) = "deux" Chiffre(3) = "trois" Chiffre(4) = "quatre" Chiffre(5) = "cinq" Chiffre(6) = "six" Chiffre(7) = "sept" Chiffre(8) = "huit" Chiffre(9) = "neuf" Chiffre(10) = "dix" Chiffre(11) = "onze" Chiffre(12) = "douze" Chiffre(13) = "treize" Chiffre(14) = "quatorze" Chiffre(15) = "quinze" Chiffre(16) = "seize" Chiffre(17) = "dix-sept" Chiffre(18) = "dix-huit" Chiffre(19) = "dix-neuf" Static dizaine(1 To 9, 1 To 5) dizaine(1, 1) = "dix" dizaine(2, 1) = "vingt" dizaine(3, 1) = "trente" dizaine(4, 1) = "quarante" dizaine(5, 1) = "cinquante" dizaine(6, 1) = "soixante" dizaine(7, 1) = "soixante" dizaine(8, 1) = "quatre-vingt" dizaine(9, 1) = "quatre-vingt" Resultat = "" Varnum = Int(Nombre) Mod 1000 If Varnum > 0 Then GoSub centaine_dizaine Resultat = Resultat + " " + Varlet End If Resultat = LTrim(Resultat) Varlet = Right$(Resultat, 4) 'traitement du "s" final pour vingt et cent Select Case Varlet Case "cent", "ingt" Resultat = Resultat + "s" End Select FinTraitement: Resultat = Resultat + stEspace 'renvoi du résultat de la fonction et fin de la fonction ConversionHeures = Replace(Resultat, " ", " ") Exit Function 'sous programme centaine_dizaine: Varlet = "" 'traitement des centaines If Varnum >= 100 Then Varlet = Chiffre(Int(Varnum / 100)) Varnum = Varnum Mod 100 If Varlet = "un" Then Varlet = "cent " Else Varlet = Varlet + " cent " End If End If 'traitement des dizaines If Varnum <= 19 Then If Varnum > 0 Then: Varlet = Varlet + Chiffre(Varnum) Else VarnumD = Int(Varnum / 10) VarnumU = Varnum Mod 10 Varlet = Varlet + dizaine(VarnumD, 1) If VarnumU = 1 And VarnumD < 8 Then Varlet = Varlet + " et " Else If VarnumU <> 0 Or VarnumD = 7 Or VarnumD = 9 Then: Varlet = Varlet & " " End If If VarnumD = 7 Or VarnumD = 9 Then: VarnumU = VarnumU + 10 If VarnumU <> 0 Then: Varlet = Varlet + Chiffre(VarnumU) End If Varlet = Trim(Varlet) Return End Function للعم الشهر يأخذه من نظام الكمبيوتر

السلام عليكم تفضل أخي وأكمل الباقية 752466984_.accdb

أسف هذا هو teatea (1).accdb

جرب مثال

teatea.accdbهل هذا طلبك

وعليكم السلام أخي سؤالك ليس واضح

بتوفيق أخي عمل جميل

الله يوفقكم

وعليكم السلام ورحمة الله وبركاته هل هذا طلبك

شكرا لك أخي

السلام عليكم كيفية إضافة صورة مع الكتابة على الزر الأمر وشكرا

نعم أخي هذا هو طلبي وجزاك الله خيرا

شكرا لك أخي عمر وجزاك الله خيرا ممكن مثال

السلام عليكم كيفية البحث في ثلاثة جداول في نموذج واحد وشكرا

وفقكم الله وسدد خطاكم لما فيه الخير اللهم علمنا من علمك

شكر لك أخي جعفر

السلام عليكم كيفية إضافة خيار A3 في طابعة التقرير يوجد A4 ولا يوجد خيار A3 وشكرا