Eng.Qassim

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

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

وعليكم السلام.. النسخة لاتفتح عندي لاني استخدم اوفيس 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

اضافة لما تفضل به الاستاذ @kkhalifa1960..لم أتي بشيء جديد لكني أفضل كتابة الكود للفائدة..لان تعلم كتابة الكود ومعرفة كل سطر امر مهم لكل مبرمج Dim rs As DAO.Recordset Dim sql As String sql = "select * from tb1 " Set rs = CurrentDb.OpenRecordset(sql) rs.AddNew rs!NameX = Me.txtName rs!Adress = Me.txtAddress Me.txtName = "" Me.txtAddress = "" rs.Update Set rs = Nothing

وعليكم السلام اخ سامر.. احاول الشرح نظريا كي تعم الفائدة ..امسح مصدر البيانات لكل الحقول في النموذج.. بعد حدث بعد التحديث لمربع التحرير..ضع الكود التالي فيما يخص المربع الاول (اجمالي الموظفين (يعمل))..واكل البقية في نفس الحدث ووافني بالنتيجة... Private Sub cbo1_AfterUpdate() Me.Text1 = DCount("[jop_hala_coode]", "[data]", "[jop_hala_coode] =1 And [Location_coode] Like '" & Me.cbo1 & "' ") End Sub cbo1 هو اسم مربع التحرير

وعليكم السلام.. عن اذن استاذ احمد...استخدم دالة IsDate If Not IsDate(Me.dateTextBox) Then MsgBox "الرجاء ادخال التاريخ" Me.dateTextBox.SetFocus End If

بالتوفيق..