Eng.Qassim

السلام عليكم...كان هناك خطأ مطبعي والظاهر اني صححته والملف مضغوط فلم يأخذ التصحيح اليك الملف بعد التعديل..عدلت ايضا التنسيق بين الليبل والتكست ... واعتذر كثيرا على التأخير 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

بالتوفيق..

وعليكم السلام.. استخدم الاداة int لتعطيك رقم بدون كسور...مثلا في حقل بيانات السلفة يكون : =Int([txtajmaly]*[txtqaim_Solaf])

انظر لهذا الموضوع ..وهناك العديد من المشاركات في الموقع يمكن الاستفادة منها https://www.officena.net/ib/topic/116860-مساعدة-في-صلاحيات-المستخدم/#comment-703914

انت عملت لحالك افضل اجابة 😂 يعني انت حليت الموضوع ...بالخير عليك يازلمة ..

ما انا طبقت على برنامجك ...بس انا عاوزك انت اللي تعمل عشان تتعلم حاول ان تطبق ماذكرته لك ...وأسأل اذا اوقفتك جزئية

بالتوفيق يارب