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

السلام عليكم ورحمة الله تعالى وبركاته حياكم الله اخوانى واحبابى بناء على موضوع : فتح نموذج بناء على اوقات مختلفه اخى الحبيب استاذ @TQTHAMI اهديكم وكل احبابى هذا التطبيق 1- ملفات الاذن محموله داخل القاعدة 2- عند فتح التطبيق يتم انشاء مجلدات اليا فى نفس مسار التطبيق 3- يتم تفريغ الملفات الصوتية والصورة بداخل المجلدات 4- امكانية تعديل الوقت لكل صلاة 5- فتح نموذج تنبيه وقت الاذان مع الاستماع للاذان 6- اغلاق النموذج الخاص بالتنبيه والاذان اليا بعد الانتهاء لصوت الاذان Prayer.mdb

السلام عليكم 🙂 هل هذا المطلوب؟ جعفر Drag_Forms.zip

أهلا بكم .. يمكن استخدام إجراءات واجهة برمجة التطبيقات لوندوز WIN32API لتحقيق هذا الغرض الإجراء المطلوب Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long التطبيق Private Sub Command0_Click() Dim result As Long Dim chwnd As Long DoCmd.OpenForm "form2" chwnd = Screen.ActiveForm.Hwnd result = SetParent(chwnd, Me.Hwnd) End Sub Or Private Sub Command2_Click() Dim chwnd As Long DoCmd.OpenForm "form3" chwnd = Screen.ActiveForm.Hwnd SetParent chwnd, Me.Hwnd End Sub الشروط يجب أن يكون الأبناء (النماذج والتقارير) في وضعية الإنبثاق المثال mdi_with_access.accdb

جزاك الله خير اخي الحبيب ... واياك ... جرب المرفق التالي هناك اضافة وهي اخفاء بقية الحقول في حال اختيارك لمستودع واحد أو اكثر .... بدلا من الفراغ في الجدول ... DATA555 - kanory.mdb

السلام عليكم ارجو مراستي من البريد المسجل فى الحساب المراد دمجه مع هذا الحساب على admin@officena.net و سيتم دمج الحسابين باذن الله

السلام عليكم.. في بلدي العراق لدينا أقل عملة نقدية وهي 250 دينار عراقي احفظو هذا الرقم جيداً لأننا سنعود اليه اردت ان اقوم بعمل برنامج للأقساط فكان مبلغ القسط الكامل هو ( 10,000 عشرة الآف دينار عراقي ) وكانت مدة الأقساط هي ( 3 شهور ) اذن نقوم بتقسيم المبلغ على المدة لكي يظهر لنا قيمة القسط لكل شهر وعند التقسيم ظهرت الكارثة مبلغ غريب!!!!!!!!!! فلا هو 250 دينار ولا هو 500 دينار لا يمكن دفعة.. ماهو الحل؟؟ قمت بكتابة كود لحل هذه المشكلة، للأمانة الكود ليس من كتابتي 100% بل بنسبة 60% Public Function RoundTo(d, roundRate, RoundType) As Double d = Math.Round(d, 7) If d <> 0 And roundRate <> 0 Then d = Ceiling(d) Dim num As Double num = d Mod roundRate If num > 0 Then If RoundType = 1 Then d = d + roundRate - num ElseIf RoundType = 2 Then d = d - num ElseIf RoundType = 3 Then If num >= roundRate / 2 Then d = d + roundRate - num Else d = d - num End If End If End If End If RoundTo = d End Function Public Function Ceiling(ByVal x As Double, Optional ByVal Factor As Double = 1) As Double ' X is the value you want to round ' Factor is the optional multiple to which you want to round, defaulting to 1 Ceiling = (Int(x / Factor) - (x / Factor - Int(x / Factor) > 0)) * Factor End Function الاستخدام: Private Sub cmd_calc_Click() Dim TotalPrice, Result As Long Dim Duration, i As Integer TotalPrice = 10000 Duration = 3 i = 1 Result = TotalPrice / Duration Do While i <= Duration MsgBox RoundTo(Result, 250, 2) i = i + 1 Loop End Sub ستظهر لنا النتيجة على شكل لووب مقسمة لإجزاء سيتم جبر النتيجة من 3,333333 الى 250 فتكون: 3,250 الف دينار لـ 3 دفعات ويمكنكم إستخدام الكود حسب العملة لديكم، بإستبدال 250 لإصغر قيمة عملة لديكم. تحياتي لكم

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

رائع 🙂 ما شاء الله عليك اخوي أبو إبراهيم ، دائما ، ما معتمد على قدرات الاكسس فقط ، وانما تستفيد من بقية قدرات الاوندوز 🙂 جعفر

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

هذه الخاصية غير متوفر في الأكسس إلا إن وضعت كود خاص لكل تقرير

السلام عليكم ورحمة الله وبركاته أخي الكريم أبا جودي جزاكم الله خيراً وأحسن إليكم آمين. عمل رائع تستحق عليه الثناء أرجو الله تعالى أن ينفع به المسلمين آمين وأن يجعله بميزان حسناتكم. لكن هل يمكن أن يكون تعديل المواقيت تلقائياً حسب الموقع الذي يتواجد فيه مستخدم التطبيق مع الأخذ بعين الاعتبار الدول التي تأخذ بالتوقيت الصيفي من غيرها ؟! ... تقبل تحياتي العطرة .... والسلام عليكم ورحمة الله وبركاته.

أحسنت استاذ محمد عمل ممتاز جعله الله فى ميزان حسناتك

بارك الله فيك

ماشاء الله لا قوة الا بالله فناااان من طراز عريق

تعديل المسميات يكون داخل الاستعلام

دائما مبدع دائما مروض اكسس

أنت كلك عجيب بأفكارك والعجب هو الابداع أي أنك مبدع بأفكارك

اي نعم تتاثر بس ممكن اعمل لك ملف اذا حددت اكبر عدد من الادخالات تتوقعها شوف المرفق عدلت المدى الى 3000 عملية Export.xls

تفضل تابع الصورة ادناه

طالما انك تريد الإتصال لماذا تحاول فعل ذلك بالأكسس؟ استخدم Android Studio

لإجراء اتصال هاتفي انشئ موديل جديد و الصق به الكود التالي Option Explicit Declare PtrSafe Function tapiRequestMakeCall Lib "tapi32.dll" (ByVal stNumber As String, ByVal stDummy1 As String, ByVal stDummy2 As String, ByVal stDummy3 As String) As Long Public Const ID_CANCEL = 2 Public Const MB_OKCANCEL = 1 Public Const MB_ICONSTOP = 16, MB_ICONINFORMATION = 64 Function DialNumber(PhoneNumber) Dim Msg As String Dim MsgBoxType As Integer Dim MsgBoxTitle As String Dim RetVal As Long Msg = "Please pickup the phone and click OK to dial " _ & PhoneNumber MsgBoxType = MB_ICONINFORMATION + MB_OKCANCEL MsgBoxTitle = "Dial Number" If MsgBox(Msg, MsgBoxType, MsgBoxTitle) = ID_CANCEL Then Exit Function End If RetVal = tapiRequestMakeCall(PhoneNumber, "", "", "") If RetVal < 0 Then Msg = "Unable to dial number " & PhoneNumber GoTo Err_DialNumber End If Exit Function Err_DialNumber: Msg = Msg & vbCr & vbCr & _ "Make sure no other devices are using the Com port" MsgBoxType = MB_ICONSTOP MsgBoxTitle = "Dial Number Error" MsgBox Msg, MsgBoxType, MsgBoxTitle End Function و في ازرار الاتصال ضع التالي DialNumber ([رقم الهاتف]) و للأمانة الكود منقول و لم اجربه لعدم توفر هاتف ثابت لدي

تفضل New 5.xlsm

السلام عليكم عندي قاعدة بيانات على جهاز آخر .... ومنذ سنتين تقريباً وأنا أعمل عليها زي السكر ... وفجأة ....! لم أعد قادراً على فتح القاعدة ؟!!! عند تشغيل القاعدة لا يظهر لي شي وتبقى شريط الأكسيس فقط ... المشكلة هنا في :1 - أن القاعدة تم ألغاء الشفت بها 2- القاعدة تم وضع حماية عليها .. بحيث لو نسخت ووضعت على جهاز آخر لن تعمل . 3- الجداول مخفيه بالكود . حاولت أن ألغي عمل الشفت بكود ألغاء الشفت من قاعدة أخرى ولم أفلح !؟؟ حاولت أن أستورد الجدوال .. ولم أفلح ؟!!! فما هي المشكلة ؟؟ وكيف أستورد الجدوال وهي مخفيه ؟؟؟؟؟؟ وما سبب هذه المشكلة .. والسلام

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

هل بالامكان تشفير النصوص داخل الجداول ؟

اخوتي .. السلام عليكم ورحمة اللة وبركاته . ماهي الطريقة في جعل مربع النص يحول الرقم المدخل من قبل المستخدم الى مضاعفات الرقم ( 8 ) مثلا:- لو أن المستخدم أدخل الرقم 15 في مربع النص , فأن يتم تقريب بزيادة الى 16 وأيضا لو تم إدخال الرقم 35 فيتم التقريب بزيادة الى 40 وهكذا .. وجزاكم الله خيرا

في موضوع حماية و تأمين قواعد البيانات مستوي متقدم http://www.officena.net/ib/index.php?showt...topic=177&st=15 لقد طبقت المطلوب ولكن لم تشتغل الدالة المستدعية لرقم البروسسور مع بروسسور AMD هل من أحد يدلني علي حل لهذه المشكلة جزاكم الله كل خير

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

ما هي الأخطاء التي تحدث وتتطلب منا إصلاح قاعدة البيانات فأحياناً يتوقف البرنامج عندنا ويظهر رسالة بعدم وجود الـ dataوعند فتح ملف الـ data الخاص بالبرنامج يطلب مني إصلاح قاعدة البيانات فنخرج جميع المستخدمين من البرنامج ونقوم بالإصلاح فيتم فتح البرنامج الرجاء المساعدة ولكم الشكر

السلام عليكم جميعا ورحمة الله وبركاته هل بإمكاني كتابة نص كبير في مربعات النص بحيث يكون اكبر من 255 او ادا في اي طريقة تحل لي المشكلة؟ وشكرا ولكم تحياتي ودعواتي الحارة

السلام عليكم كيفية عمل حقل لإخراج النسبه من حقل آخر مثال برنامج عقاري وادارة املاك هناك حقل (الايجار) وحقل (النسبه)وهي نسبة المكتب 5% من الايجار ارجو التكرم بالحل المناسب مع مثال بالتفصيل لان اخوكم مبتديء :$

السلام عليكم جميعا ورحمة الله وبركاته هل بإمكاني عمل استعلام بحيث استطيع اكتب في مربعات النصوص للبحث اكثر من واحد لتحديد البحث ؟ وشكرا ودعواتي لكم ولجميع المسلمين بالخير

أخوتي تحية طيبة سؤالي في التقارير وهو أني أقوم بتعديل هوامش التقارير جميعها الى 9 وأحفظ عملى ولكن بإغلاق البرنامج والعودة له مرة أخرى أجد أن هوامش التقارير تغيرت الى 24 علماً أن الافس 2000 فهل هناك كود لكي يقوم بحفظ الهوامش وعدم تغييرها تحياتي

جميع ما ذكرت من نقاط في البرنامج تمام الصوت ما اشتغل معي يمكن اختلاف النسخ