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

السلام عليكم 🙂 اللغة العربية هي المطلوبة هنا 🙂 المرفق المضغوط فيه مجلد وبرنامج اكسس ، والبرنامج اللي يعمل لنا QR code الموجود على الرابط التالي: https://sourceforge.net/projects/zint/ ويتم حفظ الصورة هنا Data > QR_images وعلشان كل شيء يشتغل تمام ، رجاء لا تعمل تغيير في مكان الملفات ولا المجلدات ، ولا تغيير اسمائها (طبعا تقدر تعمل اللي تريد ، بس على اساسه يجب تغيير الكود كذلك) وهي النتيجة: وخلونا نشوف من يقدر يقرأ الصورة 🙂 ----------------------------------------------------------------------------- إضافة في يوم الثلاثاء 7 / 5 / 2019 : عملت مثال يعمل على 2003 🙂 ----------------------------------------------------------------------------- إضافة في يوم الجمعة 14 / 6 / 2019 : باركود بطاقة دخول الطائرة (Boarding card) وهي من نوع PDF417 اختار الحقول اللي تريدها تظهر في QR code بإختيار مربع صح/خطأ : . والنتيجة: . و باركود 128 (ويمكن عمل اي نوع من انواع الباركود) . والتقرير (وبعد اذن اخي محمد سلامه ، فقد استعملت الصورة التي استعملها في مثاله 🙂 ) . وبهذه الطريقة نرى اننا لا نحتاج ان نحفظ صورة لكل سجل (واذا اردنا ذلك ، فنعمل تعديل في الكود ليقوم بذلك). وهذا الكود مضافا اليه عمل الباركود العادي : Private Sub Make_QR_Barcode() ' 'https://sourceforge.net/projects/zint/ ' If Len(Me.str_Text & "") = 0 Then Exit Sub Dim App_Name As String Dim Output_File As String Dim Output_Text As String Dim Encoding As String Dim Command_Line As String App_Name = Chr(34) & Application.CurrentProject.Path & "\Data\zint.exe" & Chr(34) Output_Text = Chr(34) & Me.str_Text & Chr(34) 'QR code Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "QR_code.png" & Chr(34) Command_Line = App_Name & " -o " & Output_File & " --rotate=0 --eci=24 --scale=2 -w 10 --height=100 --barcode=58 -d " & Output_Text 'Debug.Print Command_Line Shell_n_Wait Command_Line, vbHide 'Barcode 128 Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "Barcode.png" & Chr(34) Command_Line = App_Name & " -o " & Output_File & " --rotate=0 -d " & Me.ID 'Debug.Print Command_Line Shell_n_Wait Command_Line, vbHide 'PDF 417 Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "PDF_417.png" & Chr(34) Command_Line = App_Name & " -o " & Output_File & " --rotate=0 --eci=24 --binary --barcode=55 --mode=3 -d " & Output_Text 'Debug.Print Command_Line Shell_n_Wait Command_Line, vbHide End Sub ----------------------------------------------------------------------------- إضافة في يوم الجمعة 22 / 6 / 2019 : تم عمل VCard QR ليخزن معلومات الشخص مباشرة في الموبايل 🙂 . وبإستخدام برامج الموبايل والتي تقرأ QR Code ، يمكنك حفظ معلومات VCard QR مباشرة في عناوين الموبايل 🙂 البرنامج zint الموجود في المرفق ، فيه امكانية عمل عدة انواع من QR والباركودات ، ولكن كل نوع من هذه الانواع له صيغة خاصة في عمله ، فمثلا كود VCArd QR هو: Function Add_Items() Dim VCard_Text As String 'clear field VCard_Text = "" VCard_Text = "BEGIN:VCARD" & vbCrLf VCard_Text = VCard_Text & "VERSION:3.0" & vbCrLf VCard_Text = VCard_Text & "N:" & Me.[Family Name] & ";" & Me.[Given Name] & ";" & Me.[Additional Name] & ";" & Me.[Name Prefix] & ";" & vbCrLf VCard_Text = VCard_Text & "FN:" & Me![Name] & vbCrLf VCard_Text = VCard_Text & "ORG:" & Me.[Organization 1] & vbCrLf VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 1 - Type] & ",VOICE:" & Me.[Phone 1 - Value] & vbCrLf VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 2 - Type] & ",VOICE:" & Me.[Phone 2 - Value] & vbCrLf VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 3 - Type] & ",VOICE:" & Me.[Phone 3 - Value] & vbCrLf VCard_Text = VCard_Text & "ADR;:" & ";;" & Me.[Address 1] & ";;;;" & vbCrLf VCard_Text = VCard_Text & "BDAY:" & Me.[Birthday] & vbCrLf VCard_Text = VCard_Text & "EMAIL;TYPE=" & Me.[E-mail 1 - Type] & ":" & Me.[E-mail 1 - Value] & vbCrLf VCard_Text = VCard_Text & "EMAIL;TYPE=" & Me.[E-mail 2 - Type] & ":" & Me.[E-mail 2 - Value] & vbCrLf VCard_Text = VCard_Text & "NOTE:" & Me.Notes & vbCrLf VCard_Text = VCard_Text & "URL:" & Me.[Website 1] & vbCrLf VCard_Text = VCard_Text & "END:VCARD" Add_Items = VCard_Text End Function والذي يختلف عن PDF417 والذي يختلف عن غيره. المرفق في ملفين بصيغة txt والذي فيهما جميع الاوامر التي يمكن استعمالها لعمل مختلف انواع الباركود 🙂 ----------------------------------------------------------------------------- إضافة في يوم السبت 2 / 11 / 2019 : هنا مثال لعمل بطاقة عمل ID.zip ، بأصغر حجم QR code (رجاء ابقاء حجمه ، فقد توصلت الى هذا الحجم والكود بعد محاولات ساعات طويلة) : . وهذا هو QR code . اما تفاصيل عمل البطاقات ، فهذا الرابط فيه تفاصيل كاملة: . جعفر ملاحظة: 1. المرفق في هذه المشاركة هو البرنامج الاخير ، وفيه جميع التعديلات التي في بقية المشاركات. 2. الـ api التي تنتظر إنتهاء الامر ، ثم تنتقل للسطر التالي في الكود اسمها ShellWait ، هذه لا تتعامل مع Unicode / utf-8 / ومنها الحروف العربية بطريقة صحيحة : http://access.mvps.org/access/api/api0004.htm بينما هذه تمام : https://github.com/xxdoc/vb6-Shell-Wait/blob/master/Shell %26 Wait v2/modShellWait.bas zint QR 3.zip ID.zip Shell_n_Wait_2021-12-13.txt.zip

01.accdb

بالعكس أخي الهدف من المنتدى تعليمي ...... نستفيد ...... ونفيد ..... بارك الله فيك

انا تعمد ترك المثال لك حتى تنقب عن اسرار فعله .... لكن انا اسف جدا ... تابع الصورة ونفذ .....

المشكلة أنك لم تقم بنسخ مربع النص الموجود باسم txtRecordBar موجود تحت مربعات النص لديك .... وانتبه لمصدر بياناته

كلام الاستاذ . @Shivan Rekany صحيح ..... والهدف من المنتدى تعليمي .... ان لم تصل الى نتيجة كرر السؤال حتى تجد الاجابة في المنتدى

هذه طريقة لاخفاء الاسم بعد اختياره من القائمة ..... جربها ComboBox (1).accdb

السلام عليكم اتمني أن تستفيدو من هذا الموضوع والمناقشات التي دارت فيه @qathi @حلبي تحياتي

السلام عليكم ورحمة الله أرفق ملفك أو جزءا منه للعمل عليه... وهل تضع الرسم 1500 دج في حالة ما إذا كان الرسم على المبلغ حسب النسب المعطاة أقل من 1500 دج؟ الملف المرفق فيه بعض ما تريد (على ما أعتقد)... بن علية حاجي Classeur1.xlsx

ارفق النموذج حتى نستطيع معرفة المشكلة ... لن تحل المشكلة نظريا ....

أهلا بالاستاذ @عبد الله قدور أرجو أن تفيدني بسبب ضبط حقل المعرف على هذا النوع من البيانات وكيفية التعامل الجداول المرتبطة معه! لأنه في حد علمي لا أعلم أحدا تكلم عن فائدة ضبط المعرف على هذا النوع من البيانات والفائدة منه... أما عن سؤالك فإن استخدام هذا الضبط في النموذج يعيد بيانات مبهمة! ويعود السبب في ذلك إلى أن البيانات العائدة من الحقل في النموذج هي من نوع البيانات Byte.. والمعروف عن هذا النوع من البيانات يعيد مصفوفة بيانات بطول البيانات المدخلة.. ولكي تستخدم هذه البيانات يجب أخراجها من المصفوفة أولا.. وحتى لا أشغل تفكيرك بكيفية ذلك! فإن أكسس وفر دالة تقوم بهذا العمل نيابة عنك وهي StringFromGUID ولكي نستخدمها في الدالات المجمعة نتبع الطريقة التالية Private Sub CMD_TEST_Click() X = DLookup("ID&CHR(13)&NAME", "TBL01", "ID=" & StringFromGUID(Me.ID)) MsgBox X End Sub لكن إن طلبت الاختصار! يمكنك استخدام الطريقة التالية على سبيل المثال Private Sub CBO_FIND_AfterUpdate() Dim RS As DAO.Recordset Set RS = Me.RecordsetClone RS.FindFirst "Mid(ID, 2, 8) ='" & Me.CBO_FIND & "'" If RS.NoMatch Then Exit Sub Me.Bookmark = RS.Bookmark End Sub أرجو ملاحظة الجانب الأيسر في مجال البحث للفائدة: هناك دالة أخرى بعكس السابقة أعلاه وهي GUIDFromString أرجو أن تقرأ عنهما في ملف التعليمات! إليك هذا المثال:REPLICATION ID(GUID).MDB

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

لا عليك أخي @kanory لم أكن أتوقع أن الأمر من تنسيق الشرطي أشكرك على شرحك المصور كنت تكتفي بالنص تعبتك معايا

لا حسب ماتريد تقدر تستخدم لقب او اي اسم تريد

تمام يعمل بشكل ممتاز شكرا اخي الكريم هههههه اما بالنسبه‌ للسۆال : هذا الاسم لقبي سيغيره قريبا🌷

اذا اليك الحل القي نظرتا الى الصور غير مصدر كلا كومبوبوكسين الى هذا الاستعلام اليك التعديل ComboBox (1).accdb غيرت اسمك ؟

اهلا استاذ شفان سعيدين بعودتك

هاكذا حال الجميع المهم أنك بخير .. ونسعد بوجودك معنا

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

أهلا بأستاذنا الغالي @Shivan Rekany لك وحشة .. أفتقدناك.. مبارك عليك الشهر الفضيل .. لا اعرف سبب غيابك عنا .. لكن أسأل الله أن تكون في خير ونعمة ..

بارك الله فيكم جميعا كلها حلول ممتازة جزاكم الله كل خير وكل عام وانتم بخير

بعد اذن أخي بن علية هذا الحل (في الخلية P2 تضع قيمة الحد الأدنى اذ ربما احببت ان تغير قيمته) المعادلة =IF(COUNTA($B2:$C2)<2,"",MAX(OFFSET($O$2,MATCH(C2,$N$2:$N$4,0)-1,,)*$B2,$P$2)) الملف مرفق Classeur_salim.xlsx

السلام عليكم جرب المرفق وفيه حل بسيط (كود بسيط)... بن علية حاجي test.xls

السلام عليكم ورحمة الله اخى الكريم ناصر كل عام و انتم بخير انا استخدم اوفيس 2016 و الملف فتح عندى بدون مشاكل يؤسفنى عدم القدرة على مساعدتك حقيقة و لا ادرى اين هى المشكلة

لنسخ القيم فقط هذا الكود Option Explicit Sub Copy_range_Values() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim My_max%: My_max = Application.Max(Sheets("الربط").Range("f:f")) With Sheets("العمليات").Range("f5") .Resize(500, 54).ClearContents .Resize(My_max + 1, 54).Value = _ Sheets("الربط").Range("f5").Resize(My_max + 1, 54).Value End With With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub الملف من جديد Omra_values.xlsm

عند تعديل المسميات عدل ايضا المسميات في الكود ؟؟ Me.txtCurrentRecord = Me.ID Me.ID.BackColor = Me.txtCurrentRecord.BackColor Me.Name_i.BackColor = Me.txtCurrentRecord.BackColor Me.Tel.BackColor = Me.txtCurrentRecord.BackColor ليس للامتداد علاقة في ذلك ....

ما شاء الله حل روعة استاذنا الفاضل جزاكم الله عنا خير الجزاء بعد اذن استاذن الحبيب الاستاذ بن علية حاجى واثراء للموضوع اتفضل الملف Book.xlsx

السلام عليكم جرب المرفق لعل فيه ما تريد... بن علية حاجي المصنف2.xlsx

السلام عليكم تم عمل المطلوب بمعادلة صفيف... بن علية حاجي Book.rar

حل مبدئي لحين مساعدة الأخوة المتخصصين 1.xlsx

بعد إذنك اخي @عبد اللطيف سلوم تفضل هل هذا طلبك ؟؟؟؟ Colored Row.mdb

شوف هنا حاول تطبق الافكار تحياتي

انا لم أر اي خطأ مع ذلك تم تحديث البرنامج ليبدو أكثر وضوحاً 1-الأصناف تظهر مرتبة ابجدياُ 2- تلوين الوارد بلون والمنصرف بلون أخر 3-تعليم صفوف الشبكة حيث يوجد بيانات 4- اذا كانت كمية الوادر او المنصرف تساوي صفر لا تظهر في التقرير 5-تمييز صف المجاميع بلون مختلف عسى أن ينال الاعجاب لا استطيع التحسين أكثر من هذا special_data_sorted.xlsm

السلام عليكم يمكنك وضع التقارير التي عددها 30 كذلك يمكن اختيار التقرير المحدد عن طريق كمبو بوكس التي يمكنك اظهارها بزر اظهار التقارير اعلمني النتيجة النهائية Database3.rar

فورم الصادر والوارد اكسل الفيديو الصور الملف فورم الصادر والوارد اكسل.rar

جرب المرفق لعل فيه ما تريد... ترتيب مشروط.rar

بسم الله الرحمن الرحيم ( رَبَّنَا آتِنَا مِن لَّدُنكَ رَحْمَةً وَهَيِّئْ لَنَا مِنْ أَمْرِنَا رَشَدًا ) تحياتى و ايام مباركه ايام مبشره و هموم راحله يا الله هديتى لكل اعضاء المنتدى برنامج دليل حسابات و مخازن ECO2_DuClick_store مميزات البرنامج ( يمكن تطويعه لاستخدامات اخرى ) كود رقم الصنف تلقائى ارصدة الاصناف تلقائى فورم بحث و اضافه استخراج رصيد حركة الصنف بين تاريخين سهولة البحث عن البنود / الاصناف عند الادخال بحركة اليوميه سهولة التنقل بين الصفحات كود طباعة كارت الصنف و ارصدة الاصناف مع تحياتى و تقديرى للجميع مجرد شخبطه على الحيط مما تعلمته من المنتدى البرنامج مفتوح المصدر للجميع للاستفاده من الاكواد و المعادلات يمكن التعديل عليه لزيادة نطاق الصفوف بسحب المعادلات يمكن استخدامه للافراد و للشركات مرفق البرنامج مع الشرح لاتنسونا من صالح الدعاء ECO2_DuClick_store.rar

Sort.xlsx Solved الكود للى يحتاجه Sub sort() Sheets("Wanted").Activate Range("B9:E24").sort key1:=Range("B9:B24"), _ order1:=xlDescending, Header:=xlNo, key2:=Range("C9:C24"), order2:=xlDescending, Header:=xlNo End Sub

السلام عليكم من باب المشاركة فقط ردا علي أخونا khalid2117 السنة الكبيسة ليست بصفة عامة صحيح تقبل القسمة علي 4 لكن لها استثناء إن كانت تقبل القسمة علي 100 ، مثلا 2100 - 2200 - 2300 كلها سنوات بسيطة ، فبراير بها 28 يوم وليس 29 وهذا الاستثناء له استثناء وهي السنوات تقبل القسمة علي 400 فهي كبيسة أي أن فبراير بها 29 مثل 2400 - 2800 ويرجع هذا إلي أن السنة بالضبط لاتساوي 365.25 يوم كما هو شائع بل إنها 365.2422

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

تم الحل بفضل الله تعالى لجزء كبير من المطلوب.. الشيكات.rar

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه ..أما بعد: أخي الحبيب محمد أبو صهيب المحترم السلام عليكم ورحمة الله وبركاته ما شاء الله بارك الله أبدعت وأحسنت.. أرجو من إدارة المنتدى الكرام إعطاءه حقه بأن يكون من مشرفي الموقع أو الخبراء لأنه بحق يستحقها بجدارة دون أي مدح أو إطراء... والسلام عليكم ورحمة الله وبركاته.