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

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

الدالة الغبية والدالة العبقرية الدالة () DLookup والدالة () ELookup هل تصدق ان هناك دالة غبيه قد تستغرب ان اقول لك انها دالة () DLookup والكل منا يعرفها ويعرف استخداماتها فهي ببساطة تعيد او تسترجع قيمه واحدة من الجدول . عيوبها : 1. تعيد اول قيمة فقط تم وضعها في الدالة في عملية البحث . 2. لا تستطيع بإي حال من الاحوال اعادة الحقل المفهرس . 3. قد تحصل على نتائج متناقضة ومتقلبة حتى من نفس نوع البيانات التي تبحث عنها اذا كان لا يوجد مفتاح اساسي في الجدول وقمت بعملية ضغط قاعدة البيانات . ( جرب بنفسك وأنظر النتائج الغبية التي تعطيك هذه الدالة ) . 4. اداء هذه الدالة سيئ للغاية فهو لا يقوم بمسح ما تم البحث عنه سابقا ويفترض ان تكون القيم خالية بعد عملية كل بحث . 5. ظهور العديد من الاخطاء والرسائل من الاكسيس عندما تكون القيم خاليه . الدالة () ELookup العبقرية هل احد منكم سمع عن هذه الدالة ( دالة جديده تم اختراعها ) لنرى إمكانات هذه الدالة 1. قمة في الاداء والابهار والقوة والمتانة والمرونه . 2. تسمح لك بتحديد اي نوع من البيانات ولا تتقيد يحقول معينه . 3. تسمح لك بإستخدام الاقل MIN والاعلى MAX من القيم . 4. بعد عملية البحث والبدء بعملية استخدام جديده تجد القيم خالية وجاهزة لتقبل اي امر . 5. اسرع من الدالة () DLookup بعشر مرات . 6. قد ترغب في تعديل مسار البحث قبل استعمال الدالة فتستطيع ذلك بدون ظهور رسائل MsgBox لكل صف . 7. تقوم هذه الدالة بتمييز وتحسس ومعرفة ان هذا الحقل Zzero-length( طول صفري ) او خالي من البيانات Null . 8. اذا استخدمت في الاستعلامات فأنظر الى النتائج الباهره حتى لو استخدمت معها اربعة معايير مختلفه . قد يكون عيبها الوحيد انها تحتاج الى مكتبة DAO وهذا ليس بعيب ولكن لانها ليست من دوال برنامج الاكسيس . امثلة على طريقة استخدامها 1. ايجاد القيمة الاخيرة متضمنة الـ DESC ELookup("[Surname] & [FirstName]", "tblClient", , "ClientID DESC") اذا رغبت في اضافة حقول اضافية قم بالاضافة فهي تقبل جميع الحقول ولا تقتصر على حقل معين 2. ايجاد القيم الاقل الغير خالية Null بإستعمال المعايير ELookup("ClientID", "tblClient", "Surname Is Not Null" , "Surname") واليكم الدالة الجباره بكل معنى الكلمة ويفضل مقارنة نفس النتائج مع الدالة السابقة لتروا الفرق كل ما عليك هو وضعها في وحدة نمطية ومن ثم استخدامها سواء في النماذج او الاستعلامات او التقارير او الماكرو . Function ELookup(Expr As String, Domain As String, Optional Criteria, Optional OrderClause) On Error GoTo Err_ELookup ' DAO ملاحظة: تحتاج الى مرجع مكتبة Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSql As String 'بناء جملة الاستعلام strSql = "SELECT TOP 1 " & Expr & " FROM " & Domain If Not IsMissing(Criteria) Then strSql = strSql & " WHERE " & Criteria End If If Not IsMissing(OrderClause) Then strSql = strSql & " ORDER BY " & OrderClause End If strSql = strSql & ";" 'البحث عن القيم Set db = DBEngine(0)(0) Set rs = db.OpenRecordset(strSql, dbOpenForwardOnly) If rs.RecordCount = 0 Then ELookup = Null Else ELookup = rs(0) End If rs.Close Exit_ELookup: Set rs = Nothing Set db = Nothing Exit Function 'zahrah Err_ELookup: MsgBox Err.Description, vbExclamation, "ELookup Error " & Err.Number Resume Exit_ELookup End Function

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

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

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

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

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

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

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

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

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

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

حياك الله أخي سمير تم إجراء بعض التعديلات بناء على ملاحظاتك القيّمة و فيما يلي الرابط : الرابط الدائم لبرنامج الخليل المحاسبي "متجدد" آمل التجربة وتزيدي بملاحظاتك

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

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

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

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

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

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

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

اخي العزيز..لديك نموذج فرعي تدخل عن طريقه البيانات وليس هناك اشكال في الموضوع ولديك 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 يقوم الكود بالتحقق من اسم المستخدم إن كان مسجلا مسبقا في جدول المستخدمين أم لا

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

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

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

معلمي الجليل @أبو إبراهيم الغامدي تحية طيبة سرني مرورك على الموضوع وتعليقك المشجع لي ولأمثالي وما نحن إلا حسنة من حسنات علمكم أثلج صدر طريقة تفكيرك واستخدامك في أحد برامجك بدمج لغة VBA بلغتي html مع css فقمت قبل مدة بمتابعتك لأحصل على هذا الجديد ، وتصفحت بعضاً من مواضيكم القديمة كل هذا بصمت واستفدت من بعضها فشكراً لكم من الأعماق بثثت هذه التجارب لنراها فلم تكون حبيسة فكرك فأردت أن تشاركنا تجاربك ، فنماء العلم نشره وتزكيته ، فبارك الله في علمك وعملك وأهلك ومالك . ________________________________________________________________________ باختصار من هذه المسودات والمخططات وغيرها انطلق هذا المشروع المبارك وشعاري ( التخطيط قبل التصميم ) . لا أخفيك سراً هذا المشروع ليس وليد يوم ولا يومين ولا أسبوع ولا أسبوعين وإنما وليد سهر بالليالي وتفكير لدرجة أني اتحلم فيه . وحيث جاءت الفكرة بعد عيد الفطر 1440 بعد تصفحي لمكتبتي فوقعت عيني على مشروع أبوخليل فاطلعت على مجرى البرنامج وكيف يسير اعجبتني فكرته بعمل اختصارات كثيرة ودمج 4 عمليات في نموذج واحد ووضعت هذا في الحسبان وسرت عليه فقمت بتطويره ، فأي مشكلة تواجهني أحاول حلها أولا والبحث عنها في هذا المنتدى أو منتديات أجنبية فإذا لم أجد حلاً قمت بإنشاء موضوع جديد لأسألكم عنه فلم يبخل معلمينا بالمساعدة . فقمت بعمل مخططات ، ومشاهدة بعضاً من البرامج ، واختصرت بعضاً من العمليات ؛ ليخرج لكم هذا المشروع .

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

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

DoCmd.GotoRecord , , acNewRec

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

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

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

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

اسم الدخول هو اسمي الحقيقي

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

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

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

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

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

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

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

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