عبدالقدوس48

وعليكم السلام أليك مثال مثال.accdb

وعليكم السلام تفضل أخي delete with password.mdb

العفو

السلام عليكم حذف سجل معين دون فقد البيانات وامكانية استرجاعه لاحقا New Microsoft Access Database.accdb

شكرا لك أخي وجزاك الله خيرا

طريقة الثانية هنا لنتعلم فتح نموذج.rar

السلام عليكم ورحمة الله وبركاته إليكم مثال في فتح فورم بطريقة جميلة وشكرا فتح نموذج.rar

وعليكم السلام تفضل أخي مثال.accdb

إستعادة الجداول محذوفة وليس البيانات الجدول UnDeleteTable.mdb

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

وعليكم السلام اتفضل اخى هل هذا هو المطلوب إضافة على ملف أخينا بحار الاكسس نوع السيارة.accdb

السلام عليكم أشكال جديدة و جميلة للنماذج و الأزرار لعلها تنفعكم أشكال جديدة و جميلة للنماذج و الأزرار.mdb

تاسلام عليكم تغيير خلفيه النموذج بالاختيار من مربع تحرير وسرد alisstart.rar

لمعرفه التكرار في الجدول اثناء ادخال البيانات هذا هو الكود If (Eval("dlookup(""[num]"",""[Table1]"",""[Num] =form![Num]"") Is Not Null")) Then MsgBox "ÇáÑÞã ãßÑÑ ãä ÞÈá" Cancel = True SendKeys "{ESC}" End If

جزاك الله خيرا أخي أبو جودي

السلام عليكم ورحمه الله شرح طريقة بحث وتصفية وفرز وفلترة السجلات بطريقة جديدة بدون اكواد 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