Dream_Works

السلام عليكم أخي الكريم لدي بعض الملاحظات ... و لا أعلم إن كانت أمور معروفه لديكم أم لا ... و احتمال أنا أكون غلطان ... الله أعلم 1- الكود يظهر من اليمين الى اليسار مع وجود علامه حمراء أعلاه ( متبقي ) 2- لا يمكن إدراج عناوين للروابط .... (يمكن إدراج الرابط نفسه و لكن عنوانه لا يظهر ) ... و بعد إدراج الرابط لا يمكن تتبعه إلى الموقع المطلوب ( تم ) http://www.officena.net/ib/index.php?showtopic=19049 3- لا يمكن إدراج الصور في المواضيع ... (إدراج رابط صورة لا يعمل ) ( تم ) 4- شكل الموقع و استخدامه كان مريحا في السابق ... لذلك أرجو عدم وضع الكثير من التغييرات ( علم) شكرا لكم على مجهودكم الكريم مرة أخرى

أرجو النظر في الرابط التالي شرح زهره العبدالله للترقيم التلقائي

أخي الكريم المشكله إنك وضعت متغير اسمه .. (الاسم) مع وجود مربع نص في التقرير اسمه ( الاسم ) ... 2 لهما نفس الاسم ... لذلك البرنامج لم يكن يعمل ... و لكنني غيرت اسم المتغير من (الاسم) إلى (أسماء_منفصلة) ... مع أنني لا أنصح بوضع الكلمات العربية في الكود ... و لكن حسب رغبتك Dim أسماء_منفصلة() As String, CurrentString As String CurrentString = Nz(Me.الاسم, "") ' التأكد من أن الاسم لا يحتوي مسافتين متجاورتين CurrentString = Replace(CurrentString, " ", " ") أسماء_منفصلة = Split(CurrentString) ' التأكد من وجود اسمين أو أكثر If UBound(أسماء_منفصلة) > 0 Then Me.TxtName1 = أسماء_منفصلة(0) Me.TxtName2 = أسماء_منفصلة(1) End If أرجو أن هذا هو الحل الصحيح لمشكلة برنامجك ...

يمكنك استخدام الأمر InputBox لإدخال كلمة السر .. أو تقوم بتصميم فورم به مربع نص للإدخال حسب رغبتك Password = InputBox("Enter Your Password Please", "Password Dialog Title", "Default Value", "Left Alignment", "Top Alignment", _ "The Full Path Of Help File If needed (if the user press Help", "a Number Included with the Help file ") و هذا المثال موجود بالأكسيس Dim Message, Title, Default, MyValue Message = "Enter a value between 1 and 3" ' Set prompt. Title = "InputBox Demo" ' Set title. Default = "1" ' Set default. ' Display message, title, and default value. MyValue = InputBox(Message, Title, Default) ' Use Helpfile and context. The Help button is added automatically. MyValue = InputBox(Message, Title, , , , "DEMO.HLP", 10) ' Display dialog box at position 100, 100. MyValue = InputBox(Message, Title, Default, 100, 100) بعد أن يتم إدخال كلمة السر في متغير يمكنك حفظها في خاصية Tag في الفورم أو مربع النص و لكن لا يمكنك تعديل هذه القيمة إلا عند فتح الفورم بمرحلة التصميم ... يعني مثلا Docmd.OpenForm "Form1" , acDesign Forms("Form1").Tag = password docmd.close acForm , "Form1" بعد ذلك يمكنك استرجاعها و التأكد منها في أي وقت أرجو أن يكون هذا طلبك

أخي الكريم احتمال أسماء مربعات النصوص في تقريرك تختلف ... الكود الذي وضعته يحتاج إلى وجود ثلاثة مربعات نصوص بالأسماء التالية : 1- TxtName1 و هو الاسم الأول 2- TxtName2 و هو الاسم الثاني 3- TxtFullName و هو الاسم الكامل يمكنك تعديل أسماء مربعات النصوص لديك أو تعديل الأسماء الموجودة في الكود حسب اللي عندك أرجو أن يكون هذا الحل لمشكلتك ... و إن لم يكن ... أرجو إرفاق قاعدة بياناتك باستخدام الحل المؤقت الحل المؤقت

للأسف لم أفهم هذا السؤال ... أرجو التوضيح قم بتعديل الجملة الشرطية في الكود ... كالتالي If UBound(FullName) > 0 Then Me.TxtName1 = FullName(0) Me.TxtName2 = FullName(1) Else Me.TxtName1 = CurrentString End If

أرجو النظر في الرابط التالي ... يحتوي على شرح رائع حول هذا الموضوع للأخ الفاضل "MAXXIN" في منتديات المحيط العربي شرح MAXXIN

تفضل أخوي الملف بعد التعديل لقد قمت بعمل استعلام تحديث بيانات حسب رقم سند الدخول ثم استدعيته بالكود ' لإلغاء رسالة التحذير ' DoCmd.SetWarnings False DoCmd.OpenQuery ("UpdateTotal") ' DoCmd.SetWarnings True أرجو أن يكون هذا طلبك

مثال رائع جدا أخي الكريم الله يبارك في كل شخص ساهم في إنشائه أو نشره ... الله يعطيك العافية ...

أشكركم يا أخوان على مشاركاتكم الفعالة في هذا الموضوع ... و بالذات أخونا الخبير Enjoy لدي رأي بسيط حول الموضوع أخي الكريم الجشعمي أولا ... يستحسن عمل نسخة من قاعدة بياناتك قبل عمل مثل هذه الأمور ... و العمل على النسخة أعتقد أنه يجب عليك مسح ارتباطات الجدول مع باقي الجداول ( أعتقد إنك استخدمت حقل الترقيم التلقائي في الربط ) و بعد أن يكون الجدول منعزلا تماما يمكنك حذف حقل الترقيم التلقائي من الجدول ببساطة ... بعد نسخ البيانات كلها من الجدول .. ووضعها في الحقل الجديد و لكن المشكلة ... هي ارتباطات الجدول مع باقي الجداول ... يجب تعديلها كلها ... للارتباط مع الحقل الجديد ملحوظة : حقل الترقيم التلقائي نوعه Long Integer ... يجب أن يكون الحقل الجديد بنفس النوع ... لأنه نفس نوع حقول الجداول الأخرى المرتبط بها بالتوفيق إن شاء الله

أرجو أن يكون فهمي للمشكلة صحيح يمكنك تعريف Public Variable في الفورم Public Count as Integer و قبل مناداة التقرير يتم وضع صفر في المتغير و في الحدث OnPage في التقرير تقوم بزيادة هذا المتغير مع طباعة كل صفحة و من ثم تقوم باسترجاع ما في هذا المتغير بأي وقت ملحوظة : استدعاء المتغير من خارج الفورم يتم بهذا الشكل Forms("Form1").Count

أعتقد أنه يمكن عمل ذلك ببساطة بوضع الكود التالي في المربع الموجود أسفل مربع الكود الأول [forms]![CSF]![city1] = "أخرى" and [CityName] in ("الدمام" , "الرياض" , "الجبيل" , "ينبع" , "الخبر") مع وضع هذا الكود في الحدث .. AfterUpdate ... لمربع السرد ... أو في زر البحث نفسه ... OnClick ... حسب رغبتك Me.City1.requery أرجو أن يكون هذا طلبك بالتوفيق إن شاء الله ...

يمكنك التحكم بخاصية الرؤية Visible اسم الحقل.Visible = False

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

الله يعطيك العافيه ... أخي Enjoy

أشكركم جميعا على ثقتكم الغالية ... و إن شاء الله سأساهم في تحسين و تطوير مستوى هذا المنتدى معكم بإذن الله ... :)

أرجو النظر في الرابط التالي حساب الوقت المستغرق

يمكنك ببساطة فلترة بيانات النموذج الفرعي دون الحاجة إلى تغيير مصدر البيانات فمثلا With Me.subformName.Form .Filter = "[TableField] = 'TableName' " .FilterOn = true End With و توجد أيضا طرق أخرى ... فإذا أمكنك رفع قاعدة بياناتك إلى أي موقع رفع ملفات كالتالي رفع ملفات أو على الأقل توضيح المطلوب بمزيد من التفصيل سأحاول إيجاد أنسب طريقة لقاعدة بياناتك

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

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

أنا أعتقد أنه يوجد في الأكسيس Speech Recognition System و يمكن الوصول إليه عن طريق Tools -> Speech و لكنني لم أجربه من قبل ... و للأسف ما عندي ميكروفون للتجربة

راح أحاول أشرح لك سطر سطر ... For Each tbl In CurrentDb.TableDefs طبعا أنت شفت إني عرفت متغير (Variable) اسمه tbl في بداية الكود و نوعه TableDef Dim tbl As dao.TableDef هذا المتغير قادر على تخزين جدول في مرحلة الDesign بحيث تتحكم فيه كما تريد قبل أن تقوم بتخزينه مره أخرى... الرجاء النظر في الصورة على الرابط جدول في مرحلة التصميم هذا متغير موجود في الأكسيس و يشير دائما إلى قاعدة البيانات الحالية هذا التعبير يقوم باسترجاع جميع الجداول الموجودة في قاعدة بياناتك و بالتالي فإن معنى السطر بالكامل هو ... لكل Table Definition موجود في قاعدة البيانات الحالية CurrentDB قم بعمل الآتي ... (يتم تخزين كل جدول في المتغير tbl) ... و يستمر في استرجاع الجداول واحد واحد If Left(tbl.Name, 4) <> "MSys" Then توجد جداول مخفية في كل قاعدة بيانات ... غير الجداول التي التي يتم إنشاؤها من المستخدم ... ولاحظت أنها دائما تبدأ بكلمة MSys ... الرجاء النظر في الصورة على الرابط الجداول المخفية في الأكسيس لذلك كان يجب أن أتأكد من عدم إدراجها في القائمة المنسدلة ... فاستخدمت التعبير حتى أتأكد من أن اسم الجدول لا يبدأ بهذه الأربع حروف ... هنالك عيب في هذه الطريقة وهو لو أنشأ المستخدم جدولا يبدأ بهذه الأربع حروف فلن يظهر في القائمة المنسدلة طبعا لاحظت أخوي إن الدالة Left تستخدم في استرجاع الحروف من اليسار إلى اليمين ... لذلك استخدمتها و استرجعت أربعة حروف فقط من اسم الجدول ... .AddItem (tbl.Name) هذا السطر يضيف اسم الجدول إلى القائمة المنسدلة ... و طبعا لأن نوعها ValueList فيمكنني التحكم في القيم التي بها أما لو كانت تعتمد على استعلام Table/Query فلن يمكنني ذلك End If نهاية الجملة الشرطية Next tbl هذا السطر يعود إلى بداية ال For loop ( أول سطر شرحناه ) مع تخزين الجدول التالي في المتغير Tbl .. و هكذا إلى أن تنتهي الجداول .Value = .Column(0, 0) بعد أن تم وضع جميع أسماء الجداول المطلوبة في القائمة المنسدلة ... يتم اختيار قيمة من بينها ووضعها في القائمة المنسدلة ك - بداية .. Initialize Value و أنا اخترت القيمة الأولى طبعا لو تتخيل محتويات القائمة المنسدلة ك مصفوفة تحتوي على صفوف و أعمدة ... فهي تحتوي في هذه الحالة على عمود واحد و عدة صفوف ... الرجاء النظر في الصورة على الرابط وضعية الأعمدة و الصفوف في القائمة المنسدلة Set tbl = Nothing أنواع المتغيرات الخاصة ... كالمتغير الذي يشير إلى جدول أو يشير إلى مجموعة سجلات Record Set .. عادة تأخذ مساحة ملحوظة من ذاكرة الجهاز .... و أحيانا تبقى في الذاكرة إلى أن يتم إغلاق قاعدة بياناتك ... لذلك يستحسن التأكد من مسحها من الذاكرة بعد الانتهاء منها مباشرة أرجو أن يكون الشرح واضح ... و أي سؤال أو استفسار لديك ... سأحاول إجابته قدر استطاعتي بالتوفيق إن شاء الله ...

جرب هالمره أخوي ... إن شاء الله تضبط معاك الملف بعد التعديل

تفضل أخوي الملف بعد التعديل

الله يعطيك العافية أخي منذر على هذا الموضوع الجميل و لكل من ساهم في نشره