أبو هادي

الأخ محمد طاهر تحيبة طيبة وبعد : يوجد لدي برنامج قديم للمقاييس عملته بلغة Quick Basic إذا أحببتم أن أضعه لكم بالمنتدى وضعته ويحتوي على المقاييس التالية : مقاييس الطول Measures of Length مقاييس الحجم Measures of Volume مقاييس المساحة Measures of Area مقاييس الو…

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

السلام عليكم هذا مثال بسيط لعمل تحويلات للمقاييس : http://mypage.ayna.com/abbashmd/Measuers.mdb تحياتي للجميع

شكرا أخي العزيز محمد على الرد وقد أحتاج بعض التفاصيل لاحقا . تحياتي لك

الأخ حارث .. بعد التحية : أطلب من الله تعالى أن يكلل كل مساعيكم بالنجاح والتوفيق والبركات وآمل أن لا تطوّل علينا الغيبة ونتمنى لك عودا حميدا وسريعا . اخوك أبو هادي

يمكن استخدام دالتي cint أو clng على أن يضاف على المبلغ 0.50 وذلك كالتالي : Clng(1.00001 + 0.50) ستخرج الناتج 2 Clng(1.00 + 0.50) ستخرج الناتج 1 ولكم تحياتي

السلام عليكم ملف اكسل يحتوي على طريقة حساب الأقساط بطريقة مالية (رياضة مالية) كالمستخدمة بالبنوك . http://mypage.ayna.com/abbashmd/Installments.xls تحياتي

الأخ طارق .. بعد التحية : آمل كذلك إضافة هذا الكود للإجراء الخاص بالحذف Dim msg As String msg = "الكود المطلوب حذفه " & CStr(CurrAcc) & Chr(13) & "له حسابات فرعية مرتبطة به .. لايمكن حذفه الآن" If Not IsNull(Trim(DLookup("[ParAcc]", "Q_DALIL", "[ParAcc]='" & T…

السلام عليكم الأخوة الكرام آسف جدا للتأخير الأخ طارق أرجو أن ادراج التعديلات في البرنامج وإبداء رأيك فيها علما أن لم أحاول أن أقوم بتغيير ملامح التصاميم وكما قلت سابقا أن تداخلاتي سوف تكون في التحكم والسيطرة وبالتأكيد ستتطلب أحيانا تعديلات بسيطة في التصاميم . …

السلام عليكم هل يمكن تحويل رسائلي الإلكترونية على سبيل المثال من عنوان الخاص بالشركة التي أعمل بها إلى عنواني الخاص بشكل آلي وكيف يمكن عمل ذلك ؟ ولكم تحياتي

الأخ حارث .. بعد التحية : الدوال الخاصة بالتاريخ الهجري القياسي الخاص بالأكسس مأخوذة من موقع الفريق العربي وأعتقد من منتدى Visual Basic بالتحديد ، فقد أعجبتني كتابتها ورأيت أنه لا مشكلات بالنتائج وخصوصا أني واجهت مشكلات كبيرة عندما حاولت استخدام التقويم الهجري…

نسيت شرح الآتي : - يجب تعبئة جدول المراتب مع ملاحظة أن التصميم تم على أساس أن كل مرتبة تبدأ بالوظيفة رقم 1 وإذا كان ما عملته غير صحيح نستطيع أن نقوم بتعديل الجدول والقيام بتعديلات بسيطة لتتماشى مع الجدول . - عند فتح الفورم ضع المرتبة رقما وليس كتابة مثلا للمرت…

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

http://mypage.ayna.com/abbashmd/num97.mdb ولو كان هناك متسع من الوقت أكثر لعملنا أكثر من ذلك فاسمح لنا على التقصير . تحياتي

الأخوة الكرام .. بعد التحية : أنا في حالة استنفار ، وقد قمت بتعديلات (تحكم فقط) على الـ Forms الخاص بإضافة وتعديل الحسابات وكذلك جدول الحسابات فقط انتظروني يومين أو ثلاثة أيام للإنهائها بالكامل . أخطط بعمل فورم للبحث عن الحسابات إذا لم يقم أحد بعمله وذلك في عط…

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

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

الأخ حارث .. بعد التحية : هذا رد سريع للفقرة الأولى : استخدم هذه الدالة ( DateSerial( Year, Month, Day تحميك من مشكلات الفورمات . تحياتي

الأخ مهند .. بعد التحية : مثال سريع عله يكون مفيدا : Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case Shift Case 1 'Shift Case 2 'Ctrl Select Case KeyCode Case 113 'F2 MsgBox "Mohanad" End Select Case 3 'Alt End Select End Sub تحياتي

الأخوة الأفاضل .. بعد التحية يمكن ضم أكثر من جدول في استفسار واحد لحل مشكلات التقسيم باستخدام Union Query تحياتي