أمير2008

وعليكم السلام ورحمة الله - بالطبع أسعد بهديتك كثيراً أنا قعدت أيام لغاية ما اكتشفت خطأ في برنامج سببه السيمي كولون ; نعم نعم هو كان مؤقت لتجربة جزء من الكود وليس له دور الان صحيح ، يمكن ذلك ، تفكيرك في الكود ممتاز تمام ومصدر النموذج بيانات لجدول العطل حاول تنف…

هههههه يا باشا محدش يقدر يطنشك للأسف لا توجد عندي طابعة لكن جربت على المعاينة استحقات كشف 6 ثم 5 ثم استحقاقات كشف 6 ثم 5 ويمكنك التعديل والاضافة وعندك دالة للطباعة ودالة للاستراحة Private Sub Command297_Click() Rep = "استقطاعات" Pay = 6 Call prt Call S DoCmd.C…

طيب أنا عملت نموذج مبدئي لتحويل الأحرف لكن يحتاج لاضافة الحروف التي تنطق كحرف واحد مثل : غ = gh خ = kh ث = th ذ = th وهكذا وأيضا يحتاج لكيفية استثناء الحروف الساكنة مثل حرف P في كلمة : Empty وأيضا تحديد الحرف العربي لبعض الحروف الانجليزية متعددة النطق مثل : C …

Private Sub AppendA() Dim i, k, LWeekday i = 0 k = DCount("date", "A") Dim BDate, Adate Dim B1, B2, A1, A2 As Recordset Set A2 = CurrentDb.OpenRecordset("SELECT * FROM A;") Set A1 = CurrentDb.OpenRecordset("SELECT DISTINCT Max(a.Date) as dat FROM A ;") Set B1 …

- za-A7.rar

امممممم هكذا إذن ! قم بتجربة المرفق ولا تخبرني عن النتيجة أقصد أخبرني لكن انا رأسي تاهت في الكود لذلك ربما هذا آخر ما أستطيع za-Example-UP 3.rar

طيب جرب طريقة الكود لكن أرى استمرار الحاق البيانات مرارا وتكرارا بسبب التايمر فهل هذا ما تريد أم تريد الالحاق مرة واحدة فقط ؟ za-Example-UP 2.rar

إن شاء الله يوجد حل لكن الأسرع بالنسبة لي هو سحب الاستعلام في ملعب الكود البرمجي فإن كان هذا يناسبك فيمكن أن نبدأ بالمحاولة وإن لم يكن فربما أحد الزملاء يعدل لك الاستعلام

معذرة هناك كود مكرر في أمر بعد التحديث جرب تاني za-A6.rar

جرب تاني وشوف الأعراض الجانبية za-A5.rar

طيب جرب التعديل ده وشوف التأثيرات الجانبية على قاعدة البيانات za-A4.rar

أستاذتنا زهرة أنت رائعة كم كنت أبحث عن جدول أكسس به هذا العدد الهائل من الكلمات كذلك أ / alsajy أنت رائع فكرة رائعة موضوع التحديث لكن أرى تعديل الفكرة إلى : اذا لم تكن الكلمة موجودة فيتم البحث تلقائيا عنها في النت واضافتها مباشرة للجدول الرئيسي

بعد إذن أستاذتنا زهرة شوف التعديل ده يناسبك أم تقصد شيئاً آخر ؟ za-A3.rar

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

معلمتي الفاضلة / زهرة كما أنا أتشرف بالتحاور معك ولطالما ذلك - هناك احتمال 50 % أن ينجح ذلك اعتماد على قيامي سابقا بعمل ذلك داخل بيئة الوورد معذرة على التعديل : أقصد معرفة الكلمة المترجم منها وما يقابلها من الكلمة المترجم إليها خاصة لو كان النص المترجم كبير

ممتاز ومشكورة على فتح الباب لإبداء الرأي والأفكار والمناقشات ولذلك أبدأ حاليا في طرح هذه الأفكار البسيطة إن شاء الله : أولا : ممتاز النقطة الخامسة والسادسة للأستاذ : Abu Lilia وغير موافق على النقطة الأولى لأني أحتاج تعديل النص المترجم أحيانا ثانيا : 1 - امكاني…

دائما أستاذتنا وسباقة للخير مشكورة على البرنامج وسنتابع معك التطوير +1

'On Error GoTo Err_Handler 'Remove the single quote from start of this line once you have it working. 'Purpose: Filter a report to a date range. 'Documentation: http://allenbrowne.com/casu-08.html 'Note: Filter uses "less than the next day" in case the field h…

DoCmd.OpenReport strReport, lngView, , strWhere & "And" & "[combo]=" & Me!Combo جرب الكود ده مع ملاحظة أن: [combo] حقل في الجدول له قيمة رقمية يستدل عليها من Me!Combo

On Error GoTo Err_Handler 'Remove the single quote from start of this line once you have it working. 'Purpose: Filter a report to a date range. 'Documentation: http://allenbrowne.com/casu-08.html 'Note: Filter uses "less than the next day" in case the field ha…