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

مشغل صوتيات أرجو أن ينال استحسانكم متروك للتطوير وابدا الرأي اللون الأسود لمناسبة لون الشاشة فقط لا اكثر ولا أقل طريقة عمل البرنامج أولا اضافة سجل ثم كتابة اسم الملف الصوتي والضغط على حفظ حتى يحفظ المسار بالقاعدة للرجوع إليه فيما بعد إذا اردت تشغيله مرة أخرى فقط تختارة من القائمة اتركم مع البرنامج والله ولي التوفيق 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 هنا رابط التنزيل ولا تنسوني ووالديه وجميع المسلمين من دعائكم ،،،

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

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

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

ممنون منك استاذي الفاضل وفيت وكفيت يا طيب شكرا جزيلا لك مرة ثانية جزاك الله كل خير

حياك الله .... كنا نسعد بخدمتك ..

الله يبارك فيك استاذي الفاضل جزاك الله كل خير وشكرا جزيلا لردك السريع

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

ضع النقطة في المكان حيث الخطأ في الكود بين الكلمتين ( sNomFichier و PDF) sNomFichierPDF sNomFichier.PDF

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

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

الجدولين ليس بينهم علاقه ..... اذن على اي اساس يكون الوصل رقم 1 لحارث أم جميل أنظر ......

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

جرب هذا ... Me.Recallsales = Nz(DMax("[Recallsales]", "InvoiceHeader", "[PayType]='" & [PayType] & "'"), 0) + 1

مبارك عليك الترقية

تستاهل كل خير استاذ kha9009lid الف الف مبروك الترقية اللهم ربي يحفظكم جميعا يارب

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

الف مبروك للاستاذ 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 هو مسار الصورة المراد حذفها اعتذر لك لعدم تقديم مرفق لك والله مشغول فعلا ادعو الله لى شكرا لك

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

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

هذا التشجيع ، وإلا بلاش 🙂 ها ، في احد يقبل هذا التحدي 🙂 جعفر

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

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

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

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

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

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

يستاهل كل خير أخوي @kha9009lid ألف مبروك الترقية وعقبال إن شاء الله تصبح وزير أتمنى لك التوفيق

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

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

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

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

السلام عليكم 🙂 هكذا يمكنك عمل مجلد موثوق به على جهازك : . اذا شغلت البرنامج من مجلد غير موثوق به ، فلما تفتح البرنامج لأول مرة ، يعطيك هذا الشريط الاصفر ، والذي يجب ان تنقر على زر "تمكين" : . ولكن وللأسف الشديد ، فمعظم المبرمجين يقومون بعمل خاطئ وشائع ، بجعل النموذج منبثق ، والذي يملئ الشاشة بالكامل ، مما يجعل الشريط خلف الصورة ، فلن تراه ، واستعمال "شكلي او مشروط = نعم" ، مما لا يسمح لك ان تعمل اي شيء في الشاشة !! فيمكنك عمل التالي (اذا كنت محظوظ ولم يقفل عليك المبرمج هذه الطريقة) : امسك مفتاح الشفت على الكيبورد ، ثم انقر مرتين على ايقونة البرنامج لفتحة ، ولا تترك الشفت الى ان يفتح البرنامج ، ثم اعمل مجلد موثوق به (كما في الصورة اعلاه) ، ثم اغلق برنامجك ، ثم انقل برنامجك الى ذلك المجلد الموثوق به ، وافتح البرنامج من هناك 🙂 جعفر معلومة اضافية : او افتح برنامج الاكسس من قائمة Microsoft Office ، وقم بعمل مجلد التوثيق منه 🙂

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

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

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

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

اتفضل الملف لعله يفى بالغرض نسخة من طباعة شهادات.xlsm

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

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

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

اليكم فى المرفق كود يتكون منسطر واحد خاص بالترقيم التلقائى ( منقول ) New__________Microsoft_Excel.rar