رمهان

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

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

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

عزيزي أولا تصميم الجداول وطريقة الربط عليك بإعادة بناؤها ! لاينصح ان يتم الربط بحقول تحتوي احرف وخاصة العربية ! ثانيا: تستخدم الامر refresh كثيرا وفي أماكن ليس له حاجة ! استبدله باكود الذي شارك به االاخ محمد في المشاركة السابقة أخيرا : استبدل المعيار في الاستعلام مصدر مربع التحرير والسرد باتالي [Forms]![Journal]![Account] لاحظ علامة التعجب وليس نقطة ! بالتوفيق

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

شرفتنا أستاذ يوسف بمرورك وذكرتنا بالبرمجة على الفيجول بيسك 5 ! تحياتي

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

اخي وائل على فكرة انا شاركت لاحساسي بان الموضوع فيه تشغيل للبطيخة بتاعتنا (دماغنا) ! ولا اخفيك لسا لم توضح الصورة ! فخليني اسالك : مالفائدة ؟ الى اين تريد ان تصل ؟ تحياتي

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

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

حيا الله الاستاذ الجليل ابا خليل لقد اوردتم كلمة "اعتقد" انك توصلت للحل ولم تجزم ! فهل ياترى تقصد قصوره عند وجود عدة سنوات ؟ لذلك يمكن التنسيق بهذا الشكل yyyyww تحياتي

عزيزي لك هذا المرجع وهو احد مشاركاتي هناك فهو قريب جدا لما تريد ! وبه افكار جميلة ! http://www.accesswordkingdome.com/forum/forum/برنامج-مايكروسوفت-آكسس/15226-بليز-ازا-حدن-بئدر-يساعدني-تخزين-بيانات-باكتر-من-حئل تحياتي

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

اعطينا واحد من أسماء الملفات التي لديك ؟ لمعرفة شكل تنسيق التاريخ!

اخي مصطفى صالح سؤالك واضح من اول مشاركة ؟ وهو عبارة عن كيف اجراء عملية حسابية بين سجلين مختلفين وفي نفس العمود ؟ الان لا يتوفر جهاز للتطبيق ولكن فكرة الحل هي كالتالي : اعمل استعلام به معيار النوع =دخول لتحصل على سجلات الدخول ! ثم اعمل استعلام ثاني به معيار النوع=خروج لتحصل على سجلات الخروج ! ثم اعمل استعلام ثالث يحتوي على الاستعلامين السابقين ومربوطين برقم الموظف واطرح عمودي الوقت من بعض ! هذا مرجع لنفس الطلب والفكرة http://www.accesswordkingdome.com/forum/forum/برنامج-مايكروسوفت-آكسس/الاستعلامات-ولغة-sql/13931-حساب-ساعات-العمل بالتوفيق

اخي كريمو2 أولا : حدد مربعات النص التي تريد ان يتم التنبيه عند تكرار البيانات بها . ثم خصائص >> ثم علامة التبويب غير ذلك >> ثم ضع a عند الخاصية "علامة" او "tag" ولكل مربعات النص المحددة. ثانيا :ضع الكود السابق خلف زر الامر حفظ والذي هو باسم "امر13" . طبعا امسح الاكواد السابقة. بالتوفيق

السلام عليكم طبعا مشاركة مع الأستاذ الكبير والخبير يوسف احمد لا بد ان تكون على نفس مقامه ومستواه هنا أستاذ يوسف لو ترك حقل التاريخ فارغ قد يحدث خطأ فيحتاج عمل إضافي الطرق كثيرة ولكن بفكرة خطرت على بالي ونفذتها. يعيبها انها قد لا تقبل عند الحدث قبل التحديث ولكن اذا كان الهدف تنبيه فهي لذلك تماما وبكل يسر وسهولة الفكرة : - حدد أي عنصر او مجموعة عناصر من النموذج واعطهم خاصية علامة او tag واحده للعناصر المحددة وهنا اسمها a - الكود سيمر على كل العناصر التي لها خاصية tag = a ثم يضع المؤشر بها ثم يفلتر على أساس العنصر المحدد وباستخدام الامر العجيب filterbyselection فهو يفلتر وحسب تنسيق القيمة وبدون حاجة لوضع تنسيقات القيم حسب نوع بيانات العنصر الكود : Private Sub أمر13_Click() ''رمهان ''اوفيسنا For Each c In Me.Controls If c.Tag = "a" Then c.SetFocus: DoCmd.RunCommand acCmdFilterBySelection Next c If Me.Recordset.RecordCount > 1 Then MsgBox ("بيانات مكررة") End Sub حبينا نشغل البطيخة أستاذ يوسف شويتين !!! تحياتي

اوك ! فهمنا نوعا ما ! وجدتك واضع الخاصية ادخال بيانات للنموذج = نعم لذلك جرب الكود التالي وعلى المثال بالمشاركة رقم 6 Me.form2.Requery بالتوفيق

اخ حسين لا اعلم اين مشكلتك فما قام به الأخ حلبي لما طلبت بالتمام ولكن جرب Private Sub أمر4_Click() Me.form2.SetFocus DoCmd.GoToRecord , , acNewRec End Sub طبعا طبقه على المثال المرفق بالمشاركة 6 بالتوفيق

لنفترض ان اسم النموذج الرئيسي frm_main والنموذج الفرعي frm_sub frm_main.frm_sub.setfocus DoCmd.GoToRecord , , acNewRec بالتوفيق

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

Private Sub أمر0_Click() ''رمهان ''اوفيسنا Dim objw As Object Dim objd As Object Set objw = CreateObject("Word.application") Set objd = objw.Documents.Add objw.Visible = True ''هنا تستطيع عمل شرط على السجلات مثلا الفارغة وذلك لتقليل كثرة عملية التعديل Set rs = CurrentDb.OpenRecordset("جدول_الرسائل"): rs.MoveLast: rs.MoveFirst For i = 1 To rs.RecordCount objd.Range.Text = rs(1) objw.Selection.Find.ClearFormatting objw.Selection.Find.Replacement.ClearFormatting With objw.Selection.Find .Text = "[ً-ْ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With objw.Selection.Find.Execute Replace:=wdReplaceAll DoCmd.RunSQL "update جدول_الرسائل set حقل1='" & objd.Range.Text & "' where مفتاح_أساسي=" & rs(0) rs.MoveNext Next i Set objd = Nothing objw.Application.Quit SaveChanges:=wdDoNotSaveChanges Set objw = Nothing Set objd = Nothing End Sub الجميل مرورك أستاذ جعفر ومشاركتك ! لو لاحظت في الكود بعدم استخدام جملة اجبار تعريف المتغيرات في اعلى الوحدة النمطية! فاصبح المتغيرين objw و objd متغيرين من نوع كائن ضمنيا باستخدام جملة creatareobject عزيزي جعفر : تابع معي في : 1. اضف السطر objw.Visible = True في البداية وبعد تعريف الكائنات : لتقريب فكرة عمل البرنامج 2. جرب بطريقتك وبدون مرجع هل تم حذف التشكيل : يمكن مراقبة النص المتغير بملف الوورد الظاهر 3 . طبعا كلنا نعرف ربط الكائنات المبكر والمتاخر ! فباستخدام createobject لم يعد هناك لازم في إضافة المرجع ولكن حدث ان الكود لم يعمل بالشكل المطلوب فعملية البحث والاستبدال لم تقوم بعملها وهذا ما جعلني اعمل لساعات طويلة في إيجاد المشكلة وعند اضافة المرجع بشكل صريح من المراجع نجحت العملية 4. اقصد بالمرجع حسب اصدار الاوفيس لديك فكل حسب الإصدار المتاح ملاحظة : اذا ضبطت معاك النقطة رقم 2 أي بدون إضافة المرجع والاكتفاء بالربط المتأخر للكائن فمعناته يمكن السبب وجود اصدارين للأوفيس لدي ! تحياتي

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

السلام عليكم ورحمة الله وبركاته احبتي اهدي لكم محاولة بسيطة لموضوع إزالة التشكيل في الاكسس طبعا كان هناك مشاركات حول هذا الموضوع هنا http://www.officena.net/ib/index.php?showtopic=59784 حيث يتلخص الحل بفكرتين : 1. انشاء دالة خاصة تقوم بفحص الاحرف والرموز المستثناه من الابعاد عن النص وما غير ذلك سيتم اعتماده ! انظر استعلام 1 والدالة fn 2. باستخدام إمكانيات الورود في ذلك ! انظر نموذج1 ! لاحظ هنا انه لابد من وضع مرجع للورود من خلال نافذة الكود ملاحظة : استخدمت ملف الأخ السائل في الرابط السابق الأخ "محب لله ورسوله" وذلك لاحتوائه على نص مشكل وفضيل ونسأله سبحانه الثواب والاجر لنا وللأخ صاحب الملف ! تحياتي 'رمهان 'اوفيسنا Public Function fn(fld) y = "أبجدهوزحطيكلمنسعفصقرشتثخذضظغـ ىؤءئةاآإ()><.؟}{][1234567890:,/" For i = 1 To Len(fld) If InStr(1, y, Mid(fld, i, 1)) > 0 Then xx = xx & Mid(fld, i, 1) Next i fn = xx End Function Private Sub أمر0_Click() ''رمهان ''اوفيسنا Set objw = CreateObject("Word.application") Set objd = objw.Documents.Add ''هنا تستطيع عمل شرط على السجلات مثلا الفارغة وذلك لتقليل كثرة عملية التعديل Set rs = CurrentDb.OpenRecordset("جدول_الرسائل"): rs.MoveLast: rs.MoveFirst For i = 1 To rs.RecordCount objd.Range.Text = rs(1) objw.Selection.Find.ClearFormatting objw.Selection.Find.Replacement.ClearFormatting With objw.Selection.Find .Text = "[ً-ْ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With objw.Selection.Find.Execute Replace:=wdReplaceAll DoCmd.RunSQL "update جدول_الرسائل set حقل1='" & objd.Range.Text & "' where مفتاح_أساسي=" & rs(0) rs.MoveNext Next i Set objd = Nothing objw.Application.Quit SaveChanges:=wdDoNotSaveChanges Set objw = Nothing Set objd = Nothing End Sub التشكيل.rar

اخي الكريم انا عملت لك الحل وبطريقة برمجية في المشاركة رقم 7 ! حيث يوجد الاستعلام وبه العمود الجديد ! ولكن عندما شفتك بعيد عن ما قمنا به وبطرحك الاستفسار مرة اخرى ! قلت نعطيك المطلوب بالتمام ! لكن فاجأتني بعودتك والسؤال عن الطريقة ! يوجد وحدة نمطية في المشاركة رقم 7 ويوجد متغير اسمه y يحتوي الحروف العربية اضف حروف اخرى مثل > } { ? وغيرها كما تريد وانتبه ما تضيفه لا يتم استبعاده ! مثلا رموز التشكيل لم نضيفها وبذلك سيتم استبعادها ! اخي الكريم : لماذا مصر ان يكون الحل في عمود جديد بالجدول ؟ هونفس الشي عمود بالاستعلام ! بل هذا لما تريد ! ما تضيفه في الجدول يظهر في الاستعلام! اخي الكريم : لا تجي تقول مش فاهم الحل ؟ هذا مستوى سؤالك . عالي شوي بل هو عالي على مستوى الاكسس ! خذ هذا الرابط كيف مسح التشكيل في الوورد وهو مصدر معلوماتي وبداية الخيط كان عن طريق الاستاذ ابا خليل وسيكون بداية الخيط للحل الآخر الذي يدور في راسي !! http://www.ahlalhdeeth.com/vb/showthread.php?t=231097 المشاركة رقم 12 وبهذا تقدر تنسخ عمود من الجدول ولصقه في الوورد ثم اتباع الخطوات السابقة وحذف التشكيل ثم نسخه مرة اخرى ولصقه في عمود جديد بالاكسس ! ( هذا ما عملته انا في الملف الاخير ) بالتوفيق