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

السلام عليكم محاولة يمكن موجودة في المنتدى ولكني لم أبحث عنها إن لم تكن موجودة فقد ينتفع بموضوعي أحدكم. وظيفتهم تحويل "B" إلى 2 أو تحويل 2 إلى "B" Function C2L(Column As Integer) As String On Error Resume Next C2L = Replace(Replace(Cells(1, Column).Address, "$", ""), "1", "") End Function Function L2C(Letter As String) As Integer On Error Resume Next L2C = Range(Letter & "1").Column End Function

السلام عليكم اخواني كما وعدتكم ان اقوم بعمل فيديو عن تحويل قاعدة البيانات الى sql server ومشاركتها على النت طبعا المرفقات في الفيديو لم ادرجها بعد لضيق الوقت واي سؤال استطيع ان اجاوبه فلن ابخل به رابط الفيديو الفيديو قيد التحميل يرجى الانتظار قليلا لتحمله على اليوتيوب

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

ولا يهمك ابوحوده ده لان النموذج اللى انت هتضيف منه فى حالة الاضافه بيفقد الرقم المسلسل عند الاضافه وهو مطلوب فقمت بعمل متغير ليحمل القيمه واسنادها للحقل فالحالى طول ما انت فاتح على هذا السجل Public intID As Long بالتوفيق New1.accdb

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

السلام عليكم ورحمة الله تم تعديل طفيف على الكود في الجزئية lr1+lr2-1 باستبدالها بالجزئية lr1+lr2-17... الملف.rar

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

أستاذ إلى متى أنتظرك؟ إما أن ترجع لي برد حتى ننهي هذا الموضوع ونغلقه أو ندعو المشرف لإغلاقه. في الصورة تظهر النتيجة عكس الصور التي أرفقتها أنت ، أخبرني إذا كانت تجربتك لنفس النسخة الأخيرة أم لنسخة أخرى.

تفضل ................... Mahdi119.rar

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

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

أخبرتكم أن النسخة السابقة هي الأخيرة ولكن سيطرت علي فكرة في الوصول إلى تاريخ أم القرى بدون فرق ، وقد نجحت الفكرة والحمد لله. سأطبقها إن شاء على مثال للأكسس الحقوق الفكرية محفوظة 🙂 كشف انتهاء هويات الموظفين_05.xlsm

الموضوع صار بسيط الآن أخي @nssj 🙂 يمكن تطبيق فكرتك في الدالة الرئيسية .. Public Function MidText(strText As String) As String Dim Txt as String Dim x As Integer Dim t As String Dim s As Integer Dim L As Integer Txt = "@@@" & strText s = InStr(1, Txt, "عن") For x = 1 To Len(Txt) t = Mid(Txt, x, 1) If t = ChrW(10) And x > s Then L = x Exit For End If Next 'Debug.Print s, L MidText = Mid(Txt, s, L - s + 1) End Function جرب وقلي .. لأني أكتب من الهاتف ..

وعليكم السلام ورحمة الله وبركاته 🙂 اهلا وسهلا بك في المنتدى 🙂 للإستفادة القصوى من المنتدى ، رجاء قراءة قوانين المنتدى : اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة بالنسبة الى سؤالك: جرب هذا الكود (الغير مجرب) : 'ID = "رقم البطاقة" 'iDate = "تاريخ الانتساب" 'tbl = اسم الجدول dim rst as dao.recordset dim inc as long set rst=currentdb.openrecordset("Select ID, iDate From tbl Order By iDate") rst.movefirst inc= 450000 'Forms!frm123!initial_Number do until rst.eof inc = inc + 1 rst.edit rst!ID = inc rst.update rst.movenext loop rst.close: set rst=nothing msgbox "Done" . ولكن رجاء اعمل نسخة من جدولك قبل تجربة الكود 🙂 جعفر

السلام عليكم تم توسيع النطاق ، الآن يمكنكم تفقيط الأرقام حتى طول 21 خانة والكسور حتى 6 خانات ، كما تمت بعض التنقيحات الأخرى . تحياتي . Num2Text_20060728.rar