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

السلام عليكم ورحمة اله تعالى وبركاته أما بعد .. استكمالاً لمشاركتي في الموضوع السابق اضع بين ايديكم البرنامج + ملف توليد السيريال .. واعتذر على التأخير ملاحظة : جميع البيانات في الجدول يمكن تشفيرها كلاً حسب طريقته لذلك تركتها بدون تشفير لكي تتضح طريقة عمل البرنامج اتمنى ان ينال اعجابكم تحياتي count-sec.mdb registration_key.mdb

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

😀((((تسلم استاذ على بارك الله فيك <<<أستاذ وخبير بكل المعاني>>>))))😀 😀((((((جعل الله عملك بالمنتدى فى ميزان حسناتك و زادك الله علما))))))😀

جرب هذا الكود Option Explicit Sub Give_sum() Dim My_val Dim i%, s, t# Dim x%: x = Cells(Rows.Count, "d").End(3).Row For i = 4 To x My_val = Split(Range("D" & i), vbLf) My_val = Join(My_val, "+") On Error Resume Next s = Evaluate(My_val) If Err.Number <> 0 Then s = 0 If s = 0 Then Range("D" & i).Offset(, -1) = "Text" Else Range("D" & i).Offset(, -1) = s End If t = t + s Next Range("c" & x + 1) = t End Sub الملف مرفق _salimتجربة.xlsm

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

اعتذر استخدم هذا "Is Null OR Like ""????""" بدل "####"

ممكن تستخدم الكود دا فى مديول Function SumCells(Rng As Range) Application.Volatile Dim Cell As Range On Error Resume Next For Each Cell In Rng.Cells SumCells = SumCells + Evaluate(Replace(Replace(Cell.Text, vbLf, "+"), "$", vbNullString)) Next Cell End Function وهتقول فى عملية الجمع الدالة الاتية =SumCells(D4:D10) تجربة.xlsm

هناك حالتين هل المربع النص بيدخل الارقام فقط ام نصية اذا الارقام استخدم هكذا If me.combo.value = "تحويلة" then Me.textRseed.ValidationRule = "Between 1000 And 9999" Elseif me.combo.value = "رقم" then Me.textRseed.ValidationRule = "Between 1000 And 99999999" End If واذا كان نصية استخدم هذا If me.combo.value = "تحويلة" then Me.textRseed.ValidationRule = "####" Elseif me.combo.value = "رقم" then Me.textRseed.ValidationRule = "########" End If

تفضل أخى الكريم تجربة.xlsm

جرب هذا =IIf([in]<[from],0,IIf([in]>[from],DateDiff("n",[from],[in])))

اذا تقدرون ان تفتحون و تشرحون موضوعات المحاسبية سنكون من الشاكرين شكرا لتواجدك معنا

السلام عليكم نعم يمكن ذلك بتحديد الخلية التي تحوي القائمة المنسدلة ثم الضغط على مفتاحي ALT و سهم الاتجاه الأعلى (أو السفل) بن علية حاجي

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

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

أستاذ حربي تم عمل التنسيقات على اوفيس اعلى من الاوفيس لديك تحتاج اوفيس اعلى من 2007

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

السلام عليكم ورحمة الله وبركاته يسعدني ويشرفني الانضمام لكم وانا جدا مسرور اني بينكم

وعليكم السلام ورحمة الله و بركاته نفترض جدول 1 اسمه Table1 و جدول الثاني اسمه Table2 او غير اسماء جدولين في الكود الى اسماء جدولين لديك انشيء زر الأمر في نموذج و الصق الكود التالي في حدث نقر Dim vl As String Dim i For i = 5 To 1 Step -1 vl = Nz(DLookup("Text" & i, "Table2")) If vl <> "" And Not IsNull(vl) Then Exit For End If Next i DoCmd.RunSQL ("INSERT INTO Table1 (txt)VALUES ('" & vl & "')")

وهذه فكرة أخرى بالاضافة لمرفق أساذنا أبو جودى FindAsUType-update.rar

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

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

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