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

12- عرض الرسالة مع زر اختيار . صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 12 - Msgbox With Radio Button.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني . 13- عرض الرسالة مع زر اختيار مُحمل اوتوماتيكياً . صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 13 - Msgbox With Dynamic Radio Button.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني . 14- عرض الرسالة مع زر اختيار مع عدم تمكين احداهم . صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 14 - Msgbox With Disabled Radio Button.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني .

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

معك حق تفضل أخي الكريم Vente-4.xlsm

تسلم ايدك استاذ @king5star زادك الله من فضله اللهم امين يارب

الحمد لله الذي بنعمته تتم الصالحات

اتفضل قم بوضع هذا الكود فى حدث عند النقر على زر امر فى نموذج On Error GoTo Oops Dim db As dao.Database: Set db = CurrentDb() Dim rs As dao.Recordset: Set rs = db.OpenRecordset("file-1") Dim intSpID As Long: intSpID = 110 With rs .MoveFirst Do intSpID = intSpID + 1 rs.Edit rs![الرقم الحسابي] = intSpID rs.Update .MoveNext Loop Until .EOF .Close End With db.Close function_exit: Set rs = Nothing Set db = Nothing Exit Sub Oops: ' Handle the errors here GoTo function_exit

🙂

السلام عليكم ورحمة الله وبركاته على حسب فهمى لسؤالك بعد اذن الاستاذ حسين عدل هذا السطر Sheets("P.R.T").PrintOut Copies:=x, Collate:=True, _ IgnorePrintAreas:=False الى هذا السطر Sheets("P.R.T").PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False

الله يستر فريق الموقع شكلهم الحكومه😬 هلا اخوي جعفر اعتذر ان خالفت قوانين و سياسة المنتدى وشاكر ومقدر للجميع وعلى رأسهم اخوي د.كاف يار على جميع ماقدمتم وتقدمون جزاكم الله خيرا وشكرا من القلب

بارك الله فيك وجزاك خير ونفع الله بك بيض الله وجهك ماقصرت الف شكر

جزانا الله واياكم وامة محمد صل الله عليه وسلم خير الجزاء وما فى اى تعب تحت امرك والحمد لله ان المشكلة انحلت شوف انا اصدار الاكسس عندى يستخدم الفاصلة الغير منقوطة هذه , وليست هذه ; اعتذر لو كنت نسيت توضيح تلك الجزئية

بارك الله فيك وجزاك الله خير استاذي الكريم ابا جودي الله يعطيك العافيه والله ماقصرت الله يسعدك واسف جدا اتعبتك معي انحلت المشكله والان الوضع تمام اعتقد المشكله في التاريخ كانت عدم وجود الفاصله المنقوطه ; الف شكر لك استاذي الكريم والشكر موصول لكل من شارك معنا احترامي وتقدير لشخصك الكريم🌹🌹🌹

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

جرب المرفق ووافنى بالنتيجة GenerateOrReadQRCodeImageV.03.mdb.zip

- ممكن مرفق لو تكرمت

سوف تكون بهذا الشكل استبدل [DateEntered] بـ الدالة Format([DateEntered],"dd/mm/yyyy")

تفضل أخي الكريم Vente (1).xlsm

استخدم الكود الاتى Fix(100*[Field Name])/100 او ضع الكود الاتى فى موديول وهذا ما افضله لما فيه من مرونة Public Function SpltDta(ByVal FieldName As String, ByVal intNo As Integer) SpltDta = Left(FieldName, InStr(1, FieldName, ".") + intNo) End Function ويتم استدعاؤه من خلال بحيث ان Field Name اسم الحقل فى الاستعلام او مربع النص لو نموذج والرقم 2 هو عدد الارقام التى تريدها من بعد العلامة العشرية يمكنك زيادته او نقصانه حسب متطلباتك SpltDta([FieldName],2) ------------------- وللتاريخ كاملا استخدم الكود Format([FieldDate],"dd/mm/yyyy")

اخي العزيز جرب خذا الملف وهو تعديل على ما سبق Vente.xlsm

بالنسبة للرقم العشرى لابد من سؤال بناء عليه تتحدد الاجابة هل تريد التقريب الى اقرب رقم صحيح سواء اقل او اعلى ام تريد فقط اول رقمين بعد العلامة العشرية دون التقريب بالنسبة للتاريخ استخدم الدالة format لحذف رقمين من العام Format([FieldDate],"dd/mm/yy") وان اردت العام كاملا استخدم الكود الاتى لانى لا افهم ما تريد الحصول عليه تحديدا Format([FieldDate],"dd/mm/yyyy")

نفس المشكلة حصلت معايا ولكن الحل استخدم دالة =Round([Tax];2)

الحمد لله .. بعد عدة تجارب تم الوصول للمطلوب باستعلام واحد وهذه التجارب الناجحة -وإن كانت قليلة- تشعرني إنو في أمل جزاك الله خيراً أخي الكريم وأحسن إليك

تم ارفاق الملف واعتذر

شكرا اخوي ناقل 🙂 وهذا هو الرابط جعفر

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub named_Click() Dim rst As Recordset Set rst = Forms!Main2.Form.Recordset.Clone rst.FindFirst "[الاسم] = '" & Me.named & "'" If Not rst.EOF Then Forms!Main2.Form.Bookmark = rst.Bookmark End If Set rst = Nothing End Sub تلامذ.rar تحياتي

اشكرك جدا استاذي الفاضل المحترم تمت زي ما انا عايز بالظبط ما شاء الله عليك ربنا يجازيك عنا كل خير

السلام عليكم هذا البرنامج عملته في زمن مضى برنامج لتسجيل الأسر : الأجداد والآباء والأبناء والأحفاد بكل يسر وسهولة باستخدام جداول عدة مترابطة و يتم عرضهها في تقرير خاص ايضا استخدمت شجرة الحسابات كمستكشف لعرض الأصول والفروع بطريقة شيقة ولمسات خاصة وبالألوان ولمسات اخرى تجدونها عند تجربة البرنامج ارجوا ممن يستفيد منه الا ينساني من دعوة في ظهر الغيب . Osrah.rar

جرب الكود التالي Option Explicit Sub PRINT1() Dim DT, dt2 Dim RG Dim x DT = Sheets("ST").Range("c3"): dt2 = DT RG = Sheets("ST").Range("e3") For x = 1 To RG Sheets("P.R.T").Range("b3") = dt2 Sheets("P.R.T").PrintOut Copies:=x, Collate:=True, _ IgnorePrintAreas:=False dt2 = Format(DateAdd("m", 1, dt2), "yyyy-mm-dd") Next End Sub تجربه الطباعه.xlsm

ملحوظة هااااااااااااااااااامة : جعل اتجاه الرسالة من المين الى اليسار وليس العكس لدعم اللغة العربية عند الخاصية Flags. قم بوضع هذا العلم فى نهاية السطر : Or TDF_RTL_LAYOUT لتكون النتيجة النهائية كما بالمثال . .Flags = TDF_COMBO_BOX Or TDF_INPUT_BOX Or TDF_RTL_LAYOUT وهذا مثال :

اريدك تعمل ملف اكسل فيه بعض النتائج الصحيحة (على الاقل 4 - 5) ، للحقول الثلاثة ، ومن البيانات الموجودة في مرفقك الاصل (وبدون عمل اضافات عليه) ، حتى اقدر افهم الموضوع كاملا 🙂 جعفر