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

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

التطبيق على مثالك في بداية الموضوع ..... اعلمنا بالنتيجة ..... ka_QR.rar

استخدم هذا الكود .... Dim I As Long Dim txtBuff As String Dim CheckChars As String CheckChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890 " Me.kanory.SetFocus txtBuff = kanory.Text For I = 1 To Len(CheckChars) txtBuff = Replace$(txtBuff, Mid$(CheckChars, I, 1), "") Next I If txtBuff = "" Then Me.kan1.Enabled = False Me.kan2.Enabled = True Else Me.kan2.Enabled = False Me.kan1.Enabled = True End If

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

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

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

تفضل التعديل حسب توجيهات استاذنا الجليل ابو خليل اعادة الترقيم-1.rar

وعليكم السلام اخي الحبيب طلبك واضح ومفهوم .. اطلعت على المرفق ، واليك ملاحظاتي وهي خطوات يمكنك تطبيقها اولا : يجب ان يتم اختيار (او كتابة) معرف او يوزر المستخدم اولا .. فان كان موجود سيظهر اسمه ، وان كان جديد يلزم كتابة اسمه نأتي للترقيم : عند النقر على الزر يتم " عد " معرفات المستخدم الموجودة باستخدام : Dcount .. ويضاف لها واحد (+1)

يمكنك استعمال هذا الكود في حدث عند تغيير محتوي شيت الفاتورة Private Sub Worksheet_Change(ByVal Target As Range) Dim n As Long, r As Long, c As Long Dim sh As Worksheet: Set sh = Sheets("رصيد") If Target.Address = "$D$1" Then Range("b3:d16").ClearContents c = 2: r = 3 For n = 2 To sh.Cells(Rows.Count, 1).End(3).Row If sh.Range("b" & n) = Target Then Cells(r, c) = sh.Range("c" & n) r = IIf(c = 4, r + 1, r): c = IIf(c = 4, 2, c + 1) End If Next n 'MsgBox "Done by mr-mas.com" End If End Sub ولمن لا يعرف إضافة الكود في أحداث الصفحة كلك يمين على اسم الشيت ثم view code تقريبا بالعربي عرض التعليمات البرمجية ثم لصق الكود بالتوفيق

كلما كان المطلوب محددا وفر على الجميع الوقت والجهد تفضل إن شاء اللّه يكون هو المطلوب تم إضافة شيت أكثر تنظيما للملف واستعمال معادلة طويلة نسبيا حتى لا نستعمل أكواد فيجوال بيسك بالتوفيق الرواتب.xlsx

لا تحتاج إلى تغيير في المعادلة تحتاج إلى استعمال حلقة تكرارية for next for i = 10 to 1000 Range("R" & i ) = DateDiff("d", [K4], Range("K" & i )) next i بالتوفيق

الحل في حذف ما بعد acFormatPDF, وقبل , FALSE او true مع الحفاظ على الفاصلتين بالتوفيق

ما شاء اللّه الأمانة العلمية متوفرة جدا ولكن الحمد لله رغم تأخر نشري لهذا المجهود لي السبق موضوع منتدى الصقر : الدالة المعرفة JoinEA بديل للدالة TEXTJOIN بتاريخ 18-08-2018 10:05 مساء وموضوعي: مكتبة الموقع - بدائل دالة textjoin الموجودة في إكسل 2016 لجميع إصدارات اكسل mastextjoin بواسطة أ / محمد صالح, يناير 26, 2018 ربنا يصلح حالنا جميعا

شكرا للأمانة العلمية في نقل المعادلة المستخدمة هنا منذ أكثر من أربعة أعوام بدون ذكر صاحبها حينما قال صاحب الاستفسار أن المعادلة الأولى لم تعمل قمت بالرد في موضوعي بدائل دالة textjoin حتى يظهر له الحل بطريقة غير مباشرة بالتوفيق 🙄😏

I think your office version doesn't support TextJoin function so you can use UDF that is alternative to TextJoin. You will use the same formula exactly but replace the name of TextJoin with MyTextJoin Function MyTextJoin(break As String, ignore As Boolean, txt) As String Dim t, s$, i% For Each t In txt s = s & IIf(i = 0 Or (ignore = True And (s = "" Or t = "")), "", break) & t i = 1 Next t MyTextJoin = s End Function

الملف يعمل عندي بصورة طبيعية لذلك يجب التأكد من اختيار منطقة region عربية مثل Arabic(Egypt ) مثلا من لوحة التحكم control panel ---> الساعة والمنطقة clock and region ----> تغيير تنسيق التاريخ والوقت والأرقام change date, time, or number formats بعدها سيعمل بإذن الله بالتوفيق

تفضل إن شاء اللّه يكون المطلوب وتذكر دائما كلما ذكرت جميع التفاصيل حول المطلوب كلما سهلت المهمة على غيرك بالتوفيق البحث عن سعر البيع لكل عميل.xlsm

هذا جزء من برنامجي ..... ka_stu.accdb

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

جرب المرفق ..... السبب في عدم الالحاق افتح الجدول A وازل الاشارات من كل السجلات ... AB.mdb

بارك الله فيك الاستعلام مكتوب كجملة SQL داخل الزر انظر الصور .....

طيب اخي الكريم جرب المرفق ووافينا بالنتيجة .... علما اننا اضفنا حقل نعم / لا في الجدول A AB.mdb

نظام اللمس يصلح للمطاعم والكافيهات اما البقالات والمتاجر فالذي يصلح لها هو نظام قارىء الباركود

تم حل المشكلة شكرا للاستاذ سامي والاستاذ حسام

يمكنك كتابة كلمة (من) في label ثم التاريخ في textbox وهكذا مع الباقي المهم أن يبقى الحقل للتاريخ فقط هذه أساسيات البرمجة

بسم الله الرحمان الرحيم والصلاة والسلام على رسول الله الحمد لله تم إنشاء هذه المواقيت ربما لن تفيدنا في الدول الإسلامية ولكن في غيرها تكون نعمة بإذن الله https://drive.google.com/file/d/1qmfQaOXtQkjqJ0mna98jC9Smx1uM6vy3/view?usp=sharing

معليش اتعبتك معايه ..كدا تمام ,,,يعطيك العافية

حفظك الله وزادك من فضله يارب ويديك الصحة والعافية ويبارك لك في اسرتك الكريمة اللهم امين يارب

رحم الله والديك استاذ ابو الحسن على هذا الدعاء بالنسبة للتعديلات : نعم استاذ كلامك سليم جدا

وهذا التعديل بالنسبة للاضاقة في نفس السطر Database5.accdb

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

وبارك فيك ...

اين الحروف في المثال ؟؟؟؟ على كل حال انظر المرفق .... مثال.rar

تم التعديل يمكن الفلترة بالفصل والتخصص في نفس الوقت first_20 New.xlsm

السيد سليم شرفنى مرورك وردك الرائع والمشجع والأروع الأكواد التى أعطيتنى إياها والتى لولاها ماكنت أكملت هذا الملف جربت الأكواد وهى بالفعل رائعة سلمت يداك تقبل شكرى وتقديرى

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

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

الاخ محمد mas123 بارك الله فيك و تقبل الله منك صالح الاعمال

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

اخانا الكريم بارك الله فيك وعمل اكثر من رائع ولكن هل يمكن ان تتفضل علي بشرح هذا الجزء من الكود للتعلم ليس الا زادك اللع علما ونفعك بما تعلم Private Function NewCodeWord() Dim MaxLong As Integer, Ulimit As Integer, Oline As Integer, lng As Integer, Word As String, i As Integer MaxLong = 9 Oline = 255 Ulimit = 32 lng = Int(MaxLong * Rnd + 1) Word = "" For i = 1 To lng - 1 Word = Word + Chr(Int((34 - 33 + 1) * Rnd + 33)) Next i Word = Word + Chr(Int((Oline - Ulimit + 1) * Rnd + Ulimit)) NewCodeWord = Word End Function

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

100%

شكرا جزيلا رائع

كل الشكر اخي الفاضل

السلام عليكم ورحمة الله وبركاته هل هذه الطريقة تفلح في فك كلمة السر للأكواد داخل البرنامج ام لا حيث انني قد نسيت كلمة المرور

بارك الله فيك وجزاك كل خير

حاولت البحث عن عبارات الثناء ولكني لم أجد غير جزاك الله خير

السلام عليكم موضوع مميز وجديد كعادتك أستاذنا الفاضل محمد صالح اسال الله لك الفردوس الأعلى من الجنة وزادك الله رفعة وعلما

السلام عليكم جزاك الله خيرا أستاذ محمد صالح على هذه الأداة المفيدة