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

تأكد من اسم المربع النصي اللي فيھا قيمة حقل 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

السلام عليكم و رحمة الله و بركاته أعمل بكود لفتح الصور على الرسام (Shell "mspaint.exe ""d:\photo\worker\" & [Worker] & ".jpg""", vbMaximizedFocus) المطلوب تغيير (d:\photo) الى مسار البرنامج باستخدام (CurrentProject.Path) وجزاكم الله خيرأ Photo.rar

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

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

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

جرب هذا IIf(IsError(Sum([price_masrof];0)

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

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

اخي العزيز يمكن لديك مشكله ارفق مثال يكون افضل للتصحيح تحياتي nullzero.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% تقريبا

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

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

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

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

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

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

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

انت استعملت الكود الذي يذكر لك المكرر في نفس الصفحة مرة واحدة كات يجب استعمال الكود الثاني اي الكود الموجود في الرد على الأخ (ابا يوسف) التي تحمل عنوان : في هذاه الحالة يلزم هذا الكود

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

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

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

حياكم الله أجمعين وأعتذر لانقطاعي والحمد لله ... مرفق المطلوب طريقة البحث في النموذج الفرعي.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

نفس الشيء ضع فى المعيار الخاص بحقل التاريخ فى مصدر بيانات التقرير Between [Forms]![FormName]![DateFrom] And [Forms]![FormName]![DateTo] حيث DateFrom و DateTo هي أسماء مربعات النص التي تحوي التاريخ مرفق مثال أعتقد أنه للاخ ابن مسقط Date_from_to.rar

فى مصدر بيانات التقرير ضع المعيار التالي في حقل التاريخ Between [أدخل تاريخ البداية من فضلك] And [أدخل تاريخ النهاية من فضلك] و اذا أردت اظهار التاريخين علي التقرير فضع مربعي نص و اجعل وصدرهما التعبيران التاليان [أدخل تاريخ البداية من فضلك] [أدخل تاريخ النهاية من فضلك]