Eng.Qassim

وعليكم السلام 1- عرف عن موديول هكذا .. Dim tempValue As TempVars 2- في حدث عند الضغط على الزر الموجود في النموذج الاول ضع السطر التالي .. TempVars!tempValue = Me.txtValue.Value txtValue هو اسم مربع النص في النموذج الاول 3- في حدث عند الفتح للنموذج الثاني ضع السطر .. Me.txtValue1 = TempVars!tempValue txtValue1 هو اسم مربع النص في النموذج الثاني

ان شاء الله تجد المساعدة من احد الاخوة ..بالتوفيق

السلام عليكم .. اعلم ان الطريقة غير احترافية ..لانني ربما لا اعرف عناصر برنامجك وماهو المطلوب لكنني مشيت مع الفكرة على اصل سؤالك لاصل الى نتيجة او لاحد الاخوة فكرة أفضل جعلت الجدول state هو جدول الحالة والثابت فيها هو نوع الاعمال اما بقية الحقول فقد افترضتها من عندي ..وهذا الجدول يمثله في الرئيسي النموذج الفرعي على اليمين ..هذا النموذج ندخل به مثلا نسبة الانجاز او اكتمال العمل فيتم الحاق او تحديث البيانات الى الجدول stateT الذي يمثله النموذج على اليسار .. طبعا الجدول state يمثل كل العملاء ..ولهذا احتجت لتفريغه عند الالحاق او التحديث ..بينما النموذج الثاني يبين لك اخر ماتم تحديثه .. حاول ان تجرب عليه فقد يكون هناك خطأ في الكود لم انتبه اليه ... اذا كانت التجربة ماشية ..اما ان تشتغل عليها او ترفق الملف تحياتي Qt.rar

لا اعلم ان كنت قد فهمت سؤالك 100% لكن حسب مافهمته انك حينما تختار اسم العميل ..تظهر لديك نموذج بأسم المراحل ...او هي ضاهرة في كل الاحوال تحتاج في هذه الحالة ان لاتربط كود العميل في النموذج الرئيسي بكود العميل في النموذج الفرعي ..حتى يظهر لك النموذج الفرعي بمصدر بياناته وتدخل ماتشاء لكنك ستحتاج الى استعلام الحاق الى جدول المراحل بمعيار رقم العميل ... اذا كان الامر كذلك ..اخبرني لاعمل عليه .. لاني هل الحين قفلت وغلب علي النعاس

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

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

وعليكم السلام.. النسخة لاتفتح عندي لاني استخدم اوفيس 2013

وعليكم السلام... على الرغم من أن اللغتين تشتركان في بعض أوجه التشابه ، إلا أن بناء الجملة وهيكل الكود يختلفان. ستحتاج إلى إجراء تعديلات على الكود لجعله يعمل في كل تطبيق. الاثنان لهما بعض الوظائف المتداخلة. على سبيل المثال ، يمكن استخدام كليهما لإدارة البيانات وإجراء العمليات الحسابية وإنشاء التقارير. ومع ذلك ، فإن كل تطبيق له نقاط القوة الخاصة به وهو مصمم لتلبية الاحتياجات المختلفة. كمثال بسيط لتجميع حقلين في حقل واحد في اكسس Dim strConcat As String strConcat = Me.field1 & " " & Me.field2 بينما في اكسل Dim strConcat As String strConcat = Range("A1").Value & " " & Range("B1").Value

مرحبا بك استاذ محمد.. جمعت لك من هنا وهناك بما تريد ..لكن لم يظهر عندي نوع الرام وبصراحة ماطولت من (خلكي) في البحث ..ما اعرف بالمصري شنو معناها😄 Ram.rar

السلام عليكم...كان هناك خطأ مطبعي والظاهر اني صححته والملف مضغوط فلم يأخذ التصحيح اليك الملف بعد التعديل..عدلت ايضا التنسيق بين الليبل والتكست ... واعتذر كثيرا على التأخير tesea.rar

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

لا اعرف مالذي تقصده ...انا بشتغل على اصل الكود اللي حضرتك بعثته ..وهذا مايظهر لي :

هو انا فاكر ايه فطرت اليوم 😂 على كل حال الخطأ مني واعتذر كثيرا لاني لم اجرب الجدول ...ودائما مايختلط علي استخدام 1 بدلا من i استبدل الكود التالي بدل السابق Set txt = CreateReportControl(rep.Name, acTextBox, acDetail, , sss.Column(0, i), intselectedno * (ingwidth + 50), 5, ingwidth, 300) tesea.rar

انظر للمرفق وستعرف اين الاخطاء ..المفروض تستخدم f8 وتتبع الكود لتعلم اين الخطأ tesea.rar

موضوع في غاية الاهمية .. طيب انا اعمل على 64x ...كيف اجعله يتوافق مع 32 x

Macros in Microsoft Access are limited to a specific set of actions that can be performed, and may not support all of the functionality that is available in VBA. For example, macros cannot use variables or functions, and may not support certain types of control structures such as loop

حسب علمي ...الاكواد البرمجية يمكنك عمل اي شيء .. اما الماكرو فهي محدودة الاغراض يعني يمكنك تحويل الماكرو لكود برمجي وليس العكس في كل الاحوال في هذا الموضوع استخدام اللغة الانكليزية اقرب للفهم من ترجمتها للعربية : Macros in Microsoft Access are limited to a specific set of actions that can be performed, and may not support all of the functionality that is available in VBA. For example, macros cannot use variables or functions, and may not support certain types of control structures such as loop

هذا مثال ..وبصراحة لم افهم قصدكم مع الاستاذ الحلبي isDate.rar

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

ياليت اخي الفاضل ابو خليل ..وياليت عمل صندوق للتبرع لهذا الغرض فقط فكلنا معرضون لهذا الامتحان ..فلابأس ان نقتسم جزء من رغيفنا وادويتنا مع اشقاؤنا .. والله من وراء القصد

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

كل شيء ممكن ...بس لو اعرف انت عاوز ايه 😂 اليك المرفق ...وغير به ماتشاء ...اشرح مالذي تريده ولاتخشى اي شيء ...انا شخصيا احترم طالب العلم ربما تحتاج لهذا Me.txt3 = DCount("[jop_hala_coode]", "[data]", "[Insurance_coode] =1 And [jop_hala_coode] =1") test(2).rar

استاذي العزيز @AbuuAhmed الدالة fix تأخذ الاعلى مرتبة نزولا في الاحداثي السالب ..والاعلى مرتبة صعودا في الاحداثي الموجب فالاعلى بالنسبة ل 1.6- هو -2 ... وهي مختلفة تماما عن دلة int ..التي تأخذ الاعلى قيمة ....لكن الاخ صاحب المشاركة يمكن ان يستخدمها او لايستخدمها لان ليس من المعقول ان تكون السلفة بالسالب تحياتي استاذي ابو احمد ...ملاحظة جيدة

هل تعلم اخي استاذ خالد اني قرأتها (بطريقتين) ولم اعلم انها مكتوبة (بطريقتان) رغم اني ضعيف باللغة العربية !!! لكننا احيانا اصحاب القواعد الضعيفة نكتب مانشاء ..ونحن معذورين على كل حال

نسيت شيئا ...في حالة اردنا عدم طباعة نفس الاسم مرة اخرى .. Dim fullName As String Dim strSQL As String Dim rs As DAO.Recordset fullName = Me.txtName.Value strSQL = "SELECT * FROM tb1 WHERE NameX = '" & fullName & "';" Set rs = CurrentDb.OpenRecordset(strSQL) If rs.RecordCount > 0 Then MsgBox "الاسم مكرر" Me.txtName = "" Me.txtAddress = "" Me.txtName.SetFocus Else rs.AddNew rs!NameX = fullName rs!Adress = Me.txtAddress Me.txtName = "" Me.txtAddress = "" rs.Update MsgBox "تم التسجيل بنجاح" End If rs.Close Set rs = Nothing