اذهب الي المحتوي
أوفيسنا

ابو جودي

أوفيسنا
  • Posts

    6,503
  • تاريخ الانضمام

  • Days Won

    167

كل منشورات العضو ابو جودي

  1. طيب ممكن مثال لو تكرمتى الله يرضى عليكى وعلى والديكى
  2. انا مش قادر افهم السؤال كويس حضررتك مش عاوز ايه اللى يتكرر بالظبط
  3. السلام عليكم ورحمة الله تعالى وبركاته ممكن لو حضرتك توصلتى للحل تضعى لنا مثال لتعم الفائده لك كل الشكر والتقدير
  4. استاذى الحبيب ومعلمى الجليل شكر الله لك متابعتكم الطيبة وكرمكم الذى لا حدود له اسأل الله تعالى لك البركة فى العمر والعلم والعمل وان يجعل كل سبيل علم تمهدوه لنا ان يكن سيل دخولكم الجنة فى اعلى درجاتها مع النبين والصديقين والشهداء ان شاء الله جزاكم الله عنى وعن امة محمد كل الخير ان شاء الله سأجرب نفسى فى تطبيق ما اهديتمونى وأوافيكم يالنتيجة ان شاء الله فى اقرب وقت دمتم على طاعة الله
  5. السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الكرام هل يمكن تحويل علامة الصح فى اداة CHECK BOX الى نص على سبيل المثال عندى جدول يحتوى على عدد اربعة من اداة CHECK BOX وفى كل سجل يتم اختيار احدهم فقط ولكنها تختلف من سجل لاخر هل يمكن عند طباعة تقرير بدلا من ان تظهر اربع اداوات CHECK BOX ان يظهر حقل واحد فقط ويتم تحويل علامة الصح " true " الى نص ولكنه سيختلف من سجل لاخر ؟
  6. رااااااااااااائع وومتاز بارك الله فيك استاذى الحبيب
  7. البرنامج قيد الاكمال لكن تواجهنى بعض المشاكل فى التنبيه للاذكار ممكن حضرتك توضح المشاكل فى التنبيه اولا حتى يتسنى فهم المشكله ومحاوله تداركها ان شاء الله
  8. اولا جزاكم الله كل الخير ثانيا اعتذر اعرف انى مقصر هذه المره بسبب عدم البحث ولكن يعلم الله احتاج لتلك المساله ضرورى جدا جدا فى عملى وكان الانترنت ضعيف لذلك بصراحه كان الاسهل اضافة موضوع اعتذر بشده سأحاول التجربة والرد عليكم ان شاء الله غدا لان للاسف الماسح الضوئى فى العمل كل الشكر والتقدير لكل اساتذتى الكرام
  9. السلام عليكم ورحمة الله تعالى وبركاته استخدم هذا الكود لمسح الصور عن طريق الماسح الضوئى من خلال زر امر Dim Ret As Long, PictureFile As String PictureFile = mypathofdb() & "\photos\" & Me.Control_No & ".jpg" Ret = TWAIN_AcquireToFilename(Me.hwnd, PictureFile) If Ret = 0 Then Me.pic_path = PictureFile Me.pic.Picture = Me.pic_path Else Kill PictureFile MsgBox "فشلت عملية المسح", vbCritical, "تنبيه" End If الكود ممتاز ل عمل مسح لصورة واحدة ولكن هل يمكن تعديل الكود بحيث لو تم توصيل جهاز ماسح ضوئى هاى اسبيد لسحب اكثر من صورة دفعة واحده يتم ذلك من خلال الاكسس ملاحظة هامة لا اهتم بحفظ مسار الصور ولكن احتاج فقط لسحب الصور من الماسح الضوئى عن طربق زر امر من فورم اكسس لغرض ما هل يمكن ذلك جزاكم الله كل الخير
  10. السلام عليكم ورحمة الله تعالى وبركاته صبحكم الله بكل الخير لو ان هناك مربع نص داخل نموذج وليكن اسمه pic_path هل يمكن عمل زر امر لفتح المسار الموجود داخل مربع النص هذا اى ان المسار لو كان D:\officena\a1\b1\c1 كيف يمكن عند الضغط على زر الامر ان يفتح هذا المسار كما لو تم فتح جهاز الكمبوتر ثم القطاع d ثم المجلد officena ثم المجلد a1 ثم المجلد b1 ثم المجلد c1 اعتذر للاطالة والاثقال عيلكم وجزاكم الله خيرا
  11. الحمد لله رب العالمين كل الشكر والتقدير استاذى الحبيب jjafferr تمت التجربة وتحقق المراد جزاكم الله خيرا
  12. الحمد لله سبحانه وتعالى يارب لك الحمد والشكر كما ينبغى لجلال وجهك ولعظيم سلطانك ربنا لك الحمد حمدا كثيرا طيبا طاهرا مباركا فيه استاذى الحبيب كل الشكر والتقدير جزاكم الله خيرا ورزقكم سعة فى الرزق وبركة فى العمر والاهل والعلم والمال والجنة ان شاء الله سأجرب واوافيكم بالنتيجة طبعا لا اقصد ان اجرب ما تفضلتم به على ولكن سأجرب نفسى انا فى التطبيق سؤال على استحياء استاذى الحبيب هل يوضع هذا الكود Me.strText = Characters_Windows_Refuse (Me.strText) فى حدث معين ؟ مثلا على الزر الخاص بالمسح الضوئى ؟
  13. راااااااااااااااااااااااااااااااااااااائع
  14. اولا انا طالب عالم فعليك التأكد من اساتذتنا الكرام بخصوص اولا اعتقد من وجهة نظرى لا يمكن الطباعة من النموذج يجب انشاء تقريرليتم طباعة البيانات التى تمت معالجتها مسبقا فى النماذج من خلاله ... وبخصوص ثانيا لا اعرف بصراحة ولكن سوف احاول البحث حتى يتفضل علينا اساتذتنا الكرام بالرد
  15. السلام عليكم ورحمة الله تعالى وبركاته قمت مؤخرا بتصميم قاعدة بيانات لعملى حتى اقوم بعمل تسجيل لكل الاعمال اليومية على قطع الغيار واجزاء الطائرات المختلفة وذلك عن طريق الماسح الضوئى ولكن تسهيلا للمستقبل جعلت كود حفظ الصورة يقوم بتسميتها بناء على قيم ثلاث حقول فى النموذج Ac/Reg , P/N , S/N وهنا كانت مشكلتى احيانا قد يكون فى الرقم المسلسل مقطعين بينهم علامة / على سبيل المثال 123/789 طبعا الويندوز لايقبل تلك العلامه حاليا انا اقوم بالتعديل فتصبح 123-789 بدلا من 123/789 هل من طريقة لتحويل العلامة / الى -
  16. السلام عليكم ورحمة الله تعالى وبركاته اعتذر للتأخير كنت اصلى العشاء اليكم المرفق المرفق بتنسيق اوفيس 2003 ولاخى الحبيب محمد سلامة تجد هذا الكود فى حدث عند الفتح لنموذج باسم frmSplash هذا هو الكود المسئول عن عدم فتح قاعدة البيانات لو تغير اسمها يجب كتابة اسم القاعدة بالامتداد وعدد الحروف وتحسب من ضمنها المسافات ان وجدت تقبل تحياتى بكل الحب والود On Error Resume Next If CurrentProject.Name = "ActualDaysCalcult.mde" And Len(CurrentProject.Name) = 21 Then Else MsgBox "It changed the name of the program should not change the name to be able to run it" & vbCrLf _ & "So the program will be shut down until the correct name of the program or contact the author using .." DoCmd.Quit End If ActualDaysCalcult-unprotected.zip ActualDaysCalcult-unprotected.rar ActualDaysCalcult-unprotected.zip استغفر الله العلى العظيم من كل ذنب كبير والله ما انسانى الا الشيطان ادين بالفضل لاستاذى الجليل ابو خليل فى هذا الموضوع وهو اولا لانه يتحملنى كثيرا وتقريبا اول من بدأت التعلم منه وكان اول من تحملنى حين بدات الاستاذ الفنان والساحر العبقرى الاستاذ جعفر استخدمت كود اظهار اسم اليوم بناء على التاريخ من خلال مرفق تفضل على به الاخ الحبيب ومعلمى الاستاذ ابا عمر بارك الله فيه اخفاء اطار الاكسس نهائيا بتلك الطربقة كل الشكر والتقدير لكل اساتذتى اعلم انى اخطأت فى حقكم انى استندت الى ما تعلمته منكم ونسيت ان انسب الفضل اليكم بعد رب العباد اعتذر لكم جميعا والله لم اقصد
  17. اولا : كل اساتذتى واخوانى واحبائى فى الله الكرام شوقى5 - سعيد صواب - at_aziz - القعر - Barna - karrar sabry - أبو عبدالله الحلوانى بعد كل الشكر والتقدير والعرفان سواء بصحبتكم الطيبة او توجيهاتكم البراقة او مساندتكم الطيبة بكلماتكم الرقراقة واطلب منكم جميعا على استحياء التماس العذر لى فى غيابى عنكم وتاخرى فى الرد على حضراتكم فوالله لم يكن لامبالاة او عدم إهتمام فكلكم أحبكم فى الله ولله ولكن كان تأخرى لظروف سفر وعمل فتحملونى برفق واسألكم العفو عنى بحلم ثانيا موضوع انها غير مفتوحة المصدر هو خطأ والله غير مقصو ولكنها فى الاصل مفتوحة المصدر هى والله مفتوحة المصدر فأنا والله لا ولم انسى افضالكم على جميعا فى هذا الصرح الشامخ دخلت اول يوم بهذا المنتدى ولم اكن اعرف عن الاكسس سوى اسمه حتى من الله على من فضله وعلمه ثم حضراتكم فوصلت الى ما صرت إليه فكيف ينسى المحب فضل أساتذته فقط قمت ببتعطيل الشيفت وتغير الامتداد للتمويه ووضعت كود عند تغيير اسم القاعده لا تفتح وكان كل ذلك من باب التجربة الشخصية لنفسى ولم اقصد رفع تلك القاعدة فقط تم ذلك دون قصد
  18. قمت بالتجربة والحسابات تعمل بكفائه يبدو ان المشكله من جهازك اخى alabri199
  19. السلام عليكم ورحمة الله وبركاته استاذنا ابوخليل كل الشكر والتقدير على هذه المعلومة الطيبة شكرا وبارك الله فيك
  20. استاذى الحبيب ادين لك ولك اساتذتى بالفضل بعد رب العباد فيما وصلت اليه وفيما احصله واتعلمه على ايديكم جزاكم ربى عنى وعن كل اخوانى كل الخير ان شاء الله احبكم فى الله
  21. انا دائما منبهر بأفكار حضرتك يا استاذ جعفر
×
×
  • اضف...

Important Information