Ahmed_J

تغضل اخي الكريم IQ.accdb

اخي العزيز من الافضل ارفاق ملف حتى لو بسيط يشبة ملفك للتعديل

السلام عليكم اخي العزيز يجب اولا معرفة اين يجب كتابة الدالة if في جدول (حقل محسوب) او استعلام او نموذج لكي نعطيك مثال عن ذلك انظر للرابط https://www.officena.net/ib/topic/74860-إنشاء-دروس-vba-أكسس/

انظر للرابط اتمنى ان تستفيد منه

تفضل 1- قمت بتغيير المسميات في الجدول الى اللغة الانكليزية لسهولة التعامل معها مستقبلا في الاكواد 2- عملت لك استعلام لسهولة اجراء العمليات الحسابية فية او الفرز او اي شيء اخر 3- عملت لك نموذجين واحد نموذج منفرد والاخر نموذج مستمر (انت اختار اللي يعجبك منهم) 4- عملت لك تقرير تحياتي test.accdb

السلام عليكم اخي العزيز يمكن عمل ذلك لان برنامج الاكسس رائع المهم انك تعرف طريقة التعامل معة تفضل الملف البسيط مثل ملف الاكسل تبعك test.accdb

بارك الله فيك استاذ @أبوبسمله شكرا لكم اساتذتي الاعزاء وفقكم الله

شكرا لك أستاذ @jjafferr تعبتك معي كتير قصدي توسيط مثل الصورة بارك الله فيك

شكرا لك استاذ @jjafferr بارك الله فيك في مثل عندنا يقول (صاحب الحاجة اعمى) 1- هل يمكن توسيط الكتابة داخل حقول الاسم والعمر والمهنة ام لا 2- في الكود رقم (4+) ورقم (20*) هل ممكن توضح فائدتهم لي اكثر H = (Me.Ev.FontSize + 4) * 20 استاذي العزيز هل افتح عنوان لموضوع جديد او نكمل هنا تحياتي للجميع 1468.1.Lines in Report.accdb

العفو استاذ @jjafferr انت بتستاهل اكثر من هيك والله اخر طلب منك الله يبارك فيك كيف اقدر اتحكم بارتقاع حقل التقييم (EV) بالتقرير rpt_Ev (انقاص از زبادة الارتفاع) لان عندما غيرت الارتفاع الى 1 سم من التنسيق الحقول تلخبط حقل التقييم كما في الصورة تحياتي

الى الاستاذ @jjafferr إلى منارة العلم والمعرفة، اشكرك شكراً جزيلاً بعدد ألوان الزهور وقطرات الندى على مجهوداتك الكبيرة التي لا تتوقف لأجل تحقيق التميز والتقدم. بارك الله فيك وجعلها في ميزان حسناتك الله يوفقك وينير لك طريقك يارب العالمين. هل الوحدة النمطية mod_Draw_Box_Lines احذفها لان ليس لها دور ام لا ؟؟؟

استاذي العزيز تستطيع عمل ذلك من خلال وضع الكود اما بالاستعلام او مصدر بيانات الحقل بالنموذج =NoToTxt([المبلغ];"جنيه";"قرش") تحياتي للجميع Database1.accdb

السلام عليكم تفضل الكود وهو لاحد الاخوة بالموقع انسخة في وحدة نمطية وبصراحة لااعرف عملة القرش Function NoToTxt(TheNo As Double, MyCur As String, MySubCur As String) As String Dim MyArry1(0 To 9) As String Dim MyArry2(0 To 9) As String Dim MyArry3(0 To 9) As String Dim MyNo As String Dim GetNo As String Dim RdNo As String Dim My100 As String Dim My10 As String Dim My1 As String Dim My11 As String Dim My12 As String Dim GetTxt As String Dim Mybillion As String Dim MyMillion As String Dim MyThou As String Dim MyHun As String Dim MyFraction As String Dim MyAnd As String Dim i As Integer Dim ReMark As String If TheNo > 999999999999.99 Then Exit Function If TheNo = 0 Then NoToTxt = "صفر" Exit Function End If MyAnd = " و" MyArry1(0) = "" MyArry1(1) = "مائة" MyArry1(2) = "مائتان" MyArry1(3) = "ثلاثمائة" MyArry1(4) = "أربعمائة" MyArry1(5) = "خمسمائة" MyArry1(6) = "ستمائة" MyArry1(7) = "سبعمائة" MyArry1(8) = "ثمانمائة" MyArry1(9) = "تسعمائة" MyArry2(0) = "" MyArry2(1) = " عشر" MyArry2(2) = "عشرون" MyArry2(3) = "ثلاثون" MyArry2(4) = "أربعون" MyArry2(5) = "خمسون" MyArry2(6) = "ستون" MyArry2(7) = "سبعون" MyArry2(8) = "ثمانون" MyArry2(9) = "تسعون" MyArry3(0) = "" MyArry3(1) = "واحد" MyArry3(2) = "اثنان" MyArry3(3) = "ثلاثة" MyArry3(4) = "أربعة" MyArry3(5) = "خمسة" MyArry3(6) = "ستة" MyArry3(7) = "سبعة" MyArry3(8) = "ثمانية" MyArry3(9) = "تسعة" '====================== GetNo = Format(TheNo, "000000000000.00") i = 0 Do While i < 15 If i < 12 Then MyNo = Mid$(GetNo, i + 1, 3) Else MyNo = "0" + Mid$(GetNo, i + 2, 2) End If If (Mid$(MyNo, 1, 3)) > 0 Then RdNo = Mid$(MyNo, 1, 1) My100 = MyArry1(RdNo) RdNo = Mid$(MyNo, 3, 1) My1 = MyArry3(RdNo) RdNo = Mid$(MyNo, 2, 1) My10 = MyArry2(RdNo) If Mid$(MyNo, 2, 2) = 11 Then My11 = "إحدى عشر" If Mid$(MyNo, 2, 2) = 12 Then My12 = "إثنى عشر" If Mid$(MyNo, 2, 2) = 10 Then My10 = "عشرة" If ((Mid$(MyNo, 1, 1)) > 0) And ((Mid$(MyNo, 2, 2)) > 0) Then My100 = My100 + MyAnd If ((Mid$(MyNo, 3, 1)) > 0) And ((Mid$(MyNo, 2, 1)) > 1) Then My1 = My1 + MyAnd GetTxt = My100 + My1 + My10 If ((Mid$(MyNo, 3, 1)) = 1) And ((Mid$(MyNo, 2, 1)) = 1) Then GetTxt = My100 + My11 If ((Mid$(MyNo, 1, 1)) = 0) Then GetTxt = My11 End If If ((Mid$(MyNo, 3, 1)) = 2) And ((Mid$(MyNo, 2, 1)) = 1) Then GetTxt = My100 + My12 If ((Mid$(MyNo, 1, 1)) = 0) Then GetTxt = My12 End If If (i = 0) And (GetTxt <> "") Then If ((Mid$(MyNo, 1, 3)) > 10) Then Mybillion = GetTxt + " مليار" Else Mybillion = GetTxt + " مليارات" If ((Mid$(MyNo, 1, 3)) = 2) Then Mybillion = " مليار" If ((Mid$(MyNo, 1, 3)) = 2) Then Mybillion = " ملياران" End If End If If (i = 3) And (GetTxt <> "") Then If ((Mid$(MyNo, 1, 3)) > 10) Then MyMillion = GetTxt + " مليون" Else MyMillion = GetTxt + " ملايين" If ((Mid$(MyNo, 1, 3)) = 1) Then MyMillion = " مليون" If ((Mid$(MyNo, 1, 3)) = 2) Then MyMillion = " مليونان" End If End If If (i = 6) And (GetTxt <> "") Then If ((Mid$(MyNo, 1, 3)) > 10) Then MyThou = GetTxt + " ألف" Else MyThou = GetTxt + " آلاف" If ((Mid$(MyNo, 3, 1)) = 1) Then MyThou = " ألف" If ((Mid$(MyNo, 3, 1)) = 2) Then MyThou = " ألفان" End If End If If (i = 9) And (GetTxt <> "") Then MyHun = GetTxt If (i = 12) And (GetTxt <> "") Then MyFraction = GetTxt End If i = i + 3 Loop If (Mybillion <> "") Then If (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then Mybillion = Mybillion + MyAnd End If If (MyMillion <> "") Then If (MyThou <> "") Or (MyHun <> "") Then MyMillion = MyMillion + MyAnd End If If (MyThou <> "") Then If (MyHun <> "") Then MyThou = MyThou + MyAnd End If If MyFraction <> "" Then If (Mybillion <> "") Or (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur + MyAnd + MyFraction + " " + MySubCur Else NoToTxt = ReMark + MyFraction + " " + MySubCur End If Else NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur End If End Function ثم قم ياستدعائة من حقل المبلغ المطلوب بالكود التالي Me.المبلغ_كتابه = NoToTxt(Me.المبلغ, "جنيه", "قرش") Database1.accdb

up

الف مبروك اخي العزيز

السلام عليكم استاذي العزيز @jjafferr الله يبارك فيك انا عملت الملف زي الطريفة الاولى لكن لم يضبط معي تحياتي لك Database1.accdb

السلام عليكم اساتذتي الاعزاء لدي ملف بيانات الموظفين اريد عمل تقرير مخصص كما في الصورة علما بان التقرير مبني على استعلام وتكون كافة الحقول مساوي من حيث التصميم لعدد حقول التقييم لان احيانا يكون عدد التقييمات واحد او اثنان وهكذا لغاية خمسة كحد اقصى تحياتي للجميع

اخي العزيز قلت لك توجد عدة طرق لاستيراد ملف الاكسل من الاكسس والاكواد تختلف حسب نوع الاستيراد اول شيء لابد انك من عندك قاعدة بيانات اكسس مع ملاحظة التالي: 1- هل لديك جدول بالاكسس مشابة لجدول الاكسل وعاوز تنزل البيانات فيه 2- ام عاوز كود لتكوين جدول لتنزيل البيانات فية ارجو ارفاق ملف لكي يتم التعديل عليه تحياتي لك

السلام عليكم توجد اكثر من طريقة لاستيراد ملفات الاكسل الى الاكسس احدى هذه الطرق هذا الملف لاحد الاخوة بالموقع اول شيء تختار مسار الملف ثاني شيء تختار اسم ورقة العمل من القائمة المنسدلة تحت مسار الملف ثالث شيء تضغط على البيانات من ملف اكسل اتمنى ان يكون المطلوب Ju_ Import Frome Excel File.rar

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

السلام عليكم استاذ @jjafferr الله يبارك فيك شكرا للمعلومة الرائعة اردت صاحب الموضوع استاذ @kanoryا ن يقوم بالتصحيح لان واضح انها دالة ثانية لانها منتهية End Sub لكي نقوم بالتجربة النهائية تحياتي للجميع

UP

السلام عليكم اولا انا احب العمل بالوحدات النمطية لاني اعمل وحدة نمطية واحدة لكل النماذج وبصراحة لااعرف سيئات ذلك ثانيا حسب طلبك تقول الحساب في الوحدة النمطية وانت تريد التعامل مع النصوص ( ابتدائي واعدادي وثانوي وتمهيدي وابناء عاملين ) المهم اخي العزيز من الافضل ان ترفق ملف توضيحي لطلبك وحسب فهمي لطلبك يمكن استخدام دالة Select Case او دالة IF في الوحدة النمطية تحياتي

السلام عليكم اساتذتي الاعزاء ظهر لي خطا في Module1 الاولى بعد End Function كما في الصورة تحياتي للجميع

تفضل اخي الكريم استخدم دالة nz او اجعل قيمة افتراضية للحقل =0 المجموع: Nz([num1];0)+Nz([num2];0) New Microsoft Access قاعدة بيانات.accdb