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

تأكد من اسم المربع النصي اللي فيھا قيمة حقل price_masrof ھل اسمە نفسە ، لان الاكواد مضبوطة وما بھا شيء

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

جرب هذا ووافنا بالنتائج يفضل حفظ الصور بالـ ID الخاص بالموظف فبعض الحروف لا تضبط عند استدعائها بالكود Photo.rar

ممكن نجربة هذا الكود اذا لم يكن هناك صفحة بأي اسم يقوم الماكرو باضافة صفحة جديدة بهذا الاسم و ينقل البيانات اليها Option Explicit Sub Add_sheet() Dim myname As Worksheet Dim P As Worksheet Dim sh_n%, k%, i% Set P = Sheets("اليوميه") sh_n = Application.CountA(P.Range("B:B")) - 1 Dim x%, t%: t = 2 Dim mn$ Application.ScreenUpdating = False ''''''''''''''''''''''''''''''''''''''''' For i = 2 To sh_n On Error Resume Next mn = Sheets(P.Range("b" & i) & "").Name x = Len(mn) If x = 0 Then P.Copy after:=Sheets(Sheets.Count) With ActiveSheet .Name = P.Range("b" & i) .Range("G14") = P.Range("F" & i) .Range("a1").CurrentRegion.Offset(1).ClearContents .Range("A:A").NumberFormat = ("dd- mm-yyy") For k = 2 To sh_n + 1 If P.Range("b" & k) = ActiveSheet.Name Then ActiveSheet.Cells(t, 1).Resize(, 4).Value = _ P.Range("A" & k).Resize(, 4).Value t = t + 1 End If Next End With '========================================= Else Set myname = Sheets(P.Range("b" & i) & "") myname.Range("a1").CurrentRegion.Offset(1).ClearContents For k = 2 To sh_n + 1 If P.Range("b" & k) = myname.Name Then myname.Cells(t, 1).Resize(, 4).Value = _ P.Range("A" & k).Resize(, 4).Value t = t + 1 End If Next '''''''''''''''''''''''''''''''''''' End If mn = "" Err.Number = 0 t = 2 Next i P.Select Application.ScreenUpdating = True End Sub الملف مرفق tarhil_by_names.xlsm

جرب هذا الماكرو ( اذا كان هناك تكرار تصدر رسالة بمكان التكرار و يقوم الماكرو بمسح ما كتبته) Option Explicit Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range) Dim x%, First As Range, y%, My_address$ Application.EnableEvents = False If Not Intersect(sh.Columns(1), Target) Is Nothing Then Set First = Cells(Target.Row, 1) y = Application.CountIf(ActiveSheet.Columns(1), First) If y > 1 Then MsgBox "Error!" & Chr(10) & "This Record is Allready Exits in" & Chr(10) & _ ActiveSheet.Name Target = vbNullString GoTo Exit_me End If For Each sh In Sheets If sh.Name = ActiveSheet.Name Then GoTo My_next: x = Application.CountIf(sh.Columns(1), First) If x > 0 Then My_address = sh.Columns(1).Find(First, lookat:=1).Address MsgBox "Error!" & Chr(10) & "This Record Is Already Exits in" & Chr(10) & _ sh.Name & ":" & My_address Target = vbNullString GoTo Exit_me End If My_next: Next End If Exit_me: Application.EnableEvents = True End Sub الملف مرفق No Repeat In All Sheets.xlsm

انظر المرفق ..... لسرعة الاجابة حاولت تعديل حقول الجدول لديك .... Database1.mdb

شكرا لك والحمدللە خلصت من المشكلة

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

شكرا استاذ خالد على المداخلة في الاكسس نتاعمل مع النماذج والتقارير كشكل الظاھري والجداول والاستعلامات و الماكرو والاكواد نتعاملە بشكل خلفي من شان جمالية البرامج واسف ما نظرت للاسم المشتركين

هههه ... طيب الحمد لله رب العالمين

لقد عرفت اين الخطا الدالة هذه صحيحة .. ولكن اتضح ان المشكلة ان النموذج مغلق الاضافة والتعديل وعندما عدلتهم نجحت الطريقة =Nz(Sum([price_masrof]);0) جزاكم الله خيرا جميعا وبارك الله فيكم

السلام عليكم بعد اذن الاساتذه الكرام ممكن تعمل اخقاء للنموذج عند فتح الجدول بالكود التالي DoCmd.OpenTable "Table1", acViewNormal DoCmd.OpenForm "FORM1", , , , , acHidden

السلام عليكم "...";Iif( isnull([Price_masrof]);0) لعل هذا ما تحتاج. أعتذر لعدم تنسيق الأمر كوني أكتب من الهاتف الجوال.

ادخل دالة Nz في تلك العمليات

اخي العزيز هذه الدالة تعمل لدي بصورة صحيحة 100% 1- هل جربت ان تجعل القيمة الافتراضية للحقل = صفر 2- جرب الدالة iif isnull ارفق مثال لو احبب لكي نرى المشكلة تحياتي

نعم ممكن ، لكن لماذا تريد فتح الجدول ؟ لماذا لا تعمل نموذج اخر على ذلك الجول وتفتحە ؟ اتفضل اليك كود لفتحە Docmd.openTable “NameTable”,acViewNormal

السلام عليكم انظر هل هذه النتيجة مرضية لك ووافنا بالنتائج تمنياتي بالتوفيق ادارة محل1.rar ملاحظة هامة صافي المبيعات = اجمالي المبيعات - مرتجع المبيعات (وليس + مرتجع المبيعات) فالكمية التي قام العملاء بارجاعها الينا يجب خصمها وليس اضافتها الي المبيعات وكذلك بالنسبة للمشتريات

تفضل اخي العزيز ملف لاحد الاخوة في الموقع اتمنى ان يكون المطلوب Access Import_ up.rar

العامود D اجعله فارغاً من كل شيء نفذذ هذا الماكرو Sub tarheel22() Dim myrange1 As Range Set myrange1 = Sheets("Sheet1").Range("E3:G4") Sheets("Sheet1").Range("a3").CurrentRegion.Clear Sheets("Mydata").Range("A3:C500").AdvancedFilter _ xlFilterCopy, myrange1, Sheets("Sheet1").[a3] End Sub الملف مرفق Salim_222.xlsb

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

السلام عليكم ورحمة الله استخدم الكود التالى بعد وضعه فى حدث ThisWorkBook دبل كليك على الخلية A1 فى كل مرة Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) If Target.Address <> "$A$1" Then Exit Sub On Error GoTo 1: For i = 1 To Sheets.Count If ActiveSheet.CodeName = Sheets(i).CodeName Then Sheets(i + 1).Activate Exit For End If Next 1: Exit Sub End Sub

اخى الفاضل امير كيف يتم حذف رقم 2 وتمت عليه نفس العمليات والعملاء معهم نسخ مطبوعه الحذف يتم للسجل الحالى واللذى تم الترجع عن تنفيذه اما ما تم فلا والله اعلى واعلم اما بالنسبه لداله DMax فكما تتقول معى 1,3,4 فهنا الداله ستاخذ اعلى رقم وهو 4 وتضيف 1 سيكون السند رقم 5 هنا لم نقم بعمليه اعاده الترقيم بتاتا وجرب احذف السجل رقم 1 بالمثال المعدل من الجدول ثم افتح النموذج وشوف ماذا سيعطيك هل سيعطيق رقم 1 ام 3 وقد قمت بالتجربه قبل رفع مشاركتى هذه والله اعلى واعلم وفى انتظار مشاركه اخوانى واساتذتنا الافاضل للمزيد من المعلومات والايضاح تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

وعليكم السلام اخى الفاضل امير سؤال واحد فى كل موضوع حفاظا على قوانين الموقع بالنسبه للسؤال الاول تم ظبط رقم السند تلقائى على قد ما عرفت عند الفتح وعند الاضافه عند الخروج ونوع الحركه خالى يتم حذف رقم السند الموجود بالنموذج لانه لم يتم حفظه لاعاده استخدامه مره اخرى اعذرنى لم افهم ماذا تقصد بحجز ارقام وحذف ارقام محجوزه احاول ما استطعت المساعده بما لدى من معرفه وما تعلمته من اخوانى واساتذتى جزاهم الله كل خير شوف المرفق ووافنا بالنتيجه تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق boox.rar

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

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

اخي العزيز الدوال ليس بها مشكلة دالة NZ وهي اختصاراً لكلمتي : NULL TO Zero ومهمتها أن يتم التخلص من مشكلة وجود القيمة Null في بعض العمليات مما يعطي خطأ وتحوياها الى صفر

اشكرك استاذ خالد نعم جربت ان اجعل القيمة الافتراضية صفر ولا تعطى اي شئ بالحقل وجربت ايضا = iif IsNull(Sum([price_masrof];0) ولكنها تعطى ان ناقص اقواص

اذا كنت تريد الاستيراد يتم من خلال الأكواد فلابد من اتباع الخطوتين الأوليين بالمشاركة السابقة ثم استخدم الكود التالي DoCmd.TransferSpreadsheet acImport, _ acSpreadsheetTypeExcel12, _ ' هنا تحدد رقم نسخة الاوفس لديك وفي الغالب ستجد النسخة تظهر لديك اتمتك عند كتابة الكود "StUpdatInfo", _ ' هنا تحدد اسم الجدول المراد الاستيراد اليه Me.txtPath, _ 'هنا تحدد مسار ملف الاكسل المراد استيراده True, _ 'هذا الخيار تحدد فيه ان كان ملف الاكسل لديك يحتوي علي أسماء للأعمدة أم لا "A1:Z10000" 'هنا تحدد نطاق البيانات داخل ملف الاكسل وهو اختياري ولكن أفضل تحديده بشكل شخصي حتي لا يتم استيراد حقول فارغة غير مرغوب بها ولا تنسي الخطوتين الأوليين تمنياتي بالتوفيق

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

السلام عليكم هناك عدة طرق لتحقيق ما تطلب هذه إحداها بناء على رغبتكم باستخدام الاستعلامات ملاحظة حولت حقل SAR من نص إلى رقم حولت حقل Date من نص إلى تاريخ R&R 2.accdb

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

تم الحل بعد محاولات وتجارب لكن حصل المقصود لكم الشكر يا سادة Sub copy_data() Dim S As Worksheet: Set S = Sheets("ALL") Dim Q As Worksheet: Set Q = Sheets("Shift Schedule") Dim O As Worksheet: Set O = Sheets("Overtime") Dim A As Worksheet: Set A = Sheets("Attendance") Dim Final_Q: Final_Q = Q.Cells(Rows.Count, 1).End(3).Row Dim Final_S: Final_S = S.Cells(Rows.Count, 1).End(3).Row Dim Final_O: Final_O = O.Cells(Rows.Count, 1).End(3).Row Dim Final_A: Final_A = A.Cells(Rows.Count, 1).End(3).Row Dim RQ As Range: Set RQ = Q.Range("A8:AG" & Final_Q) Dim Rs As Range: Set Rs = S.Range("A8:AG" & Final_S) Dim RO As Range: Set RO = O.Range("A8:AG" & Final_O) Dim RA As Range: Set RA = A.Range("A8:AG" & Final_A) Dim i%, XQ, xO%, XA%, xx% XQ = RQ.Rows.Count: xO = RO.Rows.Count: XA = RA.Rows.Count Rs.ClearContents i = 1: xx = 8 Do Until i > XQ S.Cells(xx, 1) = RQ.Cells(i, 1) S.Cells(xx, 3).Resize(, RQ.Columns.Count - 2).Value = _ RQ.Cells(i, 3).Resize(, RQ.Columns.Count - 2).Value i = i + 1: xx = xx + 3 Loop i = 1: xx = 9 Do Until i > xO S.Cells(xx, 1) = RO.Cells(i, 1) S.Cells(xx, 3).Resize(, RO.Columns.Count - 2).Value = _ RO.Cells(i, 3).Resize(, RO.Columns.Count - 2).Value i = i + 1: xx = xx + 3 Loop i = 1: xx = 10 Do Until i > XA S.Cells(xx, 1) = RA.Cells(i, 1) S.Cells(xx, 3).Resize(, RA.Columns.Count - 2).Value = _ RA.Cells(i, 3).Resize(, RA.Columns.Count - 2).Value i = i + 1: xx = xx + 3 Loop End Sub

تفضل اخي الكريم اتمنى ان يكون المطلوب تحباتي images.rar

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

اخي العزيز بعد اذن استاذنا ابو البشر يكون الكود كالتالي =Nz(Sum([price_masrof]);0)

الاخ bachiri401 شاهد المرفق Test_1.xlsm

تم التعديل عند فتح الملف خاصية ( الأزار المتحركة تكون فعله وخاصية ( طباعه الخلايا المحددة بالماوس فقط ) تكون معطله عندما تريد استخدام خاصية ( طباعه الخلايا المحددة بالماوس فقط ) قم بتفعيل ( تشك بوكس ) بنفس الشت شاهد المرفقات Test_3.rar بإذن الله سأحاول عمل ذلك لكن ما هي الورقة المعنية بتلك المهمة ( الرورقة التي تعطينا منها الرقم )

كفكرة هل جربت nz

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

تفضل التعديل اخي الكريم Pupil Names.accdb

أخي RAGABFAROUK لطالما نصحنا أساتذتا بهذا المنتدي الكريم بتقسيم البرنامج الي واجهات وجداول أي تكون النماذج والاستعلامان والتقارير بقاعدة بيانات مستقلة وتكون الجداول بقاعدة أخري ويتم الربط بينهما -- تفاديا لمثل هذه المشكلات وكذلك الاحتفاظ بالنسخة الأصل قبل الحفظ بصيغة الــ ACCDE وكذلك أخذ نسخة أحتياطية من البرنامج كل فترة زمنية قريبة يخفف كثيرا من الاضرار الناجمة عن هذا العطل وفي النهاية أسأل الله أن يجيرك في مصابك ويخلف عليك خيرا منه وأرجو أن يكون المرفق به شئ مما ترجو الحصول عليه فهذا كل ما استطعت انقاظه لك DR_ELLABBAD_fixed.rar

أ.عماد محمد عبد العزيز جرب المرفق عسى أن يكون المطلوب مع مراعاة أن 2020 ستتغير كل عام .. أم أنك تريدها ثابته التوريد.accdb معذرة أخى Shivan Rekany لم أنتبه لردك

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

السلام عليكم 🙂 واصبح البرنامج مستعد يأخذ اي عدد 🙂 وبواجهة جديدة : . . جعفر 1158.2.mdb.zip

بارك الله فيك وزادك الله من فضله

طريقتي في عمل الاستعلام الخاص بالنموذج الفرعي المخصص لعرض نتائج البحث وكلها تؤدي الغرض طريقة البحث في النموذج الفرعي2.rar

طريقة ثانية : البحث في النموذج الفرعي نفرض أن لدينا مكتبة في جدول باسم Book تحوي اسم الكتاب والمؤلف والناشر وتاريخ النشر ونرغب في عمل مربع بحث مشترك بحيث عند الكتابة فيه يبحث في أي خانة مباشرة سواء كان اسم الكتاب أو المؤلف أو الناشر ... فالعمل على النحو التالي : 1) ننشئ جدولا باسم Book ونضمنه الحقول المطلوبة من اسم الكتاب والمؤلف والناشر ... إلخ. 2)ننشئ نموذجا مرتبطًا بالجدول (نماذج مستمرة) ونسميه FoBook. 3) ننشئ نموذجا آخر من جديد ثم طريقة عرض التصميم . 4) في رأس النموذج نضع مربعي نص الأول نسميه Text1 والآخر text2 5) في مربع النص text1 من الخصائص حدث عند التغيير نضع الكود التالي Dim x x = Text1.Text text2 = x Me.FoBook.Requery حيث text1 اسم مربع النص الأول و text2 اسم مربع النص الثاني وFobook هو اسم النموذج الذي تم عمله كما في الفقرة 2. 6) من خصائص مربع النص text2 تنسيق مرئي (لا). 7) في خانة التفصيل من هذا النموذج ندرج نموذج فرعي ونختار استخدام نموذج موجود ثم نختار نموذج FoBook. 8) نغلق النموذج ونقوم بحفظه باسم FoormBook 9) نعود للنموذج FoBook (الذي تم عمله في الفقرة 2) ومن خصائص النموذج بيانات مصدر السجل ثم نضغط على النقاط الثلاث ثم يطلب هل تريد عمل استعلام ثم موافق يفتح لك استعلام أدرج فيه حقول الجدول كافة. 10) وفي هذا الاستعلام ضع الكود التالي تحت كل حقل تريد البحث فيه في خانة معيار مع ملاحظة تدرجة في كل مرة في أو كما في المثال ثم اغلق واحفظ عملك Like "*" & [Forms]![Foormbook]![Text2] & "*" 11) ارجع إلى النموذج FoormBook واكتب في مربع النص الظاهر أمامك وتجد آليه البحث قد عملت.. أ والله الموفق طريقة البحث في النموذج الفرعي.rar

السلام عليكم و رحمة الله استخدم اخي النسخ اللصق الخاص كقيم

السلام عليكم ورحمة الله معذرة أخطأت في إرفاق الملف... إليكم الملف المرفق الذي هو تغيير طفيف على عمل الأخ أيسم ابراهيم والذي نستسمحه مرة أخرى... أخوكم بن علية calender1.rar

السلام عليكم الأخ الكريم تفضل المرفق به ما طلبت إن شاء الله لا تنسانا من صالح الدعاء دمت بخير أيسم إبراهيم calender.rar