البحث في الموقع

السلام عليكم انا لديا سؤال وهو انه عندما نختار نوع الكفالة (فاذا كانت عقارية فاريد ان subform لايظهر لي الخاص بمعلومات الكفيل) اما اذا كان نوع الكغالة شخصي فاريد ان يظهر لي subform الخاص بمعلومات الكفيل فاريد مساعدتي .. 7-10 new.rar

ID1.accdb

السلام عليكم اريد ان انشي قاعده بيانات ولكني لا استطيع تحديد العلاقات بين الجداول فمثلا جدول الاستهلاك و التكلفه مع جدول مخزن الوقود ما نوع العلاقه وجدول تعقب المشتريات مع المخزن كيف اربطه وما نوع العلاقه وما العلاقه بين جدول مخزن الوقود و المخزن علما بانه يتم تخزين كميه من الوقود في المخزن احيانا"from barrel" مرفق جزء من القاعدة المراد انشائها وسؤال اخر كيف اعمل معادلات حسابيه في جدول اذا ممكن فمثلا في جدول الاستهلاك والتكلفه اريد ان ادخل في حقل Utilisation معادله حساب =days in use *22 /100% وغيرها من المعادلات monitoring.rar

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

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

السلام عليكم ورحمة الله وبركاته.. في الوضع الطبيعي الاكسس يعطينا فقط مجموعة الوان عند تنسيقها في الكود Constant Value Description vbBlack 0x0 Black vbRed 0xFF Red vbGreen 0xFF00 Green vbYellow 0xFFFF Yellow vbBlue 0xFF0000 Blue vbMagenta 0xFF00FF Magenta vbCyan 0xFFFF00 Cyan vbWhite 0xFFFFFF White ولكن كثيراً ما نريد ان نقوم بإختيار الواناً غير التي موجودة في الاعلى مثلا اللون الفسفسوري غير موجود في القائمة. قمنا باخذ قيمة اللون الفسفوري من احد برامج تعديل الصور وليكن مثلا الفوتوشوب لكن احيانا تواجهنا مشاكل ورسائل مزعجة من الاكسس عند وضع الالوان عن طريق VBA مثلا انا دائما ماكانت تصادفني رسالة مزعجة Expected Array عندما اقوم بوضع اللون بالصورة الاتية: txt_name.BackColor = RGB(20,30,60) تظهرلي هذه الرسالة: فكرت في تحويل اللون من HEX الى OLE ، وقد تم تغيير اللون بنجاح وبدون اي رسائل خطأ Public Function HEX2OLE(ByVal hexValue As String) As Long Dim R, G, B As Long If Left(hexValue, 1) = "#" Then hexValue = Replace(hexValue, "#", "") R = CByte("&H" & Left(hexValue, 2)) G = CByte("&H" & Mid(hexValue, 3, 2)) B = CByte("&H" & Mid(hexValue, 5, 2)) HEX2OLE = CLng(R + (G * 256) + (B * 65536)) End Function بالتوفيق للجميع. HEX_2_OLE.accdb

السلام عليكم ورحمة الله وبركاته.. آولآ نقُوم بتَسجيل عضُوية بمُوقع [ PasteBin ] رآبط آلتَسجيل [ هُنآ ] آتمآم آلتَسجيل ، ظهُور رسآلة تُخبرك بآلتُوجه نحُو بَريدك لتَفعيل آلعضُوية بَعد عَملية آلتَفعيل ظهُور رسآلة تُخبرك بنجآح آلتَفعيل آلآن نقُوم بتَسجيل آلدخُول قم باعطاء هذا الملف الى العميل لكي يظهر لك الرقم الخاص به ثم يقوم العميل بإعطائك هذا الرقم، بعدها ستقوم انت باضافته الى المفكرة التي انشأتها في موقع pastebin ثُم نقُوم بآلضَغط عَلى كَلك يَمين عَلى كَلمة [ RAW ] ونَختآر ارجع الى برنامجك, وقم بإلصاق الرابط في المكان المخصص له Option Compare Database Private Sub Form_Current() Dim HDD, PID, MB, MAC As String PID = ProcessorId() HDD = VolumeSerialNumber() MAC = MACAddress() MB = MotherBoardID() Dim PHMB As String PHMB = Strings.UCase(MD5Hex(PID & HDD & MB & MAC)) On Error Resume Next Dim objHttp As Object Set objHttp = CreateObject("MSXML2.ServerXMLHTTP") Call objHttp.Open("GET", "ضع الرابط هنا", False) Call objHttp.Send("") For Each c In Split(objHttp.ResponseText, "|") If PHMB = c Then GoTo authed End If Next MsgBox "1 - قد تكون النسخة الحالية غير مسجلة" & ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10) & "2 - تأكد من اتصالك بالانترنت" & ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10) & "3 - اذا لم تكن واحدة من تلك المشاكل قم بالاتصال بالمبرمج" & ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10) & "www.facebook.com/Nisr.Aln3jaf", vbCritical, "ERROR" DoCmd.Close DoCmd.CloseDatabase DoCmd.Quit Exit Sub authed: MsgBox "تم تفعيل النسخة بنجاح" & ChrW(13) & ChrW(10) & ChrW(13) & ChrW(10) & "شكرا لإستخدامك هذه النسخة", vbInformation, "عملية ناجحة" End Sub Public Function MD5Hex(textString As String) As String Dim enc Dim textBytes() As Byte Dim bytes Dim outstr As String Set enc = CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider") textBytes = textString bytes = enc.ComputeHash_2((textBytes)) For pos = 1 To LenB(bytes) outstr = outstr & LCase(Right("0" & Hex(AscB(MidB(bytes, pos, 1))), 2)) Next MD5Hex = outstr Set enc = Nothing End Function Public Function MACAddress() On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration", , 48) For Each objItem In colItems MACAddress = objItem.MACAddress Next End Function Public Function ProcessorId() On Error Resume Next Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor") For Each objItem In colItems ProcessorId = objItem.ProcessorId Next End Function Public Function VolumeSerialNumber() As String On Error Resume Next Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set oItems = oWMI.ExecQuery("Select * from Win32_DiskDrive") For Each oItem In oItems VolumeSerialNumber = oItem.SerialNumber Next End Function Public Function MotherBoardID() As String On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_BaseBoard", , 48) For Each objItem In colItems MotherBoardID = objItem.SerialNumber Next End Function في كل قواعد البيانات التي تريد حمايتها ضع نفس الرابط، لا تقم بإنشاء مفكرة جديدة في موقع pastebin آلآن آلسؤآل كَيف سآقُوم بآضآفة آكثر مَن رَقم عَميل بنفس المفكرة ؟ آلجوُآب بَين كُل عَميل وآخر آفصل بَينهم بآلـ [ | ] مثآل بَسيط عَلى آلعَملية .. تم بحمد الله ، SEMO.Pa3x GET_INFO.accdb Protection.accdb

السادة اعضاء اوفيسنا المحترمين ... ارجو من حضرتكم لو تكرمتم بمساعدتي في برنامج على النحو التالي : البرنامج عبارة عن ادخال بيانات لمتدربين يكون البرنامج له قاعدة بيانات على السيرفر و مستخدمين ( صلاحية المستخدمين للقراءة فقط ) امكانية ارفاق الملفات من خلال السكانر في حال انهاء المتدرب المدة التدريبة امكانية ترحيله الة ملف اخر ( المتدربين الخريجين ) امكانية تصدير الملف الى اكسل استخراج تقارير من البرنامج خاصية بحث مرنة مع فائق الاحترام و التقدير لاعضاء المنتدى

Database1.accdbعندي مشكلة في تكرار البيانات في تقارير واستعلامات اكسس من جدولين شاكرا تعاونكم

سلام عليكم اخواني ... في هذا الفيديو نشرح كيف تحمي اكسس في مشروعاتك بدون كود فيجوال بيسك طريق سهل جدا https://www.youtube.com/watch?v=1AvCOO_ee4M

السلام عليكم, في السابق كنت استخدم خطوط معينة في برامجي وعند اعطاء البرنامج للعميل لاتظهر الخطوط التي قمت باستخدامها بل يظهر بمكانها الخط ( Arial ) وهذه مُشكلة. كت في وقتها الجأ الى ان اضع الخط بجانب قاعدة البيانات وفي داخل قاعدة البيانات اقوم بعمل تحقق لمجلد Fonts والبحث عن الخط في بداية تشغيل القاعدة, فإن لم يجده يعي رسالة للعميل بان الط مفقود وعليه ان يقوم بتثبيته من جانب البرنامج. بحثت طويلاً في الانترنت عن تثبيت خط من الاكسس فقط بدون مساعدة عامل خارجي ولكن لم اصل لنتيجة. اليوم بحمد الله قمت بحل المشكلة بإستخدام ( Visual .NET ) قمت بكتابة اداة بسيطة وظيفتها تثبيت الخط. يتم تمرير براميتر لها وهي بدورها ستقوم بتثبيته الدوال المستخدمة: AddFontResource CreateScalableFontResource ShellExecuteA للمزيد من المعلومات ، اضغط على اسم الدالة ارفقت لكم المصادر من MSDN شرح بسيط لمن لم يعرف ماذا اقصد بتثبيت الخط واستخدام الخط وانه لن يظهر في حال كان العميل لا يملكه. قمت بارفاق قاعدة بيانات لكم كـ مثال للشرح مع الخط المستخدم مع الاداة. شرح الاستعمال: يجب ان تكون الاداة ( SEMO_RegisterFont.exe ) هي والخط الذي سوف تستخدمه بجانب قاعدة البيانات. افتح برنامجك وضع فيه هذا الاجراء. Sub RegisterFont(nFont) Dim strExe As String Dim strArg As String strExe = CurrentProject.Path & "\" & "SEMO_RegisterFont.exe" strArg = "/SEMO/" & nFont ShellExecute 0, "runas", strExe, strArg, vbNullString, SW_SHOWNORMAL End Sub في الاستدعاء اي في الحدث Form_Current RegisterFont "DroidSansArabic.ttf" حيث ان الـ DroidSansArabic.ttf هو اسم الخط الذي قمنا بوضعه بجانب قاعدة البيانات ملاحظة مهمة جدا: في حال كان اسم الخط يتكون من اكثر من كلمة مثل ( Droid Sans Arabic.ttf ) قم بحذف المسافات بين كلمة واخرى بحيث يصبح ( DroidSansArabic.tts ) وستعمل قاعدة البيانات التي قمت بتصميمها بشكل رائع وبالخطوط التي قمت انت بأختيارها بدون الخوف من مشكلة عدم توفر الخطوط في جهاز العميل. الشرح حصري للمنتدى وغير موجود في الانترنت. لا تشكرني الا اذا وجدت انني استحق ذلك. تم بحمد الله حسنين RegisterFont_SEMO_Pa3x.rar

السلام عليكم ورحمة الله وبركاتة انا جديد في الموقع واتشرف بكم لدي مشروع VBA واريد ارفعه على سيرفر , بحيث ادخل علية من اي مكان ....ممكن الخطوات او رابط شرح او اي شئ يساعد في اتمام الفكرة مع تحياتي

السلام عليكم اخواني الاعزاء لدي مشكلة في قاعدة البيانات الخاصة بي لدي الجدول الذي اسمه المستفيد فيه حقول ( معرف المستفيد ، اسم المستفيد ) ولدي الجدول الذي اسمه الرواتب فيه حقول ( Code ، اسم المستفيد ) الجدول الذي اسمه المستفيد والجدول الذي اسمه الرواتب فيه حقلان متشابهان وهو حقل اسم المستفيد يعني اسماء المستفيدين في جدول (المستفيد) هي نفسها في جدول (الرواتب) اولا: جدول الرواتب ثانيا: جدول المستفيد المشكلة التي لدي: الحقل الذي اسمه معرف المستفيد في جدول المستفيد غير متطابق مع حقل Code في جدول الرواتب فقط الحقل المتطابق بين الجدولين هو اسم المستفيد اريد طريقة احدث جميع بيانات الحقل الذي اسمه Code في جدول الرواتب بحيث يصير نفس الحقل الذي اسمه معرف المستفيد في الجدول المستفيد اتمنى فهمتو قصدي واسف جدا ما اقدر ارفق القاعدة لان فيها معلومات جدا شخصية اتمنى مساعدتكم

السلام عليكم ورحمة الله وبركاته، الاساتذة الكرام، احتاج مساعدتكم في تحليل نظام لبرنامج مخزني بسيط المطلوب منكم فقط تقولون لي ماهي الجداول المطلوبة والعلاقات *********************************** ارفقت لكم قاعدة البيانات: المطلوب فقط تشوفون هل شغلي صح ام خطأ ؟ وكيف اسوي استعلام يحسبلي تسديد الديوان اسم العميل | الدين الاجمالي | المُسدد | المتبقي *********************************** اقسام البرنامج: جدول العملاء: ويتضمن قيد العميل اسم العميل جدول فاتورة بيع: وتتضمن رقم الفاتورة التاريخ اسم العميل المبلغ الاجمالي جدول تفاصيل الفاتورة: ويتضمن رقم الفاتورة اسم الصنف الكمية السعر السعر الاجمالي ( الكمية * السعر) المبلغ الواصل المبلغ المتبقي التاريخ الملاحظات جدول تسديد الحسابات: ويتضمن اسم الزبون اجمالي مبالغ الدين المبلغ المُسدد المبلغ المتبقي هذول الجداول الي عندي الان الي احتاجه كيف انشأ علاقة بين الجداول؟ يعني الان لما اجي افتح فاتورة البيع اكتب المعلومات كالاتي: رقم الفاتورة: 1 التاريخ: 16/3/2019 اسم العميل: احمد الكرواتي السعر الاجمالي: 500 المبلغ الواصل: 100 المبلغ المتبقي: 400 تفاصيل الفاتورة رقم الفاتورة: 1 اسم الصنف: جهاز تلفاز الكمية: 5 السعر: 10 السعر الاجمالي: 500 التاريخ: 16/3/2019 الملاحظات: لا يوجد لحد الان تمام قمت بحفظ الفاتورة وتفاصيل الفاتورة. الان اريد اسدد حسابات لعميل معين باقي عليه ديون بحيث يقوم البرنامج بجمع كافة الديون ويظهرها لي ثم انا اقوم بكتابة مبلغ التسديد ويقوم بخصمه ويظهرلي المتبقي ارجو انكم فهمتم قصدي اريد كيفية اقوم بإنشاء العلاقات بين الجداول فواتير.accdb

عندي مشكلة في الاكسس عند التشغيل البرنامج جاهز وشغال على ٢٠٠٧ و٢٠١٩ نفس المشكلة تمام عندي ع الجهاز وجربته على جهاز اخر ما رضا يشتغل يطلع هاذي المشكلة ؟ الحل!؟

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

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

السلام عليكم.. عندي هذا الفورم يعرضلي مجموعة من السجلات، قمت باستخدام الدالة Count لحساب عدد السجلات لكن المشكلة التي ظهرت انو يقوم بحساب السجلات المتكررة ايضاً وعند الفرز ايضا يحسب المتكرر اريد يقوم بحساب السجلات بدون التكرار اتمنى مساعدتكم رابط تحميل المشروع بالمرفقات i need count without duplicate.rar

السلام عليكم... عندي الجدول الاتي: جدول Customers فيه اسماء العملاء جدول Helps فيه اسماء المواد بين هذول الجدولين هنالك علاقة رأس بأطراف (مثلا برنامج الفاتورة) الان اريد أنشأ استعلام اقولة اعطيني اسماء العملاء الذين لا توجد لديهم مادة بعنوان"تلفاز" هو راح يقوم بالبحث ويعطيني قائمة بإسماء العملاء الذين ليس لديهم هكذا مادة على سبيل المثال يعطيني اسم العميل "احمد" لان في ضمن قائمة مواده لا توجد مادة اسمها "تلفاز" ارجو انكم فهمتم قصدي، وشكرا لكم تحميل القاعدة من المرفقات GetCustomersNotContianX.rar

السلام عليكم ورحمة الله وبركاته اساتذتنا كرام انا طالب جديد، وبدا ادرس في اكسس لكن مزلت في مرحلة تعلم اساسيات ، واجهة صعوبة في انشاء نموذج لادراج صور باستعمال ازرار ، ادخلت الكود لكن الزر لا يعمل، فهلا ارشدتموني اين الخطا.. وهذا هو المثال... وفي الاخير بارك الله فيكم على مجهوداتكم وجزاكم الله كل خير. Base de données2.accdb

السلام عليكم ورحمة الله عندي مشكلة في ملف اكسس كان يعمل بشكل جيد وبدون مشاكل لكن عندما احضرت حاسب جديد لم يعد يفتح النموذج الرئيسي -عند فتح قاعدة البيانات- الذي منه اتعامل مع كامل البرنامج مع العلم اني استخدم نفس الاعدادات من حيث المعمارية 64 بت , و نفس اعدادات المنطقة و التاريخ , و الحاسب الجديد نوع Lenovo و لاحظت وجود مشكلة في حقل التاريخ اثناء تعين القيمة الافتراضية "()Date" رسالة خطأ {حدث خطأ اثناء تحويل هذه الدالة برمجيا , يوجد خطأ في بناء جملة الوحدة النمطية لـ Visual Basic , تحقق من التعليمات البرمجية ثم أعد التحويل البرمجي للوحدة النمطية } و بعد مسح كافة الاحداث مثل (ماكرو , و وحدات نمطية ) عاد البرنامج للعمل (النموذج يفتح عند فتح قاعدة البيانات) , لكن بدون فائد (بسبب مسح الاوامر مسبقاً ) اي مساعدة اذا سمحتم جزاكم الله خير

السلام عليكم ورحمة الله وبركاته كنت اعمل على برنامج يقوم بتخزين بصمة الاصبع في اكسس لكن لم استطيع العثور على الاداة الخاصة بجزء من هذا البرنامج وهي grfingerx.dll مع العلم انه يوجد مواقع كانت موجودة فيها لكن للأسف الملف لم يعد متاح اذا ممكن اي حدى يفيدنا جزاكم الله خير

السلام عليكم ورحمة الله وبركاته.. شوفو المثال الاتي.. التقرير كامل، الذي اريده فقط كل حرف يكون بصفحة مستقلة مثلا.. قام التقرير بعرض حرف الـ أ في صفحة عندما تنتهي الاسماء التي تبدأ بحرف الـ أ وياتي بعدها حرف ب يكون بصفحة ثانية ارجو انكم فهمتم قصدي تحميل القاعدة من المرفقات: DB.accdb

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

السلام عليكم ورحمة الله وبركاته. قمت بعمل جدولين الاول: جدول الاباء ( Fatheres ) والثاني جدول الابناء ( Sons ) قمت بعمل علاقة بينهما بالشكل الاتي ثم قمت بأدخال بعض البيانات في جدول الاباء والابناء لاحظو، قمت بأدخال ابناء لـ Ahmed Ziad و Ali Nasser اما العضو Mohammed Talib فلم اقم بوضع ابناء له بعدها قمت بأنشاء استعلام كما في الشكل الاتي نتيجة الاستعلام مخيبة للامال، قام بأحضار فقط اسماء الاباء الذين لهم ابناء اما العضو Mohammed Talib ليس لديه ابناء فلم يقم بأحضار اسمه في الاستعلام الان السؤال: كيف اجعل الاستعلام يقوم بأحضار جميع اسماء الاباء الذين لديهم ابناء والذين ليس لديهم يمكنكم تحميل قاعدة البيانات من المرفقات. FahtersAndSons.rar