amrhewala

حتي الفيجوال بيسك لا يفتح ولا يستجيب

السلام عليكم اعضاء لجروب الكرام .. تظهر عندي تلك الرسالة والتي لا اعرف سببها ولا تظهر الا علي جاهزي في المنزل اما جهاز العمل فلا مشكله ياتري هل هناك اعداد ناقص او انزل ويندوز من جديد علي الرغم اني ازلت الاوفيس وثبته من جديد ومازالت المشكله كما هيا..

تظهر لي رسالة خطا عندما حاولت تطبيق كود في موضوع الغاء الحفظ الاتوماتيكي Private Sub SAVE_Click() Dim strSQL As String strSQL = ("INSERT INTO بيانات خطاب الضمان ([ID],[PRID] , [BANKID]) VALUES('" & Me!ID & "','" & Me!PRID & "', '" & Me!BANKID & "')") CurrentDb…

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

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

تحياتي الصادقه لحضرتك ... انا عارف اني تعبتك ... لكن لم يرد علي تساؤلي سوي حضرتك ينقسم التعامل مع القاعدة الي جزئين جزء التسجيل وجزء المتابعه جزء التسجيل : ادخل البيانات الاساسية من اسم العميل في الحقل PRID رقم الفاتورة في حقل PRIVATE_NO نوع الفاتورة في حقل KI…

هذه نتيجة تجربة سريعه علي عميل واحد

في الجدول الرئيسي MAIN ... وقد طبقت ذلك علي جدول به عميل واحد وكانت النتيجه غير كامله

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

السلام عليكم ورحمة الله اخي فتي الوادي جزاك الله خيرا علي تداخلك لمساعدتي القضية تتلخص في الاتي : 1- لدي اكثر من نوع من الفواتير لعملاء ولكل عميل رقم خاص به ككود يعرفه ثم يتم اصدار فاتورة بسريال لكل نوع فاتورة يعني ( فاتورة بيع 1و2و3و... فاتورة شراء 1و2و3و... …

السلام عليكم شكرا جزيلا علي الرد ان تاريخ قيد الفاتورة مذكور في جدول البيانات الرئيسية MAIN في حقل M_DATE واهميته هوا عمل متابعة شهرية للفواتير الناقصة وما تم فيها ومعرفة الشهر اللذي حدث فيه النقص لاني مطالب مبتابعتها بشكل شهري وسيترتب علي ذلك طباعة تقرير شهري…

اشكرك علي مشاركتك جزاك الله عنها خيرا البيانات عبارة عن اكواد وهدفي هوا الحصول علي ارقام الناقصة للفواتير دلالة الكود Name Type Size نوع الفاتورة KIND Text 255 رقم العميل PRID Text 255 PUBLIC_NO Text 255 رقم الفاتورة PRIVATE_NO Double 8 شهر الفاتورة M_DATE Dat…

Sub ADD_MISSING() Dim RS As Recordset Set RS = CurrentDb.OpenRecordset("SELECT DISTINCT PRID, KIND, YEAR(M_DATE) AS KYEAR FROM MAIN") RS.MoveFirst CurrentDb.Execute ("DELETE * FROM Lost_Serial") Do Until RS.EOF PRID_KIND_KYEAR = RS!PRID & RS!KIND & RS!KYEAR MA…

نعم انما اتحدث عن النتيجة التي تظهر في جدول lost_serial ففي الوحدة النمطية حضرتك كتبت (year (m_date لظهور التاريخ بصيغة العام فقط وانا عندما حاولت ازالة year من الكود او من الاستعلام فلا تنجح معي

اولا اشكرك علي اهتمامك ثانيا قد وفيت لكن يتبقي اخر مساعدة وهي بدلا من ظهور التاريخ بصيغة العام year وظهور التاريخ بالكامل 1/1 العام اريده ان يظهر بصيغة الشهر / العام بلا تدخل حاولت تعديل ذلك في الكود بازالة year لكن ذلك لم يفلح وحاولت ازالتها من الاستعلام ولكن…

لا يهم لانها عملية شهرية فلا باس من ان تستغرق بعض الوقت هناك ملاحظتين علي المخرج النهائي بالجدول الارقام الناقصة : 1- التاريخ صيغته خاطئة يعطيني 06/07/1905 وهوا خاطئ 2- كود نوع الفاتورة يظهر 40 بدلا من 040 اشكرك

سلمت يمينك ... وجزاك الله كل خير لي مجرد ملاحظات هل يمكن : 1- نتيجة الارقام الناقصة تكون في جدول . 2-يضاف الي المعلومات عن الفواتير الناقصة التي موجوده حقل التاريخ شهر / سنه . 3-لدي اكثر من 400 عميل هل استطيع تنفيذ الامر بدون تصفح لعميل عميل . لا اجد اكثر من ج…

KIND هوا نوع الفاتورة من بيع او شراء او استبدال PRID هوا رقم العميل PRIVATE_NO هوا رقم الفاتورة M_DATE هوا شهر المحاسبه وهوا مهم لان جميع الارقام تتكرر كل عام بمعني عند نهاية العام نبدا من رقم 1 من جديد والبيانات لابد ان تكون محفوظة اشكرك علي ردك جزاك الله خير…

السلام عليكم ورحمة الله اشكر حضرتك جدا بدايتا علي ردك واهتمامك لكن للاسف انا جديد في عالم الاكواد تماما ولا استطيع تنفيذ ماذكرت لذا اطمع ان تعلمني ذلك من خلال الكود لكني فهمت منطقية ما ذكرت وماشاء الله منظم جزاك الله خيرا وارجو الا اكون اثقل عليك ارفق الي حضرت…

سبحان الله