abouelhassan

تسلم ايدك استاذى أبو عبدالله الحلوانى حاجة ممتازة ينقص شئ بسيط العمود iBill_Number قد يتضمن على كلمة اضافة للرقم مثل رصيد1 وهكذا عند الاستيراد الكود لم يحضر من الاكسيل الخانات التى تحتوى على كلمة اضافة للرقم اكون ممنون لحضرتك جدا اذا تم التعديل هذا ربنا يحفظك يارب وال بيتك اجمعين اشكر حضرتك جدااا وبعد استيراد البيانات عند الدخول للفورم الرئيسى بالبرنامج كل شئ اصبح لا يعمل مش عارف ليه مثل التقرير اليومى وطباعة التقرير وباقى التقارير فى حالة اختيار التاريخ من 1/7/2020 الى 28/2/2021 ولا يعمل الا باختيار 1/1/2021 الى 28/2/2021 اما سنة 2020 لا يحضر لها بيانات حفظك الله اخى ارجو المساعدة مشكور 1311.11.DATA12.rar

بارك الله فيك اخى استاذ essam rabea وفضلك على عباده ان شاء الله الجدول اسمه teble_item بارك الله فيك اخى فى الله New Microsoft Excel Worksheet.xlsx

بارك الله فيك اخى استاذ essam rabea ربنا يحفظك ممكن استأذن حضرتك تطبيق الاستعلام الالحاق على البرنامج لاننى نفذت ما تفضلت بشرحه ولاذالت الرسالة الخطأ تأتى مشكور اخى حفظك الله ورعاك 1311.11.DATA12.mdb

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

بارك الله فيك اخي الكريم شكر وتقدير و احترام من اخيك

السلام عليكم ورحمة الله وبركاته احتاج استشارة اخوانى الاساتذة انا تعبت جدا والله فى النسخ واللصق وخايف انقل بيانات غلط واقعد اراجع بالايام اتأكد انى نسخت ولصقت بيانات صح كيف يمكننى نقل البيانات من الاكسيل الى البرنامج الاكسس لانى بعمل كوبى وبيست واكتب رقم الصفحة بنأء على اسمها وانسخ عامود الرقم المشكلة تكمن فى المبالغ لان عندى 7 اعمدة اكسيل بكل صفحة ليس العمود كله به مبالغ يعن مثلا العمود الاول مخزن 1 به 6 مبالغ اسفل بعض ثم فرغ لان المبالغ بمخزن 5 واظللهم وانسخهم فى الاكسيس تحت عمود iAmount واكتب رقم المخزن يعنى كل عامود مخزن به ارقام وفرغات وبقالى اسبوع انقل بيانات صفحة واحدة ولسه فيه 66 صفحة وبرنامج الاكسس كل البيانات فى جدول واحد ممكن لو فى طريقة اسهل للاستيراد البيانات تدلونى عليها ربنا ييسر لكم امركم يارب ويعزكم بين عباده وزادكم من فضله يارب هذا شكل البيانات بالاكسيل عندى فى صفحة من 66 صفحة نفس الشكل باختلاف اسم الصفحة بارك الله فيكم يارب وجعلكم عونا لنا اللهم امين شرح.xlsx 1311.11.DATA12ااااااااااااا.rar

للرفع

وايضا اخى الغالى البرنامج الموجود بالمشاركة به هذه التعليمات 1. Open the downloaded zip file ("isd_No_Setup.zip") 2. Save/Export the isd2000.mdb file to a folder on your computer. 3. Open your MS Access application and import the form "frmInactiveShutDown" from the isd2000.mdb database file. 4. Open the form "frmInactiveShutDown" in design mode, edit the OnOpen event procedure, and set the "intMinutesUntilShutDown", and "intMinutesWarningAppears" variables to appropriate values, or use the default settings. Save and close the form. 5. Put the following line of code in your startup procedure, or in your switchboard form OnOpen event procedure: DoCmd.OpenForm "frmInactiveShutDown", , , , , acHidden Or, import the macro "macInactiveShutDown", and execute it (use the RunMacro action) from your autoexec macro. TIPS معرفتش اعملها والبرنامج مرفق رجاء المساعدة مشكور اخى isd2000.mdb

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

بارك الله فيك اخى استاذ محمد سلامة وجدت ملف جاهز وكود للاستاذ الكريم جعفر بارك الله فيه هل بالامكان توضيح اين اضع هذا الكود فى اى حدث مش فورم معين احتاج عند ترك اى فورم لمدة يغلق البرنامج Private Sub Form_Load() ' start the count down in 3 minutes (60 x 3 = 180) Me.Tag = 180 ' interval is every second Me.TimerInterval = 1000 End Sub Private Sub Form_Timer() On Error Resume Next '********************************** ' Bail out when count down is zero '********************************** Me.Tag = Val(Me.Tag) - (Me.TimerInterval / 1000) Me.Caption = "Form will exit in " & Me.Tag & " seconds" If Val(Me.Tag) <= 0 Then DoCmd.Quit End If End Sub مشكور اخى بارك الله فيك

للرفع رفع الله قدركم

بارك الله فيك اخى الغالى ظهر هذا الخطأ عند التشغيل

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

السلام عليكم اخوانى الاساتذة الافاضل الكرام ممكن اذا لم استخدم الماوس او لوحة المفاتيح لمدة دقيقةالبرنامج يظهر فورم الباسورد واذا كانت دقيقتين البرنامج يغلق كليا مع الشكر وخالص الدعاء 1311.11.DATA12.rar

كيف يمكن الاستفادة من الأداة لعمل نسخة احتياطية واستعادتها مع الشكر الجزيل الأساتذة الأفاضل

هنا اخى ظهر لى الخطأ Private Sub Main_iBill_Number_BeforeUpdate(Cancel As Integer) varBillNo ووجدت الحل اخى الحمد لله لم اكن اعلن عن المتغيرين Dim varBillNo As Variant Dim FindRecord As Boolean بارك الله فيك اشكرك اخى

تحياتى اخى

بارك الله فيك اخى استاذ سامي الحداد بعد اذنك انا اضفت الكود للفورم ومشتغلش فى حين انه يعمل فى الملف المرفق السابق ممكن بعد اذنك تشرحلى اعمل ايه ربنا يحفظك احترامى اخيك

بارك الله فيك اخي

السلام عليكم الاساتذة الافاضل بارك الله فيكم امين اقوم غصب عنى بادخال مستندات اكثر من مرة ويحدث مشاكل بسبب هذا وفى اوقات يتشابه الرقم المدخل هل بالامكان مثل الاكسل هذا الكود بالاكسيل اريد مثله للاكسس فى الفورم المسمى frm_Items_Entry If m <> 0 Then Reponse = MsgBox("رقم المستند مكرر هل تريد الاستمرار: " & Chr(10) & _ Join(Arr, " ; "), 524292) If Reponse <> 6 Then Exit Sub End If هنا عند الادخال والترحيل وعند الضغط على زر ترحيل هل بالامكان ان تظهر لى هذه الرسالة فى حالة تكرار الرقم فاذا كنت ادخلت المستند اذاهب واتأكد منه واذا كان الرقم مكرر اضغط نعم فيستمر العمل بارك الله فيكم اخواتى الافاضل 1311.11.DATA12.mdb.zip

الله يسعد ايامك يارب جزاك الله عنى كل خير يارب اتقدم اليك بخالص الشكر والعرفان اخى الحبيب استاذى الغالى استاذ جعفر حفظك الله يارب

حبيبى استاذ جعفر بارك الله فيك ولك اعزك الله اخى استاذ احمد الف شكر لحضرتك بارك الله فيك احتاج فى فورم الفورم اسمه frm_Items_Pages فوق بالاعلى وضعت به تكست واحدة اريد ان يتم جمع كل الصفحة بها ما تم التنفيذ عليه هنا فورم اسمه frm_items_dates وهو تعديل جميل ومفيد يعنى التنفيذ تم فى فورم اخر ما احتاجه معادلة جمع للاعمدة كلها تظهر فى التكست بوكس المكتوب بجانبهSTORE1+2+3+4+5+6+7 فاهمنى استاذى احتاج ان افتح فورم frm_Items_Pages وعند استدعاء صفحة اعرف اجمالى المبالغ به فى التكست بوكس الذى بالاعلى بارك الله فيك اخى فى الله لا حرمنا منك ابدااااااااا يارب DATA12.mdb

استاذى الغالى لقلبى الله يحفظك يارب استاذ jjafferr تم حل المشكلة والحمد لله راجعت الشرح وقمت بالتنفيذ نعم عندى ملف قائم عليه العمل فعلا وبه بيانات وحجمه كبير فأضع ملف واقوم بالتنفيذ على ملف العمل غصب عنى الملف حجمه كبير جدااا بعد العمل عليه ارجو من حضرتك لا تنسانى بموضوع اول مشاركة بهذا الموضوع معلش مليش غيركم يسعفنى لان هذه المشكلات قابلتنى اثناء العمل الفعلى سامحنى بالله عليك لا تزهق من اخيك اقبل راسك لجميل صنعك اخى اريد معادلة فى التكست بوكس المكتوب بجانبها STORE1+2+3+4+5+6+7 يظهر مجموع Store_1+store_2+store_3+store_4+_store5+store_6+store_7 يعنى مجموع الصفحة ككل يظهر هنا فى هذة التكست رقم واحد مجموع كل الاعمدة فاهمنى استاذى الفورم اسمه frm_Items_Pages اريد تنسيق الارقام يكون 0.00 لان عندى الارقام ساعات تكون 0.0000000000000000 بارك الله فيكم واعزكم زاد خيركم والملف المرفق اول مشاركة احبك فى الله

اعتذار استاذى jjafferr بعد اذنك استاذى عند التطبيق ظهرت هذه المشكلة واختفاء بيانات الصفحة مش عارف ايه السبب انا طبقت كما بالشرح استاذى احترامى وتقديرى

الف شكر لحضرتك ربنا يحفظك يارب ويديك الصحة والعافية ويبارك لك في اسرتك الكريمة يارب اسعد الله كل اوقاتك بكل خير وسعاده يارب اسعدتنى جداااا جزيت الجنة يارب حبيبي والله