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

اتّبع الخطوات التالية لتفعيلها مجددا" اذهب إلى : ملف File ثمّ خيارات Options ثمّ القاعدة الحالية Current Database ثمّ تأكد أن خيار Use Access Special Keys هي فعالة

إضافة للكود الذي تفضلت به أخي ABOLO2 في الموضوع الآخر .. ستجد في هذا الموضوع دالة تفضل بها المهندس العزيز @jjafferr تقوم بنفس العملية ولكن يجمع لك السنوات والشهور في سطر واحد .. ولكن بعدها يمكنك فصل السنوات والشهور والأيام بدالة Split كما وضح الأستاذ جعفر : 🙂

وعليكم السلام ورحمة الله وبركاته ضع هذا الكود في زر دخول Application.Goto ThisWorkbook.Worksheets(TextBox1.Value).Range("A1")

اعجبني صنعك لهذه الدالة .. اذ لا وجود لها في vba .. شكرا لك يابواحمد ولكن بالمقابل هي موجودة فعلا ويتعامل معها اكسس في الاستعلام ، لذا لو تم تمييزها بزيادة حرف او نقصه لكانت آمن واتقن لدى من يقتبسها .

السلام عليكم 🙂 استخدم ctrl+G جعفر

لقد قمت بعمل مديول لحساب الفرق بين تاريخين بالسنة و الشهر و الايام السنة في خانة الشهور في خانة الايام في خانة و قمت بالتجربة و ان شاء الله ناجحة و اليكم محتويات المديول للتجربة و كتابة الملاحظات لتعم الفائدة Function DatDiffY(Vdate1 As Date, Vdate2 As Date) As Integer Dim year1 As Integer Dim year2 As Integer Dim year3 As Integer Dim month1 As Integer Dim month2 As Integer Dim month3 As Integer Dim day1 As Integer Dim day2 As Integer year1 = Int(DatePart("yyyy", Vdate1)) year2 = Int(DatePart("yyyy", Vdate2)) month1 = Int(DatePart("m", Vdate1)) month2 = Int(DatePart("m", Vdate2)) day1 = Int(DatePart("d", Vdate1)) day2 = Int(DatePart("d", Vdate2)) If month2 < month1 Or day2 < day1 Then If (year2 - year1) - 1 < 0 Then DatDiffY = 0 Else DatDiffY = (year2 - year1) - 1 End If Else DatDiffY = year2 - year1 End If End Function Function DatDiffM(Vdate1 As Date, Vdate2 As Date) As Integer Dim day1 As Integer Dim day2 As Integer Dim month1 As Integer Dim month2 As Integer Dim month3 As Integer Dim year1 As Integer Dim year2 As Integer Dim dateC1 As Date day1 = Int(DatePart("d", Vdate1)) day2 = Int(DatePart("d", Vdate2)) month1 = Int(DatePart("m", Vdate1)) month2 = Int(DatePart("m", Vdate2)) year1 = Int(DatePart("yyyy", Vdate1)) year2 = Int(DatePart("yyyy", Vdate2)) If month2 < month1 Or day2 < day1 Then If month2 < month1 And day2 > day1 Then month3 = month2 + 12 DatDiffM = (month3 - month1) End If If month2 < month1 And day2 < day1 Then month3 = (month2 + 12) - 1 If (month3 - month1) - 1 < 0 Then DatDiffM = 0 Else DatDiffM = (month3 - month1) End If End If If month2 > month1 And day2 < day1 Then DatDiffM = (month2 - month1) - 1 End If Else DatDiffM = month2 - month1 End If End Function Function DatDiffD(Vdate1 As Date, Vdate2 As Date) As Integer Dim day1 As Integer Dim day2 As Integer Dim month1 As Integer Dim month2 As Integer Dim month3 As Integer Dim year1 As Integer Dim year2 As Integer Dim year3 As Integer Dim dateC1 As Date day1 = Int(DatePart("d", Vdate1)) day2 = Int(DatePart("d", Vdate2)) month1 = Int(DatePart("m", Vdate1)) month2 = Int(DatePart("m", Vdate2)) year1 = Int(DatePart("yyyy", Vdate1)) year2 = Int(DatePart("yyyy", Vdate2)) If day2 < day1 Then month3 = month2 - 1 dateC1 = DateSerial(year2, month3, day1) DatDiffD = DateDiff("d", dateC1, Vdate2) Else DatDiffD = day2 - day1 End If End Function و هذه هي طريقة الاستدعاء Me.text3 = DatDiffY(Me.text1, Me.text2) Me.text4 = DatDiffM(Me.text1, Me.text2) Me.text5 = DatDiffD(Me.text1, Me.text2)

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

الملف الذي تم إرفاقه في المشاركة فوق ليس به أي مشكلة في الترحيل ربما قد غيرت شيئ ما بدون قصد على العموم قد تم حل المشكلة أما بالنسبة للتسطير كان عليك أولا تجرب تسطير ورقة saad وتشوف!!! تم إرفاق ملفان واحد بتسطير ورقة saad والثاني باستخدام التنسيق الشرطي .لكي تكتشف الفرق AHMED.rar

اهلا ابو حسان ... شوف هذا التعديل T3Q -2.rar

تجنباً لإهدار وقت الأساتذة وبما انه لا يمكن العمل على التخمين .. فلابد من رفع ملف مدعوم بشرح كافى عن المطلوب , مع وضع شكل النتائج المرجوة !!!

السلام عليكم مشاركة مع اساتذتى العظماء هذه افكارى المتواضعة هذه الاكواد داخل موديول Public clnfrmName As New Collection Public frm As Form Public intCounterOpenForm As Integer Dim xPos As Integer Dim yPos As Integer Dim lngCount As Long Dim lngI As Long Function OpenAForm() Set frm = New Form_frmInvoice frm.Visible = True intCounterOpenForm = intCounterOpenForm + 1 frm.Caption = frm.Name & "(" & intCounterOpenForm & ")" clnfrmName.Add Item:=frm, Key:=CStr(frm.Name & "(" & intCounterOpenForm & ")") xPos = xPos + 300 yPos = yPos + 300 frm.Move xPos, yPos Set frm = Nothing End Function Function CloseAllForm() lngCount = clnfrmName.Count For lngI = 1 To lngCount clnfrmName.Remove 1 Next intCounterOpenForm = 0 xPos = 0 yPos = 0 End Function كنت اتمنى تطوير اخراج الفكرة بشكل عملى اكثر حتى لا يرتبط الكود باسم النموذج على ان يكون كود مرن ويتم استدعاءه بالشكل التالى OpenAForm("اسم النموذج المراد فتحه اكثر من مرة") ولكن عجزت بصراحة فى هذا السطر Set frm = New Form_frmInvoice Open Form more than once.accdb

الشكر لله اخى الحمد لله الذي بنعمته تتم الصالحات

اخى حسونه الف شكر بارك الله فيك لك ودى وتقديرى لشخصك الكريم

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

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

السلام عليكم 🙂 اخبرتك المرة السابقة: وبمرفقك الجديد حصلت على نفس المشكلة: . وبالدخول في الكود وعمل Compile: . هذا الكائن Combobox غير موجود في النموذج . جعفر

أخي رضوان Radwan00 اسم اخينا هو موسى الكلباني Moosak

شكرا لك أخي @ABOLO2 🙂 على هذا المجهود الطيب .. ملاحظة : جرب استخدام هذا الخيار من لوحة التنسيق لإرفاق الأكواد : وستظهر لك بهذه الطريقة المنظمة والجميلة 🙂 : Sub test() 'و هذه هي طريقة الاستدعاء Debug.Print DatDiffY(#1/1/2020#, Date) ' السنوات Debug.Print DatDiffM(#1/1/2020#, Date) ' الأشهر Debug.Print DatDiffD(#1/1/2020#, Date) ' الأيام End Sub Function DatDiffY(Vdate1 As Date, Vdate2 As Date) As Integer Dim year1 As Integer Dim year2 As Integer Dim year3 As Integer Dim month1 As Integer Dim month2 As Integer Dim month3 As Integer Dim day1 As Integer Dim day2 As Integer year1 = Int(DatePart("yyyy", Vdate1)) year2 = Int(DatePart("yyyy", Vdate2)) month1 = Int(DatePart("m", Vdate1)) month2 = Int(DatePart("m", Vdate2)) day1 = Int(DatePart("d", Vdate1)) day2 = Int(DatePart("d", Vdate2)) If month2 < month1 Or day2 < day1 Then If (year2 - year1) - 1 < 0 Then DatDiffY = 0 Else DatDiffY = (year2 - year1) - 1 End If Else DatDiffY = year2 - year1 End If End Function Function DatDiffM(Vdate1 As Date, Vdate2 As Date) As Integer Dim day1 As Integer Dim day2 As Integer Dim month1 As Integer Dim month2 As Integer Dim month3 As Integer Dim year1 As Integer Dim year2 As Integer Dim dateC1 As Date day1 = Int(DatePart("d", Vdate1)) day2 = Int(DatePart("d", Vdate2)) month1 = Int(DatePart("m", Vdate1)) month2 = Int(DatePart("m", Vdate2)) year1 = Int(DatePart("yyyy", Vdate1)) year2 = Int(DatePart("yyyy", Vdate2)) If month2 < month1 Or day2 < day1 Then If month2 < month1 And day2 > day1 Then month3 = month2 + 12 DatDiffM = (month3 - month1) End If If month2 < month1 And day2 < day1 Then month3 = (month2 + 12) - 1 If (month3 - month1) - 1 < 0 Then DatDiffM = 0 Else DatDiffM = (month3 - month1) End If End If If month2 > month1 And day2 < day1 Then DatDiffM = (month2 - month1) - 1 End If Else DatDiffM = month2 - month1 End If End Function Function DatDiffD(Vdate1 As Date, Vdate2 As Date) As Integer Dim day1 As Integer Dim day2 As Integer Dim month1 As Integer Dim month2 As Integer Dim month3 As Integer Dim year1 As Integer Dim year2 As Integer Dim year3 As Integer Dim dateC1 As Date day1 = Int(DatePart("d", Vdate1)) day2 = Int(DatePart("d", Vdate2)) month1 = Int(DatePart("m", Vdate1)) month2 = Int(DatePart("m", Vdate2)) year1 = Int(DatePart("yyyy", Vdate1)) year2 = Int(DatePart("yyyy", Vdate2)) If day2 < day1 Then month3 = month2 - 1 dateC1 = DateSerial(year2, month3, day1) DatDiffD = DateDiff("d", dateC1, Vdate2) Else DatDiffD = day2 - day1 End If End Function

وعليكم السلام ورحمة الله وبركاته أخي طاهر 🙂 رسمت لك هذه الصورة التوضيحية لمعرفة كيف يتم عمل روابط متسلسلة بين الجداول : لو اتبعت تصميم الجداول بهذه الطريقة فسيسهل عليك بإذن الله عمل القوائم المنسدلة 🙂

هل تستخدم مفتاح F11 كمفتاح اختصار مع اي برنامج اخر مثل برامج تصوير الشاشة او تصوير الفيديو .. ااخ اذا كان نعم احذف مفتاح الاختصار وجرب لا هذا السبب المرجح مشكلتك تحياتي

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

هذه المشكلة واجهتها سابقا والسبب كان من برنامج GeForce Experience كان البرنامج يستخدم مفتاح الاختصار ALT & F11 فقط حذفته وانتهت المشكلة

تمت إضافة الكود على المثال: finish_02.rar

فعلا افتخر بنفسي اني تعرفت عليك اخي @Moosakوبارك الله بجهودك

وبعد هذا الجهد .. صدفة وجدت هذا الموضوع لحبيبنا المهندس محمد عصام @ابو جودي طبعا بطريقة مختلفة وفكر متجدد 🙂

وعليكم السلام 🙂 الصق هذا الكود في حدث التقرير : Private Sub Report_NoData(Cancel As Integer) MsgBox "لا توجد سجلات للطباعة" Cancel = True End Sub جعفر

وعليكم السلام-جرب هذا =IF(INT(C2)<>C2,C2+1.5,C2) 1اضافة عدد للكسر.xlsx

عليكم السلام جرب وضع هذه المعادلة في الخلية L6 =IFERROR(VLOOKUP(H6,INDIRECT("'"&J6&"'!d2:e1000"),2,0),"") بالتوفيق

وبكده الأمر ليس سهلاً مطلقاً فمن أين أعرف الخامات المطلوبة لمنتج معين وعلى أى اساس يتم ترتيب هذه الخامات ؟!!! فأعتقد لا يمكن عمل هذا الا يدوياً

بسم الله الرحمن الرحيم من أكثر الصعوبات التي كانت تواجهنا في الماضي هي كيفية طباعة الرموز والمعادلات الرياضية باللغة العربية بشكل صحيح دون مشاكل أو أخطاء وقد حاول الكثيرون البحث عن طرق جديدة لحل هذه المشكلة ويبدو أن النتائج الجديدة بدأت تبشر بالخير فعلاً .. وسنحاول من خلال هذا الموضوع ذكر بعض الطرق المستخدمة حالياً للتعامل مع الرياضيات ورموزه من خلال الوورد .. ومن هذه الطرق التي يمكن استخدامها من خلال برنامج معالج الكلمات الوورد .. أولاً : برنامج حوسبة رموز الرياضيات من إعداد إدارة التربية والتعليم بمحافظة الزلفي : هذا البرنامج هو محاولة رائعة للتغلب على مشاكل طباعة الرموز الرياضية وبالفعل ساعدت الكثير في التغلب على الكثير من المشاكل و نتمنى أن يستمر تطويرها بشكل يخدم المادة أكثر فأكثر وهي عبارة عن مجموعة من الخطوط التي يتم تحميلها على الجهاز واستخدامها بطريقة معينة من خلال خريطة خاصة بكل رمز ويمكن الحصول على معلومات كاملة عن هذه الخطوط وطريقة تحميلها من خلال قسم مكتبة الرياضيات الموجودة في هذا الرابط : http://www.zulfiedu.gov.sa/ ولكن يُعاب على هذا البرنامج أنه يحتاج إلى جهد كبير في حفظ أماكن الرموز الرياضية مما يشكل صعوبة كبيرة جدا وبطء شديد في الطباعة ..

بارك الله لك مجهود رائع

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

السلام عليكم و رحمة الله و بركاته موضوع إستخراج كشف حساب بين تاريخين, موضوع أتعبني في الماضي و لقد سألت عنه كثيراً و قدم لي الأخ أبو تامر جزاه الله كل خير حل لهذا الموضوع بواسطة الأكواد و كان حلاً رائعاً و بالأمس خطر على بالي أن استخدم المعادلات في استخراج كشف الحساب و الحمد لله وفقني الله لهذه الفكرة أتمنى أن تجد إستحسان لدى الأخوة الأعضاء تفضلوا هذا هو الملف ______________Justice.rar