أبو هادي

تعديل على تعديل أخي الهاجري الحقيقة لم أهتم في حياتي بهذه الأمور أصوات ، صور ، ألوان .. الخ عموما رأيت نفسي في المعمعة وكنت أقصد بوضع مثالي الأول هو أخذ الفكرة فقط من عملية المقاطعة . عموما لا تنسوا أن تغيروا المسار مع ملاحظة لا يوجد عندي كرت صوت .. لا تستغربو…

السلام عليكم أنا عارف أن هذا السؤال ليس مكانه موقع أكسس وقد ترددت كثيرا قبل أن أكتبه هنا فأرجو المعذرة حيث لم أشأ أن أذهب بعيدا عنكم . توضيح للسؤال : نحن نقوم بإرفاق مثال وبعد فترة نقوم بالتعديل عليه لوجود أخطاء أو لتطويره فنقوم مرة أخرى بإرفاق الملف المعدل ..…

أخي محمد وجدت مرجع ولكن أعتقد أنه يفقد الدقة بعض الشيء وقد وجدت السطرين التاليين وبالطريقة نفسها بدون أدنى تبديل : هكتار واحد = 10 فدان = 100 ار = 10 آلاف متر2 فدان واحد = 4840 ياردة2 = 4047 مترا مربعا ويقابلهما بالإنجليزية في نفس المرجع بكل تأكيد : one hectar…

الأخ أبو هاجر لك مني وعد يوم غد إن شاء الله تعالى بتجربته في العمل وأريد بداية أن أستفسر عن الآتي : 1 - هل الضغط ممكن فكه عن طريق البرامج المشهورة مثل WinZip أو WinRar ؟ . 2 - هل ملف الضغط فقط لملفات الأكسس ؟ . 3 - هل يمكن ضغط قاعدة بيانات أخرى غير القاعدة الت…

أخي فهد هذا تعديل أخير ونهائي يحتوي على تسعة أزرة أوامر ويحتوي على كل الخيارات الخاصة بالفتح . تحياتي automenu.zip

لا يزال الموضوع معلق بانتظار ردك أخي فهد .

جرب وخبرنا .. أنا لم أجربها ولا أضمن النتائج Private Sub CmdDo_Click() 'Dim MaxLong, Counter As Long Dim msg As String Me.CmdStop.Enabled = True Me.CmdClose.Enabled = False 'MaxLong = 10000 'For Counter = 1 To MaxLong Do While True DoEvents If Me.CmdStop.Enabl…

أخي محمد لم أضع الموقع لأعرف رأيك به حقيقة :) ولكني حاولت أن أضعك في جو البحث والتقصي كنقطة بداية . عموما أنا رجعت سابقا لقواميس الترجمة ورأيت أن الترجمة للفدان هي acre . راجع قاموس المورد . قد يكون هناك اختلاف كما الاختلاف بين المقاييس الأمريكية والإنجليزية ل…

جرب هذا الإجراء Sub Test() Dim YY, MM YY = 2002 MM = 5 MsgBox DateSerial(YY, MM, 1) MsgBox DateSerial(YY, MM + 1, 0) End Sub تحياتي

بحثت عن موضوعي DoEvents وللمرة الثانية خلال هذا الإسبوع أفشل في استخدام البحث فأرجو من المسئولين تسهيل عملية البحث إلا إذا ذهب هذا المثال كغيره . عموما هذا المثال لو طبق سوف يقوم باللازم إن شاء الله . doevents.zip

أخي محمد هذا العنوان وجدته أمس به برنامج للتحويل يعتني بالدقة آمل أن يكون مفيدا لك . http://www.digitaldutch.com/unitconverter تحياتي .

نسخة معدلة تحتوي على نوع الـ Object وطريقة الفتح ممكن تطويره لاحقا بإضافة للقراءة فقط أو للتعديل أو للإضافة .. تحياتي automenu.zip

معك حق .. لقد وجدت الخطأ بدل FItem = ((Nz(Me.PageNo) + 1) * Items) - 2 إلى FItem = ((Nz(Me.PageNo) - 1) * Items) - (Items - 1) وهو مكرر مرتين في حدث Click لزراري PageNext & PagePrevious . وأنا آسف على ازعاجك . تحياتي

أشكرك أخي على قبول الهدية .. هذا كرم منك . أخي ضع أي عدد من الأزرة وغير قيمة الثابت بحسب العدد المطلوب : Const Items = 11 فـ Items هذا الثابت هو الذي يحمل عدد الأزرة . كذلك لا تنسى أن تكون أسماء الأزرة تسلسلية يعني الزر الحادي عشر يكون اسمه Command11 . هذا كل …

السلام عليكم إضافة القسم السابع من التحويلات ( قسم مقاييس الطاقة ) تحياتي measuers.zip

هذه قائمة إقترحتها على أخي فهد منذ فترة لمثاله "مثال يضم عدة أمثلة" . آمل تقبلها هدية خالصة .. تحتاج إلى تجربة ومراجعة وقابلة للتطوير . تحياتي . automenu.zip

أعزائي أشرف وأبو هاجر أشكر لكما تفاعلكما مع الموضوع ولكما خالص تحياتي

لقد أنزلت برنامج الأكسس وعمل معي بشكل ممتاز . لكن أنا غير سعيد وذلك لأننا فقدنا كل ما نملك لحماية بياناتنا للعبث من الموظفين المتطفلين والذين لا يقيمون وزنا للأمانة وحفظ السر . طبعا كثيرا من هم مسئولين عن برامج من تصاميمهم أو مؤتمنين على برامج من عمل غيرهم تحت…

أحتاج إلى : 1 - تبديل صورة زر الأوامر بالكود . 2 - تعريب دوال المجاميع . جزاكم الله عنا خيرا .

المثال يحتاج إلى تعديل في الفورم hmd-FinderAdvanced في الإجراء التالي بإضافة سطرين حسب ما هو موضح : Private Sub FieldsList_Click() Dim Count As Integer On Error Resume Next With Me.hmd_FinderTotals.Form.RecordsetClone .MoveFirst Do While Not .EOF Count = Count…