zahof

تستطيع ذلك بوضع الكودالتالي في Generalالخاص بكود النموذج Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long وعند الفتح للغة العربية تضع: LoadKeyboardLayout "00000401", 1 وللانجليزية تضع : LoadKeyboardLayout "00000409", 1 تحياتي ZAHOF

البرنامج بعد تعديل الخطأ الذي اشار اليه الاخ رضوان TestProg.rar

بكتابة ON EROOR RESUME NEXT وكانت على البال ولكن نسيت كتابتها في المثال تستطيع الغاء رسالة الخطأ هذه

لم افهم الطلوب !!!!! على العموم انا ليس لي دراية بالاكسل ولا اعمل عليه فقط الشئ البسيط في الاكسس ZAHOF

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

تحية طيبة للجميع وبعد عملت هذه الطريقة التي ترونها في المرفق لتقوم مقام طلبي المقدم لكم في المشاركة هذه فهل يرى خبراء المنتدى انها مجدية برمجيا ام بها عيوب ارجوا الاطلاع وابداء الرأي والمشوره شاكرا لكل من حاول مساعدتي ودمتم اخوكم في الله ZAHOF 2______.rar

مفيش حد يتوسط بيني وبين الاكسس ويحل المشكله دي

ماقصرت اخ منذر ولكن انا اريدها عن طريق استخدام ADODB حيث ان اريد تفريغ البيانات في مربع نص او ليبل ولا اريدها في ليست بوكس وذلك لاغراض اخرى في البرنامج ودمتم في الف خير ZAHOF

هل هذ يعني انه لايوجد حل وعلي البحث عن طريقة اخرى (يبقى الامل مادام للشمس نور) للرفع

احبتي انا في انتظار حلولكم لمشكلتي ZAHOF

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

الى جميع رواد المنتدى كل عام وانتم بخير وشهر مبارك عندي استفسار ارجوا التكرم الرد كيف استطيع اضافة معيار اخر من نفس الجدول الى الكود التالي : [code] Rst.Open "Table1", CnnLocal, adOpenStatic Rst.Find "Field1 LIKE '" & Me.TxtName & "'" جربت And ولم تفلح معي بمعنى اجد السجل الذي يساوي فيه الحقل واحد مربع النص الاسم وتاريخ الغياب يساوي الشهر (8) وتقبلوا خالص تحياتي اخوكم ZAHOF

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

شكرا على التعقيب وكل الشكر لك اخي شاهر على التنيه لهذه الحيلة ونستطيع منعها بالاضافة على الكود And Len(CurrentProject.Name) = 13 _________.rar

المثال من عملي وتم ارفاقه في المشاركة على الرابط التالي http://www.officena.net/ib/index.php?showtopic=9158&hl= علشان يدعو لي الشباب مثلك يالتقني وجزاك الله كل خير على دعواتك ولك بالمثل في هذه الايام الكريمة اخوك في الله ZAHOF

صممت أحد البرامج للمستشفى الذي اعمل به بالاكسس وقابلتني مشكلة مع المستخدمين حيث انهم يقومون بنسخ عدة نسخ للبرنامج على نفس الجهاز حيث انه يتم العمل من أحد المستخدمين على النسخة الأولى ومن ثم يأتي المستخدم التالي ويجد النسخة رقم اثنين ويعمل عليها مما سبب لنا مشاكل في الإحصائيات وعدم صحتها وبحثت عن طريقه لمنع نسخ البرنامج لعدة نسخ واهتديت إلى الطريقة المرفقة في المثال والتي ارجوا أن يشاركني الإخوان في إبداء الرأي في فاعليتها حاول عمل عدة نسخ للبرنامج لتجربة المثال يجب وضع المثال المفكوك الضغط على قرص الدي مباشرة (D:) ودمتم ZAHOF _________.rar

في الحقيقة حاولت ايجاد طريقة لعداد متناقص ولكن لم اصل الى فكرة الاخ رضوان العبقرية التي تدل على انه شخص متمكن جدا في عالم البرمجة واصرارا مني على المشاركة في الموضوع احبت ان اضيف على المثال بعض التعديلات المفيدة بالطبع بعد اذن الاخ رضوان تحياتي ZAHOF InterClock2.rar

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

اعزائي رواد منتدى اوفيسنا المحترمين السلام عليكم ورحمة الله وبركاته وبعد يسعدني في هذه المشاركة ان اعرض عليكم هذا البرنامج الرائع الذي اعتقد انه لا يستغني عنه اي مستخدم للكمبيوتر حيث انه يعيد الملفات المحذوفه يعمل صيانه للكمبيوتر ومن ضمن فوائده اصلاح ملفات الاوفس المعطوبة ومن ضمنها ملفات الاكسس اسم البرنامج EasyRecovery Professional صحيح ان حجمه كبير حوالي 40 ميجابايت الى انه يستحق العناء رغبت في عرض بعض الصور عن البرنامج ولكني لا اعرف طريقة رفع الصور اليكم رابط التحميل http://buyonline.ontrack.com/ecom/freeware...=ERPROT_610.exe

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

هذه طريقة لايقاف عجلة الماوس وجدتها سابقا في المنتدى وبحثت عنها حاليا فلم اجدها فقمت بارفاق المثال تحياتي ZAHOF zahof.rar

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

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

الاخوة الافاضل السلام عليكم ورحمة الله وبركاته اواجه المشكلة التالية ولم اتوصل لحلها وهي كالتالي عندي جدول يتكون من الحقل الاول رقم الدفتر الحقل الثاني يبدا بايصال رقم الحقل الثالث ينتهي بايصال رقم يعني الدفتر رقم(1) يبدا تسلسله بايصال رقم100وينتهي بايصال رقم200 والدفتر رقم(2) يبدا تسلسله بايصال رقم2001 وبنتهي بايصال رقم350 والدفتر رقم (3) يبدا بايصال رقم500 وينتهي بايصال رقم600 في النموذج المبني على جدول اخر ومن ضمن الحقوول رقم الايصال ورقم الدفتر ما اريده عندما اختار رقم الايصال مثلا 150 يكون في مربع نص رقم الدفتر (1) واذا سجلت ايصال رقم 550 يكون نتيجة مربع نص رقم الدفتر رقم (3)وهكذا علما ان جدول الدفاتر وارقامها يمكن الاضافة عليها من قبل المستخدم اي يمكنه اضافة دفتر رقم 4 او 5 او غيره فقد حاولت بكل الطرق ولكن خانتني المعرفه ارجوا ان اكون اوصلت المطلوب بشكل واضح