jjafferr

تسلم اخي محمود :) ماهي رسالة الخطأ ؟ رجاء وضع الطريقة اللي وضعتها في برنامجك ، مع توضيح اسماء الحقول. جعفر

تفضل :) جعفر

وعليكم السلام :) اخي الكريم ، انا ما ممكن اعمل لك كل شئ ، لذا ، انت حاول ، وخلينا نشوف محاولتك ، وراح نساعدك ان شاء الله :) جعفر

وعليكم السلام اختي :) انا انزلت المرفق ، وهذه ملاحظاتي: الافضل : 1. الرصيد الاول يكون في جدول منعزل عن العمليات ، بتاريخ الرصيد الاول ، 2. هل عمليات البيع والقبض موجودة حايا في برنامجك؟ اذا كان الجواب نعم ، فما هي الحقول وفي اي جداول ، لآن الرصيد عبارة عن عملي…

تفضل :) استخدم هذا الكود بدل الكود اعلاه : 'From Form info SL = InStr(Me.Gr_No, "/") 'Slash location 'Y = Mid(Me.Gr_No, SL + 1) 'Year: 15 Y = Mid(Me.Gr_No, InStr(Me.Gr_No, "/") + 1) 'Year: 15 For Nu = 1 To Len(Me.Gr_No) 'Numeric starting position If IsNumeric(…

بالنسبة للصورة 16 (انت وضعت السؤال في الصورة :( ) استعمل هذا الكود بدل السابق: Option Compare Database Public DB_Name As String Function Relink_BE() 'check if the BE is connected Dim rst As DAO.Recordset Dim stSQL As String 'Type=6 is linked tables' 'Name is t…

وعليكم السلام :) يعني ان متقصد تسألني اسئلة صعبة :( يأ أخي انا نفسي اجاوب على سؤال سهل ، احله بدون ما احك راسي :) الاجابة: 1. لا اعرف ، قد يكون موجود ، ويمكنك البحث عنه في الموسوعة الكبرى ، الانترنت :) 2+3. ضع كود فتح النموذج Password Main بين الكودين اللي انت…

وعليكم السلام :) تفضل: a: Mid([name],InStr([name]," ")+1) جعفر

وعليكم السلام اخوي :) انا انزلت البرنامج ، لكن ماشفت فيه نموذج رئيسي ولا فرعي :( عندك نموذجين مستقلين!! ثم طلبك غير واضح ، فرجاء تسمية اي حقل تريدنا نجمعه؟ جعفر

وعليكم السلام :) اخي محمود ، ايش رايك بسطر واحد في الاستعلام ويحل الموضوع :) a: Mid([name],1,InStr([name]," ")-1) جعفر

غريبة ، انا لما انسخ الكود اعلاه والصقه في module ، ارقام الاسطر لا تظهر في الكود :) جعفر

وعليكم السلام اخي :) انا سألتك سؤالين: انت رديت على السؤال الثاني ، ونسيت الاول :( رجاء رد على السؤال بالتفصيل :) جعفر

وعليكم السلام :) شكرا اخي عبدالله وأخي مراد :) اخي عبدالفتاح ، الكود التالي خاص ببرنامجك فقط: ورجاء عمل ماكرو مثل ما شرحت لك سابقا وسميه autoexec ، واعمل Runcode ، واكتب اﻻسم Relink_Be () وهذا الكود بدون ترقيم :) Option Compare Database Function Relink_BE() 'c…

تفضل :) جعفر 323.1436.rar

طبعا لما تغير النسبة الى % ستتغير القيمة ، سؤالك كان: وعلى هذا الاساس اقترحت لك الحل ، ولكنك مادمت مصر على استخدام % ، فلماذا السؤال عن حل!! جعفر

وعليكم السلام :) في برنامج Kafi (اي برنامج الواجهات ، وليس برنامج الجداول) ، احفظ هذا الكود في وحدة نمطية ، سميها basJStreetAccessRelinker : '----------------------------------------------- 'VERSION 2 BETA '- Supports both 32-bit and 64-bit versions of Access …

:)

وعليكم السلام اخي :) ارفق لنا اين المشكلة في محاولتك علشان نساعدك :) جعفر

تفضل :) Private Sub DET_A_BeforeUpdate(Cancel As Integer) on error goto err_DET_A_BeforeUpdate 'check if this Date is used before Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst For i = 1 To rst.RecordCount If Format(Me.det_a.Text, "d-m-yyyy") = Format…

نعم انا فهمت قصدك :) وجوابي هو ردا على سؤالك :) لاحظ الصور التالية: انت تريد هذه النتيجة االحقل g0 (طبعا لازم التاريخ يحدد السجلات المطلوبة) : وهذا هو الاستعلام: وهو مبني على نتائج هذا لاستعلام وهذا هو الاستعلام qry_drasathala_Crosstab الذي اخبرتك عنه في مشارك…