Gaham
خبير قواعد بيانات
- الرياض ـ السعودية
- المفتاح enter
أخصر طريق لعمل هذا الإجراء هو أن تضع اسم إجراء حدث عند النقر التابع لزر الأمر في حدث قبل التحديث لمربع النص بالطريقه التالبية Private Sub TextBox1_BeforeUpdate(Cancel As Integer) Command1_Click End Sub
- حساب الارصدة بطريقة الوارد أولا يخرج أولا FIFO
أشكرك أستاذي أبو يوسف على أجاباتك القيمة على أسئلتي.. في جلستك الأخيرة لفت نظري جدول العمليات (Operations).. كنت أتوقع تسميته جدول البيانات التفصيلية (Details...).. فهل لهذه التسمية مغزى أو مناسبة
- حساب الارصدة بطريقة الوارد أولا يخرج أولا FIFO
هل تقصد أن هذا أسلوب تخزين و ليس أسلوب عرض وطلب؟!.. إذا كيف يمكن أن نربط ذلك بالقيمة؟ وأي القيمتين يقدم بناء على المثال المضروب على هذا الأسلوب؟ ومتى يصار إلى القيمة المرجحة؟ هل يكون ذلك عندتصريف الكمية بالكامل؟
- حساب الارصدة بطريقة الوارد أولا يخرج أولا FIFO
هل بالإمكان أن أسأل الأسئلة التالية: _ على أي مستوى من المنشئات يمكن تطبيق هذا الأسلوب؟ وهل يمكن تطبيق هذا الأسلوب على المنشئات غير الربحية؟ _ ما هو المحور الذي يدور عليه هذا الأسلوب؟ القيمة؟ أو الصلاحية؟ أو كليهما جميعا؟ _ إذا كان الأمر متعلق بالقيمة؟ فكيف يم…
- طلب كود على الطائر
إجابة موفقة ومسددة ما شاء الله
- [ تمت الإجابة ]المساعدة فى الاستيراد من الاكسل
جرب هذه الشفرة بعد تمرير اسم المصنف إليها ملاحظة: في هذا المثال يجب أن يكون المصنف في نفس مجلد قاعدة البيانات Sub ImportMultipleExcelWorkSheet(Filename$) On Error Resume Next ' أنشيء مكون تطبيق أكسس Set objExcel = CreateObject("Excel.Application") ' objExcel.V…
- الترقيم التسلسلي في النموذج
بالنسبة لي لا أجد أفضل من هذا المنطق.. شفرة جيدة جدا وتفسر المنطق السابق وتأكده
- التعامل مع الدالة Now
هذا ما كان يدور برأسي.. سبق بها السوبر
- مشكلة في اسناد قيمة لون؟
نعم ماقلت.. لا فض فوك..
- الكود لا يعمل
اذهب إلى محرر الشفرة واختر أدوات.. ثم خيارات .. ثم تبويب تنسيق المحرر.. غير الخط غلى الخط الداعم للغة العربية .. إن شاء الله تضبط آسف نسختي انجليزية
- مثال لكتابة البيانات المدخلة إلى ملفات نصية بطريقة منسقة ومحددة الطول
صدقني لم أقم بتغليف قاعدة بيانات أكسس من قبل!.. فقط أضغط مفتاج (SHEFT) رائع أن أجد من يستفيد من عملي.. اشكر لك تقيمك لي.. لا أعتقد أن الأمر كما تظن.. بل هناك أسباب أخري لتحويل البيانات إلى بيانات نصية!.. لعلي أقوم بتفسيرها لاحقا... اشكر لك تقيمك لي..
- مشكلة في اسناد قيمة لون؟
الطريقة التي أفضلها هي استخدام دالة اللون ()RGB في عرض التصميم اختر عنصر التحكم المطلوب؛ ذو اللون التفاحي.. وفي خصيصة لون الخلفية انقر على الزر ذي الثلاثة نقاط.. ومن أسفل صندوق الألوان اختر الوان أخري.. ثم تبويب مخصص.. ستجد رقم اللون المطابق للون التفاحي اكتب …
- الاصدار الثاني للالة الحاسبة المتطورة
الصورة رائعة جداً تنبىء عن عمل ضخم كنت أتمنى أن تمد النموذج طولا لاعرضا.. وأن تضع الخيارات في عنصر تبويب حتى تصبح أكثر ملائمة
- كيفية اظهار حقول و تسميات بشرط
فيما يتعلق بالقيم الخالية أنت بين خيارين - أن تعين الصفر قيمة افتراضية للحقول الرقمية بالذهاب إلى الحقول التي هي مصدر القيم وفي تبويب البيانات تضع القيمة الافتراضية (صفر) ... وهي المفضلة لدي - استخدام دالة ()Nz بالطريقة التالية (Nz(IsNull(Me.FSH),0 هناك خيار ث…
- كيفية اظهار حقول و تسميات بشرط
إن أذنتم لي خاصية عنصر التحكم Visible تقبل القيمة المنطقية... والقيمة المنطقية يعبر عنها بـــ True . False أو Yes, No أو (صفر، أكبر من الصفر).... والبتالي يمكن جعل قيمة الخاصية قيمة الحقل نفسه ... بمعني إذا كانت قيمة الحقل صفر فسوف يختفي عنصر التحكم ، وإذا كان…
- تثبيت موضوع الاخ اسد العراق ولقد استحق وسام التمييز
وأنا كذلك أضم صوتي إلى أصواتكم.. في كون أسد العراق عضو متميز وفاعل في المنتدى.. كما أن له إجابات موفقة ومسددة تنم عن خبرة لا تصدر إلا من خبير!!!
- كيف أقوم بتكرار قيمة حقل في كل السجلات التالية
من الأقضل في نظري أن تجعل ذلك يتم تلقائيا عن طريق احتساب أشهر الصيف وأشهر الشتاء ومقارنتها بالتاريخ الحالي.. فإذا كان التاريخ الحالي في زمن الصيف نجعله يعيد وقت الدوام الصيفي... وهكذا... الشفرة التالية تعيد وقت بداية الدوام .. ضعها في المكان المناسب Function S…
- مشكلة عويصة جدا في جمع القيم؟
أحيانا ومع زحمة التفكير والتخطيط يقع المطور في أخطاء تافهة جدا..!! ولكونها كذلك فلا يكاد يفطن لها.. كل ما هنالك أن التنسيق (في أكسس خاصة) لا يمكن أن يطبق مع القيم الخالية وهذا هو السبب في عدم رؤية الصفر عند عدم وجود أرقام (قيمة خالية). ولحل المشكلة قم بعمل الت…
- حذف سجل من جدول وحقول معينة مرتبطه من جدول اخر
فوق كل ذي علم عليم!
- كيف نجعل من ]دالة Dmax اخذ رقم تلقائي
استخدم الشفرة التالية إذا.. Me![Numbr].DefaultValue = Nz(DMax("NumbrW", "Work"),0) + 1