علي المصري

هل قام احد بتجربة اخر رد لي ارجو افادتي بالنتيجة

لم اقل ان البرنامج لا يمكن استخدامه إلا على اكسيس 2013 بالعكس يمكن استخدامه على أي إصدار بعد 2007 لانه موجود بها نفس الإمكانيات ( اكسيس 2010 - اكسيس 2013 - أكسيس 2016 ) اما بالنسبة لاكسيس 20117 انا جربت كتابة كود ولكنه لم يعمل إلا في حالة عرض النموذج في التنسيق singl form ولم يعمل على باقي التنسيقات للنموذج الكود مكتوب بحيث يتعامل مع حقل موجود في نموذج فرعي كما بالبرنامج موضوع النقاش Private Sub Form_Current() If [Forms]![room]![room_sub].Controls("status") = "شاغرة" Then [Forms]![room]![room_sub].Controls("status").BackColor = vbRed ElseIf [Forms]![room]![room_sub].Controls("status") = "ساكنة" Then [Forms]![room]![room_sub].Controls("status").BackColor = vbYellow ElseIf [Forms]![room]![room_sub].Controls("status") = "محجوزة" Then [Forms]![room]![room_sub].Controls("status").BackColor = vbGreen ElseIf [Forms]![room]![room_sub].Controls("status") = "في النظافة" Then [Forms]![room]![room_sub].Controls("status").BackColor = vbCyan ElseIf [Forms]![room]![room_sub].Controls("status") = "في الصيانة" Then [Forms]![room]![room_sub].Controls("status").BackColor = vbMagenta Else [Forms]![room]![room_sub].Controls("status").BackColor = vbWhite End If

بعد البحث والتجربة ارجو تجربة التالي : باستخدام Int Int(-100*[asasysabik]*0.5)/(-100) Database4.rar المصدر http://allenbrowne.com/round.html

للأسف جربت اكثر من رقم وما حدث كان مفاجئة شاهد الصورة ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

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

السلام عليكم ورحمة الله وبركاته شكرا جزيلا هذه أعمال ابتغي بها وجه الله عز وجل أما العبقرية فهي تنسب لأهلها في الموقع وليس لي لأنني ما زلت أتعلم جزء جز في الاكسيس ولم ادخل بعد في تعلم إضافة Add-ins فاترك هذا الموضوع لأساتذتي في الموقع على سبيل المثال : أبو خليل - جعفر - وغيرهما في الموقع وسوف اتابع معك لاتعلم هذا الجزء ان شاء الله

السلام عليكم ورحمة الله وبركاته أي اصدار من الاكسيس تستخدم؟ الإصدارات 2007 و 2010 و 2013 و 2016 تسمح بالتنسيق الشرطي لعدد كبير من التنسيقات لكني لا أتذكر عدده بالظبط تم تعديل الملف بالتنسيق الشرطي انا بستخدم اكسيس 2013 Hotel.rar

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

شكرا جزيلا على الكتاب القيم

استخدم الكود التالي في النموذج الرئيسي Dim dbsCurrent As Database Set dbsCurrent = CurrentDb Application.SetOption "Use Hijri Calendar", True Calendar = vbCalHijri dbsCurrent.Close وإذا اردت أن تجعل الكود يعمل على نموذج واحد اكتب الكود السابق في حدث الحالي للنموذج الموجود به ححقل التاريخ ثم في حدث عند الغلق اكتب الكود التالي Application.SetOption "Use Hijri Calendar", False Calendar = vbCalGreg

السلام عليكم ورحمة الله وبركاته بالنسبة للتقريب إلى رقمين عشريين إذا كان الرقم العشري الثالث هي 0 أو 1 أو 2 أو 3 أو 4 يتم حذف الرقم دن زيادة للرقم العشري الثاني أي شيئ مثال 43.541 تقرب إلى 43.54 43.543 تقرب إلى 43.54 43.544 تقرب إلى 43.54 أما إذا كان الرقم العشري الثالث 5 أو 6 أو 7 أو 8 أو 9 فيحذف هذا الرقم مع زيادة الرقم العشري الثاني 1 مثال 43.545 تقرب إلى 43.55 43.547 تقرب إلى 43.55 43.549 تقرب إلى 43.55 بالنسبة للدالة Round فهي تعمل جيدا اما بالنسبة لطلب الأستاذ haniameen فهمت التالي انه يريد التقريب إلى ثلاثة ارقام عشرية والناتج يقرب مرة أخرى إلى رقمين عشريين أي أن : 43.5467 تقرب إلى 43.547 ثم يقرب الناتج 43.55 43.5463 تقرب إلى 43.546 ثم يقرب الناتج 43.55 43.5443 تقرب إلى 43.544 ثم يقرب الناتج 43.54 هذا هو طلب العضو الفاضل أما الدالة Round فهي تعمل بكفاءة 100%

للرفع

السلام عليكم ورحمة الله وبركاته جرب المرفق التالي Test.rar

للرفع

جديدددددددددددددددددد.rar تم التعديل على نموذج2 وتم عمل نموذج جديد staticdate في وضع السجلات المتتالية يؤدي نفس الغرض في نموذج2

في القوائم المنسدلة ال ComboBox جربت خواص كتيرة منها محاذاة النص - اتجاه النص - الخط فهي تعمل جيدا ولكن خاصية اتجاه خط التمرير الرأسي Scrollbar لا تعمل مثال كتبت الكود التالي لكي يكون ال Scrollbar ناحية اليمين إذا كانت لغة البرنامج اللغة النجليزية ويكون ناحية اليسار إذا كانت اللغ هي العربية If MyLanguage = 1 Then With MyName .RowSource = "SELECT * FROM QrMyNameDeta4Stu ORDER BY IDnum" .ColumnCount = 7 .BoundColumn = 1 .ColumnWidths = "3968.5;0;0;0;0;0;0" .TextAlign = 3 .ScrollBarAlign = 2 'left End With Else With MyName .RowSource = "SELECT * FROM QrMyNameDeta4Stu ORDER BY IDnum" .ColumnCount = 7 .BoundColumn = 1 .ColumnWidths = "0;0;0;0;0;3968.5;0" .TextAlign = 1 .ScrollBarAlign = 1 'right End With End If لكن بدون جدول لا تعمل هذه الخاصية مثل باقي الخواص فهل من تعديل على هذا الكود

تشرفت بمعرفتك شكرا جزيلا

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

حدث خطأ عند نسخ الكود Private Sub sav_Click() ' On Error Resume Next DoCmd.Beep Dim x As String Dim y As String x = Nz(DLookup("[limit]", "Q_balance", "[customerno]=" & Me!customerno)) y = Nz(DLookup("[sumoftot]", "Q_balance", "[customerno]=" & Me!customerno)) If x = "" Or y = "" Then: GoTo 1 If (y + Me.totalinvoice) > x Then MsgBox " هذا العميل قد تعدي الحد الاقصي المسموح له ", vbCritical, " غير مسموح " Me.Undo Exit Sub Else 1 DoCmd.GoToRecord , , acNewRec If Me.orderno > 0 Then DoCmd.Close Exit Sub Else Refresh Call MyOutoNum F_ordersubform.SetFocus DoCmd.GoToControl "itemcode" Refresh End If End If Exit Sub End Sub

تفضل اخي الكريم Hotel.rar

ما هي اللغات المثبته على جهازك

السلام عليكم ورحمة الله وبركاته ابحث على الانترنت عن تعريب اوفيس 2010 او حمل 2010 عربي ودا احد الروابط http://myegy.to/Programs/258808/Microsoft_Office_Pro_Plus_2010_Sp2

السلام عليكم ورحمة الله وبركاته الأخ الفاضل ebrahim1400 على حد علمي لا يمكن استخدام الاكواد في تغيير اللغة إلا اذا كانت اللغات المراد التحويل بينها مثبته على الجهاز ثم استخدام الكود التالي Private Declare Function ActivateKeyboardLayout Lib _ "user32.dll" (ByVal myLanguage As Long, Flag As Boolean) As Long Private Const Ar = 14337 'Arabic United Arab Emirates keyboard language layout Private Const eng = 1033 'English(united states)keyboard language layout Private Sub text_take_Exit(Cancel As Integer) Call ActivateKeyboardLayout(eng, 0) End Sub ' Private Sub text_take_GotFocus() If Me.text_log.Value = "Arabic" Then Call ActivateKeyboardLayout(Ar, 0) ElseIf Me.text_log.Value = "English" Then Call ActivateKeyboardLayout(eng, 0) End If End Sub اما بالنسبة للكود الخاص باللغة ( الرقم المقابل لكل لغة ) فسوف تجدها في الملف المرفق كما ترى ان اللغتين عندي على الجهاز اللغة العربية ( الامارات ) ورقمها 14337 اللغة الإنجليزية ( الولايات المتحدة ) ورقمها 1033 إذا اردت ادخال كل اللغات التي تريدها على حد علمي لابد من تثبيتها على الجهاز Primery Language Id.rar Database10.rar

تفضل جرب التالي KFC.rar

اعتقد ان الرقم 4 لابد ان يتغير إلى 6 وبالفعل تم ذلك ولكن مازال الخطأ في السطر Kill (NewTempFile)