رمهان

اعزائي اليكم هذا السطرالواحد من الكود والذي يقوم بفتح مربع حوار سحب الصور من الاسكنر وحفظ الصورة في نفس مسار برنامجك الاكسس ! Set img = CreateObject("wia.commondialog").ShowAcquireImage.SaveFile(CurrentProject.Path & "\" & InputBox("ادخل اسم الصورة") & ".jpg") تحياتي

معلوم ماذا تريد !وبدون ما اشوف المرفق ! انا احتاج اجابتك فقط على الاستفسار :السابق : لوحبيت تستعرض البيانات السابقة والتنقل بين السجلات؟ كما انه ماذا يكلفك الضغط على زر جديد؟؟ لكن الاجابة على نص السؤال : اذهب الى خصائص النموذج ومن تبويب بيانات ضع خاصية ادخال بيانات = نعم !! بالتوفيق

اوك ! بس لو حبيت تفتح البرنامج وتستعرض المدخلات سجل سجل ؟؟؟؟؟؟؟

وجزاكم الله خيرا اباخليل ! بس مافيش اعجاب ! او افضل اجابة !! كنت حاب ارسل لك خاص ! ولكن لايستقبل خاصك !! تحياتي

اهلا بك أستاذ أبا خليل على فكرة : في الاكسس 2010 واتوقع 2007 عند الضغط على مؤشر فلترة العمود من نوع تاريخ يأتي ضمن الخيارات الخاصة بخيار فلترة التواريخ " الأسبوع الحالي " ولكنه يعمل على رقم الأسبوع خلال الشهر والسنة ! بمعنى الاكسس نفسه لا يجلب أيام دخلت في سنة جديدة !! فهنا برجوعنا الى مشاركتي رقم 9 وتعريف معنى هذا الأسبوع : هل هو هذا الأسبوع من هذا الشهر ؟ ام هذا الأسبوع من هذه السنة ؟ فالحل الذي وضعته هو : هذا الأسبوع بغض النظر عن شهر وسنته ! وهنا شرح المعيار : ببساطة : اكبر من او يساوي الاحد السابق واقل من الاحد القادم ! طبعا اقل من بدون مساواة لعدم ادخال الاحد القادم وإدخال السبت القادم فقط ! فالجزء الأول يعيد الاحد السابق : استخدمت دالة إضافة عدد أيام الى التاريخ ! ف weekday تعيد رقم اليوم فاذا كان 1 ستكون الإضافة صفر أي صادف الاحد واذا كان اكبر ستضيف عدد أيام والناتج بالسالب مما يجعل التاريخ يعود للوراء بعدد أيام السالب . طبعا اكيد فهم الجزء الثاني والخاص بإعادة الاحد القادم ! تحياتي

عزيزي اباخليل ما رأيك بهذا المعيار بعمود التاريخ : >=DateAdd("d";1-Weekday(Date());Date()) And <DateAdd("d";8-Weekday(Date());Date()) فالعملية هي : احسب لي من الاحد الى الاحد ! اي هذا الاسبوع!! وما لنا شغل في الاسبوع والشهر والسنة !! تحياتي

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

Private Sub Form_BeforeUpdate(Cancel As Integer) If DCount("*", "tbl1", "a=form![a]") + DCount("*", "tbl2", "a=form![a]") > 1 Then Cancel = -1: Undo: MsgBox ("مكرر في احد الجدولين") End Sub

Private Sub comb1_AfterUpdate() Me.Filter = Nz(comb1, "id") & " Like ""*" & textfind & "*""": Me.FilterOn = True End Sub

تفضل عملية البحث وفي النموذج cust . لاحظ ان الفكرة : 1. مربع تحريروسرد يعرض الحقول : فقط انظر لخصائص البيانات واهم خاصية مصدر الصف=قائمة الحقول . 2. سناخذ اسم الحقل من مربع التحرير والسرد واذا كان فارغا سيعتمد ال id لاحظ كذلك الاختصار في الكود وهي نفس الفكرة السابقة للمثال الاجنبي ولكن بفكر عربي ! Private Sub textfind_Change() xvar = textfind.Text Me.Filter = Nz(comb1, "id") & " Like ""*" & xvar & "*""": Me.FilterOn = True textfind.SetFocus textfind = xvar textfind.SelStart = Len(xvar) End Sub ومسالة التضليل فلاحقا وبطريقة سهلة ان شاء الله ! تنبيه : ان من قام بالمرفق السابق لاشك انه محترف ولكنه يجهل كثيرا في خفايا الاكسس وميزاته والتي تجعلنا نختصر الكثير من الاكواد ! لقد احتوى المثال الاجنبي على اكواد زائدة جدا جدا يمكن تحسينها بنسبة كبيرة جدا ! تحياتي SearchHighlight.rar

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

اخي وائل هل المقصود عدد كم صنف لدي ام كم كمية كل صنف ؟ بالتوفيق

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

صحيح لدي 2010 وعمل بدون الحاجة لنقل التركيز ولكن ياترى اين السبب ؟؟ تحياتي

ومع الاستاذ جعفر بهذه الملاحظة ويمكن باستخدام فحص ان السجل جديد وباستخدام if me.newrecord then بالتوفيق

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

أوك . طيب ماهوه انا شاركت بوضع التنسيق yyyyww . وهو كفيل بالحل . ولكن انت طلبت لو اصبح ألاحد القادم داخل بسنة جديدة . وهنا المشكلة . ولكن لكي نجد افضل حل خلينا نعرف ما هو "الأسبوع الحالي" : 1.هل هو من ألاحد الى الاحد وبدون تمييز لو اختلف الشهر والسنة 2. هل هو من ألاحد إلى ألاحد بنفس الشهر والسنة بالتوفيق

تم تجربة مثال الاستاذ اسير الشروق ويعمل تماما ! بالتوفيق

انا اقصد استاذنا الجليل : ان باستخدام ما قلت بانه كفيل بالحل Format([dateM];"ww") لم يعطي الحل اذا وجد بالعمود اكثر من سنة ؟ فاردت ان اعرف الحل اذا وجد لديكم ابا خليل ؟ لاوفر وقت محاولتي وفكرة الحل ؟ تحياتي

مشاركة مع الأستاذ جعفر اعمل استعلام جديد وباسم qr1 ومصدره الجملة التالية: select DISTINCT [AnimalsRecords].[EarNo] from [AnimalsRecords] UNION select DISTINCT [BornsRecords].[SeasonalNo] from [BornsRecords]; وهذا الكود : Private Sub Cmd0_DblClick(Cancel As Integer) BornNo = Nz(DMax("[EarNo]", "qr1"), 0) + 1 End Sub اخي ابوخليل : كذلك انت لم ترد وتناقش هنا http://www.officena.net/ib/index.php?showtopic=60209&hl= تحياتي

يا ساتر !! كل ده بس !! اذا لك محاولة على الاكسس ارفقه وسيتم مساعدتك ! اما برنامج كاملا فسيحتاج الوقت الكثير ! وخاصة ان مثل هذا النظام به تريكات بسيطة محاسبيا لانه شبيه بانظمة التصنيع ! بالتوفيق

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

عزيزي يفي بطلبك أي نظام مخزون عادي ! ولكن خليني اعطيك فكرة فيما يخص برامج بيع الكمبيوتر ( طبعا اذا كان كمبيوتر تجميعي ) : مارايك ان يكون هناك برنامج يقوم بتجميع الجهاز ومن جميع القطع ؟ طبعا هي سهلة ! ولكن لو مثلا في البرنامج خيار تجهيز وتجميع كمبيوتر شخصي بالمبلغ الفلاني ؟ فيقوم النظام بالبحث عن القطع والبدائل التي تجعل من هذا المبلغ كمبيوتر جاهز !! بل ان هناك نقطة مهمة جدا في نظام إدارة مخزن الكمبيوترات وهي : مدى توفر جميع القطع الداخلة في انشاء كمبيوتر شخصي ! طبعا تسمى هذه العملية في مجال التصنيع ب MRP وهي هنا في صورة مصغرة وبسيطة ! تحياتي

اخي / اختي هذا منتدى خاص بالاكسس وليس بالدوت نت ! عالعموم هذه المرة وخلاص : زي ماتشبك على الجداول نفس الشي بدل اسم الجدول اختر اسم الاستعلام ولكن كتظهر معاك تحت ما يسمى با views ! بالتوفيق

الموضوع مخالف !!! مكرر !!! وهنا http://www.officena.net/ib/index.php?showtopic=52500 كما انه يمكن ان يكون كمشاركة هنا ولترابط المواضيع http://www.officena.net/ib/index.php?showtopic=60354 واسمحو لي بوجهة النظر هذي الشخصية : لماذا لا اربط من خلال الاكسس ! كلها كم دقيقة ! اذا لم تكن ثواني ! تحياتي