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

جرب ان تضع التعبير التالي كعمود جديد بالاستعلام query1 Expr1: DCount("*","items","categoryid=" & [CategoryID] & " and itemid<=" & [ItemID]) بالتوفيق

وعليكم السلام أخوي رمهان مثل القمر ، تطل علينا في منتصف كل شهر بكامل نوره جعفر

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

استاذ كرار ايش رايك Private Sub aaa_AfterUpdate() tw.Visible = aaa = "متوفي" ts.Visible = aaa = "شهيد" End Sub

السلام عليكم يمكن ترك الرقم كما هو متسلسل 1 - 2 - 3 - 5 ويتم ربطه مع سنة التسجيل كعملية حسابية وحسب حاجة مكان الظهور مثلا حقل الرقم id وحقل التاريخ dt يكون المعادلة او التعبير =id & "/" & year(dt) بالتوفيق

جرب المرفق 222.rar

السلام عليكم شباب الطريقة اللي جائت على بالي ، هي عمل جدول مؤقت متسلسلة بارقام الايصال: . وهذا اصبح كود زر البحث ، حيث يحذف جميع مكونات الجدول المؤقت tbl_Temp ، ثم يُدخل ارقام البحث بالتسلسل الى الجدول المؤقت tbl_Temp: Private Sub cmbsearch_Click() On Error GoTo err_cmbsearch_Click 'delete all the values of tbl_Temp CurrentDb.Execute ("Delete * From tbl_Temp") Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From tbl_Temp") 'check if there are values for search If Len(Me.inv1 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv1: rst.Update End If If Len(Me.inv2 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv2: rst.Update End If If Len(Me.inv3 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv3: rst.Update End If If Len(Me.inv4 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv4: rst.Update End If If Len(Me.inv5 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv5: rst.Update End If If Len(Me.inv6 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv6: rst.Update End If If Len(Me.inv7 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv7: rst.Update End If If Len(Me.inv8 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv8: rst.Update End If If Len(Me.inv9 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv9: rst.Update End If If Len(Me.inv10 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv10: rst.Update End If If Len(Me.inv11 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv11: rst.Update End If If Len(Me.inv12 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv12: rst.Update End If If Len(Me.inv13 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv13: rst.Update End If If Len(Me.inv14 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv14: rst.Update End If If Len(Me.inv15 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv15: rst.Update End If If Len(Me.inv16 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv16: rst.Update End If If Len(Me.inv17 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv17: rst.Update End If If Len(Me.inv18 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv18: rst.Update End If If Len(Me.inv19 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv19: rst.Update End If If Len(Me.inv20 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv20: rst.Update End If If Len(Me.inv21 & "") <> Then rst.AddNew: rst!Temp_ID = Me.inv21: rst.Update End If Me!esano_1.Form.RecordSource = "qry_esano1" esano_1.Requery rst.Close: Set rst = Nothing Exit Sub err_cmbsearch_Click: If Err.Number = 1 Then Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub . هذا الاستعلام اصبح مصدر للنموذج الفرعي: . والنتيجة (لاحظ تسلسل السجلات في النموذج الفرعي ، والتي اصبحت بنفس تسلسل ارقام البحث) : . وحتى اذا فيه ارقام فاضية في خانات البحث ، كذلك يعطيك الترتيب: . بس علشان احاول افرق/اميز بين خانات البحث المليانه ، والخانات الفاضية ، اصبح النموذج: . وهذه طريقة عمل التفريق/التمييز بين خانات البحث المليانه ، والخانات الفاضية: . جعفر 362.test2.accdb.zip

المشكلة اخي انك عامل تثبيت للخلية A2 تفضل الحل تغيير رقم العمود عند السحب.rar

....................................waiting

قريبا ان شاء الله مع الشرح = = = = = = = ‏الثلاثاء‏ 21‏/11‏/1432هـ الموافق ‏18‏/10‏/2011م نظام المستوعات و متابعة المخزون الفكرة من اعداد اخي اسامة العضو في هذا المنتدى هو نظام اكسل يهدف لحساب حركة المخزون لعدد 4 عمليات وهي (استلام + صرف + ارجاع + شطب) المميزات و الخصائص 1. يمكن تسجيل عدة مستخدمين للملف تصل الى 11 مستخدم 2. يمكن تسجيل اضناف او مواد حتى 9000 صنف او مادة 3. قائمة المواد المخزنة مع ملخص بياناتها 4. كل الحركات المسجلة للمواد 5. نموذج خاص لإضافة أي مواد جديدة 6. نموذج للبحث في قائمة المواد 7. البحث خلال فترة محددة عن أي مادة اسماء المستخدمين وكلمات المرور الحالية هي: Admin = 123 موظف 2 = 22 Super_Stores.rar

نجحت الفكرة فأنا في السابق إستخدمت nz و شملت كل الحقول كما في الرياضيات ليس كل حقل منفرد شكرا للمرة الثانية

اعتقد استاذ سعيد انك تقصد <=date()-30 لانه المراد الذي مضى عليها شهر فاكثر تحياتي

تفضل عملت في الاستعلام مجموع المبالغ المستحقة على الاب: 1. Dsum يجمع المبالغ ، ولكن نوع الحقل يكون نص وليس رقم ، وعندما تريد ان تفرز الارقام تصاعديا ، فإنه يأخذ اول رقم على اليسار (كأنه اول حرف في الكلمة ، فالرقم بالنسبة له كأنه كلمة) ، فيفرز 1 ثم 10 ثم 100 ثم اذا لم تبقى ارقام اولها واحد ، فيأخذ الرقم 2 ، ... وهكذا ، 2. لذا ، نحول النص الى رقم عن طريق الامر Val ، فبالتالي نتيجة الحقل تكون رقم . وفي التقرير ، عملت فرز بهذا الحقل: . والنتيجة: . السبب ان الفرز لا يمكن فعله بطريقتك ، لأن التقرير يكتب مبالغ الاستعلام ، ثم يجمعها ، فحينها امر الفرز يكون فات أوانه ، لأنه لا يملك المجاميع لفرزها قبل كتابتها جعفر 364.Microsoft Access قاعدة بيانات جديد ‫‬.accdb.zip

ربما يكون المطلوب (تم حماية المعادلات لعدم العبث بها عن طرق الخطأ) رفع المكرر من الجدولsalim.rar

بالنسبة لأكواد حدث التغير في ورقة العمل يفضل حفظ المصنف بعد وضع الأكواد ثم إعادة فتح المصنف مرة أخرى .. احمي ورقة العمل بكلمة السر 1 ثم احفظ المصنف ثم أعد فتحه مرة أخرى

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

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

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

السلام عليكم و رحمة الله و بركاته اخي Mahmoud شاهد المرفق فواتير.zip

1-100.rar السلام عليكم جرب المرفق الملف.rar

مصطبة الحبايب

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

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

اخي اسامة جزاك الله خيرا

جزاك الله كل خير اخي ابو البراء شكرا لك اخوي على المساعدة وعلى الفكره الجميلة

لا كلام بعد ما قاله الاستاذ ابو عبد الله ... يجب ان تكتب اسم للحقل الذي سينتج من المعادلة ( اي رمز او اسم ولكن يفضل رمز قصير بالانكليزية ليسهل استخدامه لاحقا ) واذا لم تكتب اسم فيأخذ تلقائيا Expr1 , 2 , 3 ... و هكذا

جزاك الله خيراً وأحسن إليك

تفضل اخى الكريم جرب هذا الكود Sub Al_saqer() a = Application.WorksheetFunction.CountIf(Sheet1.Range("b2:b" & Cells(Rows.Count, 2).End(xlUp).Row), Range("G1")) If a < 1 Then: MsgBox "عفوا: الرقم غير موجود", , "توكل": Exit Sub b = Application.WorksheetFunction.Match(Range("G1"), Sheet1.Range("b1:b" & Cells(Rows.Count, 2).End(xlUp).Row), 0) lr = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1 Rows(b).Copy Destination:=Sheet2.Cells(lr, 1) Rows(b).Delete Shift:=xlUp MsgBox " تمت عملية الترحيل بنجاح", , "توكل" End Sub وضوح المطلوب من البدايه يوفر علينا الوقت تقبل تحياتى

جزاك الله خيراً هو المطلوب أمر بسط أخي الصقر : في صفحة Post أريد الإحتفاظ بالبيانات يعني الكود يعود هنا بلصق البيانات الجديدة فوق البيانات القديمة وأنا أريد أن يلصق البيانات الجديدة تحت القديمة مع الشكر الجزيل

تفضل اخى الكريم هل هذا ما تقصده تقبل تحياتى فيدكس-09.zip

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

أخي الكريم أسامة قم بحذف الأكواد من موديولات أوراق العمل وضع هذا الكود في حدث المصنف فقط Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim Cl As Variant, Dat As Variant Dim DupCtr As Double Dim LastRow As Long If Not Application.Intersect(Target, Columns("A:A")) Is Nothing Then Application.EnableEvents = False If Target.Cells.Count > 1 Then Dat = Target.Formula For Each Cl In Dat If Cl <> "" Then MsgBox "Change Only One Cell At A Time", , "Too Many Changes!" Application.Undo: Application.CutCopyMode = False GoTo Skipper End If Next Cl End If End If Skipper: Application.EnableEvents = True If Target.Column = 10 Then Application.EnableEvents = False Sh.Unprotect 1 Sh.Cells(Target.Row, 12).Value = Date & " " & Time Sh.Range("L:L").EntireColumn.AutoFit ActiveSheet.Protect 1 Application.EnableEvents = True End If If Target.Column = 20 Then Application.EnableEvents = False Sh.Unprotect 1 Sh.Cells(Target.Row, 24).Value = Date & " " & Time Sh.Range("X:X").EntireColumn.AutoFit Sh.Protect 1 Application.EnableEvents = True End If If Target.Column = 29 Then Application.EnableEvents = False Sh.Unprotect 1 Sh.Cells(Target.Row, 32).Value = Date & " " & Time Sh.Range("X:X").EntireColumn.AutoFit Sh.Protect 1 Application.EnableEvents = True End If End Sub حيث سيعمل الكود بهذا الشكل مع كل أوراق العمل بدلاً من عمل الكود لكل ورقة عمل على حدا

الغاء تفعيل القص والنسخ والصق والصق الخص من قائمة كلك يمين بالموس ومن الاختصارات بلوحة المفاتيح DisableCopyPasteCut.zip منقول من صفحة اجنبية

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

السلام عليكم ورحمة الله وبركاته،،، لنفترض أن شخص ما قام برسم عدة أشكال على صفحة وورد بطريقة عشوائية، يميناً وشمالاً ووو، ولم يضع تلك الأشكال داخل لوحة قماشية من الأساس. السؤال المطلوب أعلاه: كيف يمكن تجميع تلك الأشياء، غير طريقة الضغط على الشكل الأول، ومن ثم الضغط على Ctrl والضغط على الشكل الثاني، وتكرار العملية على جميع الأشكال إلى أن يتم تحديدهم جميعاً ومن ثم تجميعهم بغض التكبير أو التصغير أو الاستدارة أو .... الجواب: لغرض التسهيل في مثل تلك العملية، وعمل نفس مهمة اللوحة القماشية، هو تحويل الملف إلى امتداد word97-2003 والضغط على سهم التحديد، وعمل مربع وهمي حول الأشكال، وسنجد أنه سيقوم مقام اللوحة القماشية. جاهزين لأي استفسار دمتم بخير

ومن ثم ظلل الخلايا التي تريد أن تظهر في صفحة الإدخال واضغط زر add to input وبعدها ظلل الخلايا التي تريد أن تظهر في صفحة الإخراج واضغط زر add to output http://pasteboard.co/9bjLkNc.png ولتجربة البرنامج اضغط على preview ولاستخدامه على الموبايل اضغط على share وانسخ الرابط للموبايل أو أي متصفح الرابط التجريبي للبرنامج الرابط راح يكون بالشكل التالي xlapp.io/10728 وتهانينا.. فلقد انتهينا من الدرس التمهيدي وأشكركم جداً على الترقية

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

السلام عليكم اعتقد انه تم عمل المطلوب حضور وانصراف3.rar

Public ss As Integer ضع هذا السطر في الاعلي

اعتقد انني وجدت الخطأ قمت بتحويل الآية الى الخط : Arabic Typesetting فوجدت رمز غير مفهوم قمت بحذفه ثم ارجعت الخط الاصلي KFGQPC Uthmanic Script HAFS فحلت المشكلة لاحظ الصورة Sans titre.rar

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

تفضل نفس موضوعك ، بالمجموعات: http://www.officena.net/ib/topic/60480-طباعة-اصناف-محددة-معينة-بالنموذج-الفرعي-وليس-كل-الاصناف/ والنتيجة (لاحظ لون الرقم المسلسل يتماشى مع نوع الطبق): . وهنا التسلسل للسجلات: http://www.officena.net/ib/topic/63356-ترقيم-سجل-بعد-البحث/?do=findComment&comment=412591 جعفر

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

جرب هذا الحل السؤال كاملا salim.rar

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

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

أخي الكريم أحمد محمد العباسي إليك الكود التالي كما طلبت Sub Tarhil() Dim WS As Worksheet, SH As Worksheet, LR1 As Integer, LR2 As Integer, Cel As Range Set WS = Sheet11: Set SH = Sheet6 LR1 = WS.Cells(86, "G").End(xlUp).Row LR2 = SH.Cells(Rows.Count, "A").End(xlUp).Row + 1 If LR1 < 8 Then MsgBox "There Is No Data", 64: Exit Sub Application.ScreenUpdating = 0 WS.Range("G8:K" & LR1).Copy SH.Range("A" & LR2).PasteSpecial xlPasteValues If MsgBox("هل تريد مسح محتويات الفاتورة بعد أن تم الترحيل؟", vbQuestion + vbYesNo) = vbYes Then For Each Cel In WS.Range("G8:K" & LR1).SpecialCells(xlCellTypeConstants) Cel.ClearContents Next Cel WS.Range("K35,K37").ClearContents Else MsgBox "لم يتم مسح محتويات الفاتورة بعد الترحيل", 64 End If Application.CutCopyMode = False Application.ScreenUpdating = 1 End Sub وإليك الملف المرفق مطبق فيه الكود مع تعديل طفيف في معادلات العمود الخاص بالسعر والإجمالي حتى لا يظهر خطأ في حالة مسح البيانات الأخرى جرب الملف وأعملنا بالنتيجة شركه العباسى.rar

نعم عملك جميل لا غبار عليه وقد رأيته في مشاركة سابقة لك ايضا ولو فطنت اليه لبحثت عنه ، واعطيته السائل نيابة عنك ولكن النقاش في : (( حيث انه يثقل قاعده البيانات وليس من اصول تصميم قواعد البيانات ) ولا يخفى عليك اننا نستخدم كثيرا الجداول المؤقتة ، فمرة بالتحديث وأخرى بالانشاء والحذف والجداول المؤقته انما تستخدم غالبا للبيانات المكررة .

حياك الله اخي الفاضل ابو خليل بالنسبه للجدول الجديد counttbl فهذا لا يوجد تكرار فيه و بالامكان وضع 100 سجل(ارقام وليس حروف ز من حقل واحد) وهذا بحسب حاجه الاخ السأل وتم وضع 10000 سجل للتاكد من ان المستخدم لن يتعدى هذا العدد بالنسبه للجدول السابق فاعملية تكرار السجلات (اكثر من حقل من حروف و ارقام) غير مجدية بينما يمكن عمل استعلام يكرر البيانات فقط باستخدام الجدول counttbl ذو الحقل الواحد من نوع رقم ارجوا ان تكون الصوره واضحه الان