نجوم المشاركات

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

وعليكم السلام 🙂 تفضل: . جعفر تجريب.zip

الف . الف . مبرو اخ خالد ..... مزيد من التألق ...

اتفضل الرابع والخامس مفتوحى المصدر العطاء للتقسيط.zip

تحديث جديد تم إضافة شريحة السعر في نموذج الفاتورة :

وجدت هذا العمل الرائع في الانترنت منذ فترة وقدمه صاحبه مجاناً يرجو الدعاء لوالديه رحمهما الله تعالى :: بيانات صاحب العمل :: عبداللطيف طراقجي 2013و لغاية عام 2000 من عام ً مدرس تكنولوجيا المعلومات سابقا حاصل على شهادات في إدارة قواعد البيانات من شركة مايكروسوفت MCDBA SQLserver (Microsoft Certified Database Administrator) MOUS Access (Microsoft Office User Specialist) صفحته الشخصية My Certifications http://www.pinterest.com/abdotarakji/mycertifications هنا رابط التنزيل ولا تنسوني ووالديه وجميع المسلمين من دعائكم ،،،

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

تفضل لك ما طلبت ولاحظ هذه الصورة فسوف توضح لك الذى تسأل عليه طب الفم والاسنان.xlsx

يفيدك في أي امر تريده أنت أخي العزيز تقبل تحياتي

انا حذفت List0 و List2 و List3 و List4 و List5 ، لهذا السبب سالتك ليش هالشغل كله 🙂 جعفر 1093.Ex2.accdb.zip

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

بجد بجد ما اعرف اشكرك ازى -- فعلا انت استاذ

تفضل 🙂 . . بينما اذا غيرنا المعيار الى 90=> . جعفر 1091.1.accdb.zip

بسم الله ماشاء الله مجهود جبار وشغل رائع جدا جدا جدا جدا بالتوفيق ان شاء الله

أخي / سمير الجبالي ملاحظاتك تهمني كثيراً لكن البرنامج هو ( مشروع كبير جداً ) حتى الآن لم يكتمل جاري التطوير حسب ما لدي من وقت . وسأقوم لا حقاً بشرح ما تيسر منه وكيفية التعامل معه . اكتب ملاحظاتك وتصوراتك بشرح كافي ولا حقاً سيتم إضافة ما تيسر منها . وبالتوفيق .

استاذنا القدير / @محمد طاهر احب واسعد بالالتزام بالقوانين والارشادات ولو نظرنا الي بلد مثل المانيا نسعق من كثرة الالتزام بالارشادات لدرجة الملل ولهذا هي متقدمة جدا وارسل اليكم كل تحية وتقدير لاهتمامكم بمثل هذه الجوانب المفيدة لصاحبها قبلكم قمت بالتعديل علي ملفي الشخصي لكي اصتــف مع الملتزمين جزاكم الله كل خير

جرب وافني بالنتيجة تجريب.accdb

شكرا استاذى العزيز تم عمل القائمة المنسدلة وتم تغيير Accept و Ref بكلمتى تم الصرف / تم الرفض والكود يعمل بكفاءة شكرا لك استاذى الحبيب

ويمكنك اضافة الكود عند فتح النموذج

في وجهة نظري ، اذا رأيت احد الاعضاء يرد على اسئلة الاعضاء ، واجاباته تفي بحل السؤال (من المعروف ان هناك عدة طرق لحل اي سؤال ، وهناك طرق افضل من اخرى) ، فأظل اراقب هذا العضو لمجموعة مشاركات ، حتى اتاكد من علمه ، ومواظبته للمنتدى ، ولو بشكل متقطع. عندها اقوم بترشيح ترقيته الى درجة خبير 🙂 جعفر

ويمكنك ايضا اضافة الكود في نهاية كود زر الحفظ اذا كان موجود عندك

الف مبروك للاستاذ kha9009lid مزيد من التألق والنجاح ان شاء الله بس كيف واحد زي حلاتي بيصير خبير وقد اشتعل الرأس شيبأ؟ بس يكفي عندنا خبراء في الموقع بنستمع لنصائحهم وحلولهم

وعليكم السلام تفضل المجموع.xls

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

عمتا افصل لك الاكواد تباعا هنا اولا كود انشاء مجلد جديد فى نفس مسار قاعدة البيانات Dim des, fileto As String Set BnGemy = CreateObject("Scripting.FileSystemObject") des = CurrentProject.Path & "\" & "User Photo" If Len(Dir(des, vbDirectory)) = 0 Then MkDir Path:=des End If حيث ان des هو المسار الخاص بالمجلد ثانيا كود اختيار الصورة من نوع jpg Dim x As Object Set x = Application.FileDialog(3) With x If Not IsNull(Attach) = True Then .InitialFileName = Attach Else .InitialFileName = "" End If .AllowMultiSelect = False .Filters.Clear .Filters.add "All jpg", "*.jpg" If .Show = True Then fileto = Trim(.SelectedItems(1)) End If End With Set x = Nothing end if حيث ان fileto هو مسار الصورة المختارة ثالثا كود نسخ الصورة من مسارها المحدد الى مجلد User Photo بنفس كود العميل SN حيث سيتم تسميتها بهذا الاسم تلقائيا اضف هذا الكود الى وحدة نمطية جديدة Option Compare Database Private Declare Function CopyFileA Lib "kernel32" (ByVal ExistingFileName As String, _ ByVal NewFileName As String, ByVal FailIfExists As Long) As Long Public Function Copy(FileSrc As String, FileDst As String, Optional NoOverWrite As Boolean = True) As Boolean Dim Flag As Long Dim Name As String Name = Right(FileSrc, Len(FileSrc) - InStrRev(FileSrc, "\")) If CopyFileA(FileSrc, FileDst & Name, NoOverWrite) Then Copy = True Else Copy = False End If End Function وهذا كود النسخ Copy fileto, des & "\" & SN, True حيث ان fileto كما قلنا سابقا هو مسار الصورة المختارة و SN هو كود العميل فى جدول Users والذى سيتم تسميت الصورة به لم يتبقى الى كود الحذف Kill PhotoUser PhotoUser هو مسار الصورة المراد حذفها اعتذر لك لعدم تقديم مرفق لك والله مشغول فعلا ادعو الله لى شكرا لك

السلام عليكم الله يبارك فيكم جميعا واتقدم بالشكر للاستاذ جعفر وادارة الموقع على ثقتكم الكبيرة واتمنى ان اكون اهل لثقتكم الغالية

الف مبروك استاذ خالد منها للأعلى إن شاء الله

أخي عبداللطيف ضع هذا الكود في مربع نص "UN" اسم المستخدم في هذا النموذج الموضح في الصورة: Private Sub UN_AfterUpdate() Dim X X = (DLookup("[UN]", "Users", " deCode([UName],'UN')= UN ")) If Not IsNull(X) = True Then MsgBox "تنبيه اسم المستخدم " & " ( " & [UN] & " ) " & " تم تسجيله مسبقاً جرب اسم آخر", vbCritical + vbDefaultButton1 + 1572864, Compan UN = Null Else: Exit Sub: End If End Sub يقوم الكود بالتحقق من اسم المستخدم إن كان مسجلا مسبقا في جدول المستخدمين أم لا

ضع رز وفي حدث عند الضغط ادرج الكود ...... وسمي الزر جديد

مبروك أستاذنا الكريم وأعانك الله ووفقك

وعليكم السلام مبارك عليك الترقية استاذ خالد نفع الله بكم ومنها للأفضل .

وعليكم السلام مبروك استاذ خالد وفقك الله وبارك فيك

مبروك اخي الكريم أعانكم الله على حمل المسؤولية

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

DoCmd.GotoRecord , , acNewRec

كل مالدي من معلومات انما يعود الفضل فيه بعد الله اليكم استاذي الكريم 🌹

شكرا على هذه المعلومة 🙂 جعفر

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

صحيح اخوي كاسر ، ولكنه يقدر يفتح برنامج الاكسس (مو برنامجه) من قائمة Microsoft Office (او اي برنامج اكسس) ، ويقوم بعمل مجلد التوثيق منه 🙂 وسأقوم بإضافة هذه الفقرة على مشاركتي السابقة ، حتى تكون المعلومة متكامله هناك 🙂 جعفر

في اعتقادي هذا هو السبب لن يعمل معك البرنامج حتى تتواصل مع قسم الـ It بالشركة وتطلب منهم اعطاء صلاحيات لجهازك لتشغيل التطبيقات التي تحتوي على تعليمات برمجية ::بالتوفيق::

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

حسنا جرب المرفق مثال2.xlsm

السلام عليكم : اريد كود ترحيل البيانات من data الي الشهادات حسب فئة الفصل الموجود في الخلية F2 .مع زيادة عدد الشهادات حسب عدد الفصل .مع الشرح والتوضيح. بارك الله فيكم طباعة شهادات.xlsm

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

السلام عليكم هذا اقتراح جرب المرفق مثال1.xlsm

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

السلام عليكم ورحمة الله وبركاتة هذا المثال / للأستاذة زهرة العبدالله عن الدالة DLookup_ELookup وأضعه هنا بناء على طلب احد الاعضاء لأن طلبه كان في موضوع قديم جدا للاستاذة ::بالتوفيق للجميع :: za_DLookup_ELookup.rar

فكرة جميلة وارجو التعمق في تناول الاكواد بطريقة سهلة ومبسطة وموفق انشاء الله

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

بالفعل كود رائع أخي هشام وعمل ممتاز بارك الله فيك. وهذا مثال (حسابات البنك) يعتمد على وجود بيانات داخل نطاق أو جدول معين ويمكنك من ايقاف تمييز الصفوف وتشغيله، مع العلم أن الخلية التي بها ألوان مسبقاً لا تتأثر عند إعادة لونها مرة أخرى. وقد وضعته لتعم الفائدة، وبالتوفيق للجميع. Balanc.rar