jjafferr

وعليكم السلام بالنسبة الى اسماء اقسام النماذج او التقارير ، فيمكنك اللجوء الى اسماء البرنامج بدل الاسماء بالعربي (او حتى بدل الاسماء بالانجليزي): انظر المثال التالي: استعمل Me.InsideHeight = Me.Section(acDetail).Height * 10 بدل Me.InsideHeight = Me.Detail.Height * 10 . فمسمى Me.Section(acDetail)K هو مسمى البرنامج لجميع الاصدارات جعفر

دي حركة جامدة اوي يا سيد جمال جعفر

السلام عليكم أستاذ عبدالعزيز في مثل امريكي يقول: اذا الشئ ما مكسور ، لا تصلحه ليش غيرت اسم الحقل الى esm-altalep ؟ هذه كانت مشكلتك ، فارجعتها الى a3 ، والسلام ، طبعا شكرا انك اعطيتني رابط البرنامج الاصل ، اللي به عملت المقارنة واكتشفت الخطأ . والنتيجة: جعفر 288.المعلم اليمني1.mdb.zip

وعليكم السلام أخي كريمو في الحدث "قبل التحديث" للحقل تاريخ نهاية الخصم ضع هذه المعادلة: if StartDate >= EndDate then msgbox "Start Bigger then End" endif جعفر

هلا والله ، يا حياهم

السلام عليكم استاذ عبدالعزيز اذا سمحت لي ، فإن شاء الله انظر في موضوعك بعد كم ساعة جعفر

السلام عليكم شباب تعليقي هنا فقط للرسالة التي في الصورة: تعارض الكتابة ، والرابط التالي يشرح السبب ، وطريقة تفاديه: http://www.officena.net/ib/topic/66025-لايمكنني-خزن-قيد-بالكامل-في-برنامج-فاتورة-مبيعات/?do=findComment&comment=429754 جعفر

وعليكم السلام انا غيرت شوي على المثال السابق: . ولكن ، اذا عملت التغيير التالي على التقرير وفي المجموعات والفرز: . فالنتيجة: جعفر 286.برنامج حساب الاجازات 3.accdb.zip

السلام عليكم أخي عمر نعم ، هذه الخاصية على البال . ولكن ، احد اسباب تأخير التحديثات هو ، هل بالفعل هناك من يستعمل البرنامج بانتظام ، ولماذا استعمال هذه الطريقة لعمل التقرير / تقارير بدل الطريقة التقليدية في عمل التقارير؟ جعفر

السلام عليكم مصدر النموذج عندك عبارة عن استعلام ، وفيه انت رابط الجداول الثلاثة مع بعض ، يعني كل جدول مرتبط بقيمة حقل جدول آخر ، وعندك الجدول raetb_tamb فاضي ، لهذا السبب النموذج عندك فاضي: . عبئ الجداول بمجموعة بيانات ، ثم انظر للنتائج انا ما شفت العلاقات ونوعها. جعفر

وعليكم السلام سيدي الفاضل ، انا عملت شئ غير طلبك ، فعسى ان تقبله الاستعلام ، عملت استعلام اجمالي ، وطلبت منه ان يعطيني اول تاريخ للإجازة F ، وآخر تاريخ L : . ونتيجته: . فعملت كود لقسم تفصيل التقرير لجمع التاريخين ، حسب الشهر: Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 'make the date format FF = Format(Me.F, "dd-mm-yy") LL = Format(Me.L, "dd-mm-yy") 'if both days are the same, write one of them If Me.F = Me.L Then Me.iDates = FF Else 'if the dates are different, then 'if months are the same If Month(Me.F) = Month(Me.L) Then Me.iDates = Day(Me.F) & " - " & LL 'write the day of F, and full date of L Else Me.iDates = FF & " - " & LL 'otherwise write both dates End If End If End Sub . والنتيجة ، ان تاريخ الاجازة من 1 الى 2/2 ، والسبب اني وسعت حقل التاريخ ، حيث يمكن الاجازة تصير في شهرين مختلفين ، فيسعها حجم الحقل : . جعفر 286.برنامج حساب الاجازات 3.accdb.zip

السلام عليكم الحقول: 1. الكمية2 ، وتأخذ قيمتها من المتبقي السابق ، وعند ادخال قيمة للمنصرف او الرجيع ، سترى ان قيمة الكمية2 تظهر تلقائيا ، 2. المستهلك2: وستحتسب تلقائيا من ، المنصرف السابق - الرجيع ، والا ، فانها ستكون صفر: جعفر 285.حساب الرجيع.mdb.zip

وعليكم السلام أخي عبدالله البرنامج الذي ارفقته انا في مشاركتي السابقة يقوم بنفس الفكرة ، وكذلك فكرة أخوي ابوخليل وابو عبدالله هذه الخطوة سهلة ، ولكن الصعوبة كانت في رسائل msgbox ، لأنها من الكود ، والكود يقوم على اساس ANSI وليس UTF8 مثل بقية كائنات الاكسس ، وهناك طريقتين لحل هذه المشكلة: 1. إما عمل نموذج بمسمى frm_MsgBox مثلا ، ونجعله يقوم بعمل Msgbox ، 2. وإما بإستعمال كود بديل والموجود في المرفق(وبصراحة تعبت الى ان حصلت عليه) جرب المرفق واخبرنا النتيجة جعفر

بالصورة ، ربطت الاسمين

حيا الله السيد ، منور

وعليكم السلام أخي الرسالة معناها ان اعدادات اللغة في جهازك لا تناسب العربية ، لذا استطيع ان افكر في حلين: 1. الرابط التالي ، فيه مرفق "المفروض ان" يعمل على جميع اعدادات الوندوز ، وفيه وحدة نمطية خاصة للرسائل: http://www.officena.net/ib/topic/67205-هل-من-حل-شافى-لمشكلة-اختلاف-اعدادات-اللغة-بالويندز-على-الأجهزة-المختلفة/?do=findComment&comment=437551 2. تغيير اعدادات لغة الكمبيوتر: http://www.officena.net/ib/topic/64955-مشكلة-عند-فتح-البرنامج-على-ويندوز-8/ جعفر

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

السلام عليكم في الواقع صار لي كم يوم اشتغل على هذا البرنامج ، والمفروض يشتغل وبدون رسائل خطأ ، فلوسمحت أخي عبدالله ، جربه على جميع الاصدارات وجميع اللغات ، واعطنا النتيجة جعفر MultiLanguage3.zip

السلام عليكم co2002co ان شاء الله مفهومي لشرحك صحيح ، لأنه كان جدا صعب عليّ واخذ وقت طويل !! تفضل: المرفق فيه نموذجين فقط Form1 و Form2 ، وتقوم الوحدة النمطية بإنتاج نسخ من Form2 كلما ضغطت على احد سجلات مربع القائمة: . هاي الوحدة النمطية المسؤلة عن انتاج نسخ من النموذج: Option Compare Database Option Explicit 'Author: Allen J Browne, July 2004 'Email: allen@allenbrowne.com Public clnClient As New Collection 'Instances of frmClient. Function OpenAClient() 'Purpose: Open an independent instance of form frmClient. Dim frm As Form 'Open a new instance, show it, and set a caption. Set frm = New Form_Form2 frm.Visible = True frm.Caption = frm.Hwnd & ", opened " & Now() 'Append it to our collection. clnClient.Add Item:=frm, Key:=CStr(frm.Hwnd) Set frm = Nothing End Function Function CloseAllClients() 'Purpose: Close all instances in the clnClient collection. 'Note: Leaves the copy opened directly from database window. Dim lngKt As Long Dim lngI As Long lngKt = clnClient.Count For lngI = 1 To lngKt clnClient.Remove 1 Next End Function . وهاي كود النموذج Form1: Private Sub TopicList_AfterUpdate() Call OpenAClient End Sub . وهاي كود النموذج Form2: Private Sub Form_Load() Me.Text1 = Forms.Form1.TopicList.Column(0) Me.Text2 = Forms.Form1.TopicList.Column(1) Me.Text3 = Forms.Form1.TopicList.Column(2) Me.Text4 = Forms.Form1.TopicList.Column(3) Me.Text5 = Forms.Form1.TopicList.Column(4) End Sub جعفر 284.db.mdb.zip

السلام عليكم أخي نبيل تفضل: . ولكن الكود لن يعمل اذا رقم اللغة لم يكن صحيحا في الكود وهذا هو الكود: Option Compare Database Private Declare Function ActivateKeyboardLayout Lib _ "user32.dll" (ByVal myLanguage As Long, Flag As Boolean) As Long Private Const Ar = 5121 'Arabic United Arab Emirates keyboard language layout, Oman 8193 Private Const Fr = 1036 'Français(united states)keyboard language layout Private Const En = 1033 'US Private Sub cmd_Change_Language_Click() 'go back to the same field we were in, but to the end of it Dim ctl As Access.Control Set ctl = Screen.PreviousControl 'the last control we were on ctl.SetFocus 'set the focus back to it ctl.SelStart = Len(ctl.Text) 'go to the end of the field, so that we can continue writing If Me.cmd_Change_Language.Caption = "Arabic" Then Me.cmd_Change_Language.Caption = "French" Call ActivateKeyboardLayout(Ar, 0) ElseIf Me.cmd_Change_Language.Caption = "French" Then Me.cmd_Change_Language.Caption = "Arabic" Call ActivateKeyboardLayout(Fr, 0) End If End Sub Private Sub Form_Load() 'start with Arabic Call ActivateKeyboardLayout(Ar, 0) End Sub وهذا للقائمة المنسدلة Private Sub textlog_AfterUpdate() If Me.textlog.Value = "Arabic" Then Call ActivateKeyboardLayout(Ar, 0) ElseIf Me.textlog.Value = "French" Then Call ActivateKeyboardLayout(Fr, 0) End If End Sub . جعفر 283.Database changer.accdb.zip