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

اعمل عمود رقمي في الجدول بجانب هذا الحقل بحيث يتم الفرز حسب الرقم

كثيرا ما نحتاج لتصميم عرض تقديمي تفاعلي يمكن العرض من التفاعل مع المستخدم فإذا اختار المستخدم اختيار يقوم البرنامج بإجراء معين وهكذا وهذه مجموعة من ملفات الشرح بالصوت والصورة لكيفية عمل عرض تقديمي تفاعلي حجم الملف 71.7 ميجا بايت ولا تنسوا أخاكم / محمد صالح من صالح دعائكم والآن مع التحميل http://www.mediafire.com/download.php?mjmmiyzmwyg

السلام عليكم ورحمة الله استخدم الكود التالى Sub AbsCount() Dim ws As Worksheet, LR As Long Dim x As Long, y As Integer Dim C As Range, Abst As String Const Com = "," Set ws = Sheets("SS") x = 3 LR = ws.Range("AG" & Rows.Count).End(xlUp).Row Do While x <= LR For Each C In ws.Range("A" & x & ":AE" & x) If C.Value > 0 Then Abst = Abst & C.Value & Com ws.Range("AL" & x) = StrReverse(Left(Abst, Len(Abst) - 1)) End If Next C Abst = "" x = x + 1 Loop End Sub

السلام عليكم ورحمة الله وبركاته خبراء المنتدي الكرام عندي ملف اكسيل وحافظه علي اكسيل ماكرو لان فيه أكواد المشكلة كلما اعدل فيه شئ أو اضيف شئ واحاول احفظه يطلب يعمل ( replase ) للملف القديم ما السبب ؟

شكرا جزيلا علي رد حضرتك

السلام عليكم جميعا .. هذه أول مشاركة لي في هذا المنتدى الطيب .. رأيت هذا الموضوع فأحببت المشاركة فيه لأنه مر علي شي مشابه لهذا الأمر .. تطبيقي استخدمت فيه نفس الجدول اللي استخدمه الأستاذ @ابا جودى فله مني الشكر .. الفكرة : قسمت القائمة على 3 قوائم 3 Lists .. كل لست يأخذ بياناته من نفس الاستعلام ولكن الفرق فقط أن المعيار يقسم عدد السجلات في الجدول على 3 .. اللست الأول يأخذ الثلث الأول .. وجعلت هذا المعيار أسفل حقل ال ID : >0 And <= DCount("*";"[tblData]")/3 اللست الثاني يأخذ الثلث الثاني وهذا المعيار الخاص به : >DCount("*";"[tblData]")/3 and <=(DCount("*";"[tblData]")/3)*2 اللست الثالث يأخذ الثلث الأخير وهذا المعيار الخاص به : >(DCount("*";"[tblData]")/3)*2 and <= DCount("*";"[tblData]") بذلك كل لست أخذ سجلاته من الثلث الخاص به مهما زاد أو نقص عدد السجلات .. ولضمان أن يكون الرقم دائما متسلسلا بشكل مرتب .. أضفت استعلام تحديث يعيد ترتيب الأرقام من جديد بشكل مرتب في حال تم حذف أي سجل .. ويتم تشغيل هذا الاستعلام تلقائيا عند فتح الفورم لضمان تحديث البيانات تلقائيا في القوائم الثلاثة .. ولكي تكتمل هذه العملية بشكل جيد .. حولت حقل الـ ID في الجدول إلى " رقم " بدل الترقيم التلقائي وذلك ليعمل استعلام التحديث بشكل جيد .. وكذلك يتم إضافة السجلات في الجدول عن طريق فورم وجعل القيمة الافتراضية للـ ID هي القيمة التالية لأكبر قيمة في الجدول ، وبذلك لن تحصل مشكلة في ترقيم السجلات . تحياتي لكم ،،، 3 List Form.accdb

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Function fnAutoField() As String Dim strRndNo As String 10: strRndNo = Format((999999999 * Rnd) + 1, "100000000") If DCount("*", "tblItems", "BarcodeItem='" & strRndNo & "'") > 0 Then GoTo 10 fnAutoField = strRndNo End Function طريقة الاستخدام If IsNull([BarcodeItem]) Then Me!BarcodeItem = fnAutoField() End If تحياتي

تفضل 2APE.rar

مش عارف أشكر حضرتك ازاى لك جزيل الشكر وربنا يزيدك علم

جرب المرفق <<<<<<<<>>>>>>>>> Kanory.accdb

اثراء للموضوع تلك فكرتى المتواضعة موديول يحتوى على الاكواد الاتية ليتم اسناد اسم المستخدم الحالى الى متغير عام وجلبه بسهولة من خلال روتين عام فى اى نموذج دون الابقاء على نموذج الدخول مفتوح بصفة مستمرة والذى قد يجبرك مستقبلا لاخفاء النموذج Global strCUser As String Public Function CUser() CUser = strCUser End Function يتم استدعاء اسم المستخدم من خلال احدى الطريقتين اولا وضع الكود الاتى مصدرا لعنصر التحكم ( textbox) =CUser() او وضع كود على النموذج عند القتح txtCurrentUser = CUser sample_ 02.accdb

لتحويل أي معادلة إلى كود يمكنك استعمال هذه الطريقة [Cell reference] = Evaluate("=Cell formula") وفي حالتك [i13] = Evaluate("=INDEX($D$5:$I$9,MATCH(D13,$C$5:$C$9,0),MATCH(F13,$D$4:$H$4,0))") وطريقة استدعائه بزر أمر مرتبط بإجراء sub به هذا الكود أو في حدث تغيير خلايا ورقة العمل worksheet_change وبالنسبة للتنفيذ من الأكسس على نفس هذا الشيت بعد تصديره مثلا نستعمل قبل evaluate اسم كائن تطبيق الاكسل مثال sh.Range("i13").value = Xlapp.Evaluate("=INDEX($D$5:$I$9,MATCH(D13,$C$5:$C$9,0),MATCH(F13,$D$4:$H$4,0))") بالتوفيق

وهذه محاولة ارجو ان يكون هو المطلوب mySQL = "Select * From tblData ORDER BY ID" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst For i = 1 To Int(rst.RecordCount / 5) Me.List1.AddItem rst!CustCode rst.MoveNext Next For i = (List1.ListCount + 1) To (List1.ListCount + Int(rst.RecordCount / 5)) Me.List2.AddItem rst!CustCode rst.MoveNext Next For i = (List2.ListCount + 1) To (List2.ListCount + Int(rst.RecordCount / 5)) Me.List3.AddItem rst!CustCode rst.MoveNext Next For i = (List3.ListCount + 1) To (List3.ListCount + Int(rst.RecordCount / 5)) Me.List4.AddItem rst!CustCode rst.MoveNext Next For i = (List4.ListCount + 1) To (List4.ListCount + rst.RecordCount / 5) Me.List5.AddItem rst!CustCode rst.MoveNext Next rst.Close Test77.rar تحياتي

تفضل List.zip

تفضل هذا تعديلي 2تصدير للوورد.zip

ما أجمل التعاون من أجل قضاء حوائج بعضنا البعض دمتم بخير أحبابي المشاركين وتفضل أخي الكريم هذا هو ملفك حسب الكود السابق لي تم إضافة أمر حفظ الملف باسم هذا الاسم هو رقم المعرف وتاريخ ووقت التصدير وعدم حفظ الملف الأصلي مع إغلاقه ‏‏إرسال الحقول للوورد bookmarks.rar

يبدو أنه لاختلاف صيغ عبارات الإنشاء والإضافة بين نسخ phpmyadmin يوجد صعوبة في تنفيذ أمر التحويل من mysql إلى أكسس لذلك سوف اضطر إلى مخالفة فكرة البرنامج وهي أنه بدون برامج مساعدة وسف أطرح على سيادتكم البرنامج بثوبه الجديد ولكن باستعمال odbc connector يتم تثبيته ثم يتم التوصيل بين الأكسس وسيرفر mysql بإذن الله سيتم وضع البرنامج هنا عند الانتهاء منه

نعم البرنامج كما هو موضح في صفحته في منتدى الأكسس يقوم بالتحويل من الأكسس إلى mysql والعكس في حالة وجود ملف sql يمكن إنشاء قاعدة بيانات أكسس تحتوي على جداول وبيانات الملف وأفضل برنامج للسيرفر المحلي في رأيي هو wamp

شكرا لك أخي الكريم

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

أشكرك اخي الكريم وفقنا الله وإياكم

سعيد بمرورك أخي الكريم و موضوع حماية ملف برقم الهارد موضوع سهل وإن شاء الله سيتم الرد في الموضوع الأصلي

جزاك الله خيرا أخي زياد

بارك الله فيك أخي زياد لو أمكن إرفاق الملف بصيغة bok (كتاب الكتروني صادر عن المكتبة الشاملة) أكون شاكر وجزاك الله خيرا

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

أريد دالة شرطية بحيث عندما أفتح القسم يجلب لي القسم المعني فقط من الورقة المصدر " معلومات" و شكرا أكتوبر.xlsx