ابوحمود

الله يعطيك العافية على هذا المثال . ولمن اراد الاستزاده : اعاده تصفير رقم تلقائي بعد المسح وللجميع تحياتي

1- أنشئ جدول باسم رقم الإيصال وضع فيه حقل باسم رقم الإيصال ونوعه عدد صحيح طويل . 2- ضع مربع نص على التقرير بأي اسم وفي مصدر عنصر التحكم له ضع : =DLookUp("[رقم الإيصال]";"رقم الإيصال") 3- في حدث عند الفتح للتقرير ضع التالي : If DCount("[رقم الإيصال]", "رقم الإي…

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

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

أهلا وسهلا بك ومرحبا والحمد لله على سلامتك . (f) (f) (f)

الأخ سامي الطريقتين اللتين ذكرت لك لاتستخدمهما مع طريقة الأخ 5060 ، فطريقته هي في مصدر التقرير والتي ذكرت لك بدون استخدام العبارة الاسنادية التي ذكرها 5060 وبمعنى آخر امسح هذه العبارة : [forms]![ 1 ]![ 2] ولايهم عندها كون مصدر التقرير استعلام أو جدول . ولك تحي…

نعم نرغب بذلك وبدون أن يحتاج هذا إلى سؤال ، لأننا في حاجة الى الاستفادة كل يوم . شاكرين لك مجهودك في ذلك . ولك تحياتي

لم اجرب الكود على 97 ولا اعتقد أن ذلك مؤثر . ضع الكود في حدث عند الفتح للنموذج بدون أي تغييرات . ولك تحياتي

هل لك رغبة معينة او طلب ؟ ولك تحياتي

Args هي كلمة تستخدم في النماذج والتقارير عند فتحها لتحديد الكائن الذي فتحها أو للتحقق من شرط معين ، وبالإمكان أن تكون نص أو رقم أو صح أو خطأ وذلك لتطبيق شيء معين على النموذج أو التقرير المفتوح ، ففي المثال السابق طبقنا عليه الفلتر في حالة كون OpenArgs تساوي "ط…

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

الخطأ عندك في هذا السطر ctl.RowSource = ctl.RowSource & ";" & NewData احذف الفاصلة المنقوطة ";" اللي قبل NewData واجعلها اذا ترغب بعد كلمة NewData . ولك تحياتي

الأخ فتى الوادي ضع رابط للقاعدة في المنتدى . ولك تحياتي

الله يعطيك العافية . ولك تحياتي

طرق أخرى : ضع في حدث نقر زر أمر : DoCmd.OpenReport "اسم التقرير", acViewPreview, , , acHidden Reports![اسم التقرير].Filter = "تسلسل=" & Me![تسلسل] Reports![اسم التقرير].FilterOn = True DoCmd.OpenReport "اسم التقرير" DoCmd.Close acReport, "اسم التقرير" طريقة ثا…

فكرة جميلة جداً . الله يعطيك العافية . ولك تحياتي

في حدث عند الفتح للنموذج ضع : Dim رقم_السجل_المطلوب As Long Dim عدد_سجلات_النموذج عدد_سجلات_النموذج = Me.RecordsetClone.RecordCount ' عمل حلقة تكرار لتحقيق شرط Do رقم_السجل_المطلوب = Int(Rnd * 15) ' أن يكون الرقم المتولد اكبر من الصفر وأن يكون أصغر أو يساوي عد…

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

الله يعطيك الف عافية . وزادك الله علماً . ولك تحياتي

الله يعطيك العافية . اغبطك على هذا العلم المتدفق . زادك الله علماً ووفقك لكل خير . ولك تحياتي