rudwan

شكرا للأساتذة الأفاضل جميعهم في الحقيقة حصلت على الحل الذي أريده من خلال استخدام الدالة value و الحمد لله , و شكرا لك يا أستاذ أبو مؤنس و لكن من أجل الفائدة العامة , خطر لي السؤال التالي : لو كانت عندي حالة معاكسة للحالة الأولى , أي حصلت على نص يحتوي على عدد خانات أقل من العدد النظامي ( 11 ) خانة , هل يمكن اضافة أصفار الى اليسار حتى تساوي 11 خانة , أنا آسف أعرف أثقلت عليكم , و لكن ربما أستفيد منه في المستقبل .

شكرا أخي الفاضل و لكل من شارك بوضع هذا الحل , و هذا بالفعل ما أريده و لكن استفسار آخر , هل هناك طريقة لتحويل النص الى رقم كما في الأكسس عن طريق دالة clong ولم أجد هذا في الأكسل

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

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

السلام عليكم و رحمة الله و بركاته لدي ملف يحتوي بيانات فاتورة هاتف قمت بتحميله من الانترنت على شكل ملف نصي , ثم قمت باستيراده الى ملف اكسل بالنسبة لأحد الحقول - أرقام الهاتف المتصل بها - اظن تم استيراده كما هو على شكل نص و ليس رقم , وكان بهذا الشكل : 00966123145678 حاولت تنسيق هذا الحقل على شكل رقم , أو على شكل رقم هاتف مخصص ولكنه بقي كما هو كيف يمكن أن أعدل تنسيقه بحيث يصبح رقم و تنحذف منه الأصفار على اليسار لتصبح كما يلي : 966123145678 مع العلم أن سجلات الحقل طويلة جدا

السلام عليكم كان هناك معلومة من الاستاذ محمد طاهر حول متى نستخدم me! و متى نستخدم me. في أكواد النموذج و قد حاولت البحث عنها في المنتدى فلم أجدها هل من الممكن اعادة طرح المعلومة ؟

السلام عليكم عندي تقرير , يطبع قيد يومية محاسبي , بنهاية كل صفحة يعطي مجموع المدين و الدائن الجزئي , ثم ينقل هذا المجموع الى رأس الصفحة التالية , و بنهاية التقرير يعطي مجموع المبالغ المدينة و الدائنة , - جعلت حقل لحساب المجموع الجزئي بنهاية الصفحة فأعطى خطأ - مجموع نهاية التقرير يعطي النتيجة صح , لكن يأتي المجموع بنهاية البيانات تماما , أي يمكن أن يأتي في أول الصفحة أو منتصفها أو آخرها حسب ما نتتهي البيانات , كيف يمكن جعله يطبع بنهاية الصفحة الأخيرة فقط

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

الحمد لله , تم التوصل بفضل الله الى الحل الصحيح , و هذا هو الكود Private Sub Form_BeforeUpdate(Cancel As Integer) Dim m As Integer Dim ctl As Control Dim intnewrec As Integer intnewrec = Me.NewRecord If intnewrec = True Then MsgBox " you insert a new record " Else For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then If ctl.OldValue <> ctl.Value Then m = InputBox(ctl.ControlName & " value already changed Enter your password to save ?") If m = 1 Then Cancel = false Else Cancel = true ctl.Undo End If End If End If Next ctl End If End Sub حيث في الأسطر من 4 الى سبعة اختبار فيما اذا كان السجل الذي تم تعديله هو سجل جديد أم لا , فاذا كان السجل جديد لا داعي لارسال رسالة عند تغيير أي حقل , فهذا يبدو عملا متعبا و عديم الفائدة , أما اذا كان السجل الذي تم تعديله مسجل سابقا , فانه يتم الانتقال في السطر 9 لعمل حلقة دورانية لفحص كافة عناصر التحكم ( شرط أن لا تكون عناوين أو صفحات أو غيرها ) فاذا وجد عنصرا قد تغيرت قيمته , يرسل رسالة تبين أن الحقل المسمى " " قد تغيرت قيمته , و يطالب بادخال كلمة سر للتأكد من صلاحية التعديل , فاذا كانت كلمة السر صحيحة يحفظ التعديلات , و الا يلغي التعديل و يعيد القيمة القديمة للعنصر و هكذا بالنسبة لبقية العناصر

شكرا لك على هذا الرد , و لكن توجد عدة ملاحظات : أولا : الكود المكتوب هو كود خاص بحقل معين , و أنا أريد كود عام لضبط التغييرات في أي حقل في النموذج . ثانيا : أظن أن هناك خطأ في الكود و هو أنه يجب وضع inputbox بدلا من msgbox ثالثا : الحدث يفترض أن يكون before update وليس after ubdate على كل حال قمت بالتجريب و توصلت الى الحل التالي : أولا قمت بعمل اجراء خاص في النموذج : private sub changed () Dim ctlTextbox As Control For Each ctlTextbox In Me.Controls If ctlTextbox.Value <> ctlTextbox.OldValue Then MsgBox ctlTextbox.Value End If Next ctlTextbox End Sub ثانيا : عند حدث بعد التعديل على النموذج Private Sub Form_BeforeUpdate(Cancel As Integer) Dim m As Integer Dim intnewrec As Integer intnewrec = Me.NewRecord If intnewrec = True Then MsgBox " you insert a new record " Else Changed m = InputBox(" save ") If m = 1 Then Cancel = True Me.Undo Else Cancel = False End If End If End Sub و لكن المشكلة أن البرنامج يرسل لي رسالة خطا بالنسبة للاجراء الخاص عند If ctlTextbox.Value <> ctlTextbox.OldValue Then بأنني أدخلت قيمة غير معروفة , و أنا بصدد المحاولة ثانية لمعرفة أين الخطأ

السلام عليكم لدي نموذج , أريد أن يرسل لي رسالة عند تعديل أي قيمة فيه يخبرني بأن قيمة الحقل [ ] قد تغيرت فهل تريد حفظ التعديلات أو لا . فكرت في حل ذلك باحدى طريقتين : أولا : أن أضع تعليمة لحدث on change لكل حقل بحيث عند تغيير أي قيمة فيه يطلب مني تأكيد حفظ التغير أم لا , و اذا لم يتم تأكيد الحفظ يعمل text.oldvalue و لكن هذه الطريقة ربما فيها ركاكة و تعقيد ثانيا : وضع التعليمة عند حدث after update للنموذج , و لكن في هذه الحالة أحتاج الى مايلي : 1-في حال عدم الرغبة في حفظ التعديل , هل التعليمة هي : record.undo 2-أريد أن يخبرني عن الحقل الذي تم تفيير قيمته , كيف ؟ 3-حدث after update يعمل أيضا في حالة اضافة سجل جديد , فكيف يمكن حصر اعطاء التعليمة بالتغيير فقط , حيث لم أجد حدث اسمه form_ change

شكرا لكل من ساهم في الاجابة و أعتذر عن الصمت حيث كنت أجرب ما فعلته سابقا تبين لي أن ما فعلته أنا كان صحيحا و لم يكن عندي أي خطأ في الرموز حيث نسخت الملف نفسه بدون أي تعديل الى جهاز ثاني و أعطى المجموع بشكل صحيح و لكن العيب كان ربما من نسخة الأوفيس حيث في الجهاز الذي كنت أعمل عليه كان object غير متوفر حيث تظهر لي دائما رسالة active x cannot creat an object فيا ترى كيف أستطيع حل حل هذه المشكلة عندي ؟ هل أعيد تحميل الأوفيس أم الوينوز بكامله ؟

نعم راجعت الأسماء و المعادلات قبل عدة ايام كان يعطي في مربع النص خطأ # ENAME و بعد المراجعة اكتشفت أن اسم النموذج الفرعي خطأ , و بعد أن عدلته أصبح يعطي # ERROR طيب , ممكن يا باش مهندس ترفق لي مثال بسيط لو تكرمت , حتى أعرف فين الخطأ

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

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

نعم و لكن كيف يمكن عمل تقرير واحد من بيانات عدة ملفات ؟

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

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

شكرا لجهود الاستاذ شاكر أوكي , أعدت تحميل الملف مرة ثانية , و اشتغل تماما

حاولت التعديل , و لكن يعطيني في النص تواريخ غريبة , و لكن بمتابعة break point القيمة صحيحة عند المعيار s و المطلوب فقط كيفية تحويله الى قيمة في الحقل d1

الاستاذ الفاضل / شاكر أنا فعلا شاكر لك شكرا جزيلا جهدك المرموق , و يكفي القول و بكل أمانة أنني راسلت أحد المواقع الآجنبية و جاءني الرد بأنه لا يمكن التحويل بين التاريخين الهجري و الميلادي , و قد قمت بتنزيل الملف المرفق , و أعطى بالفعل نتيجة صحيحة للمعيار s و لكن انهاء الفورمات لم يكن ناجحا , حيث تظهر لي رسالة run time error بأن التنسيق غير مناسب للحقل

لدي ملف عملت له تحويل التاريخ من الخيارات الى تاريخ هجري , و ذلك حتى أتمكن من ادخال البيانات التي تصدر بالتاريخ الهجري و لكن لآن الميزانية عندنا أساسها ميلادي , فانني بحاجة للتاريخين معا الهجري من أجل متابعة و تخزين بيانات الفواتير المتسلسلة , و الميلادي من أجل تسجيل القيود المالية . لذلك أرغب بعمل كود يقرأ النص كتاريخ هجري و يقوم بتحويله الى تاريخ ميلادي و تخزينه في حقل آخر , فهل هذا متوفر ؟

الدالة dlookup تبحث عن قيمة في حقل مساوية للقيمة المطلوبة تماما , لكن لو كنت أريد أن أبحث عن قيمة تقع بين مجالين , بحيث أعمل حقلين , الحقل الآول فيه القيمة الدنيا و الحقل الثاني القيمة العليا لكل مجال , هل توجد دالة تبحث ماشرة عن تحقق شرط أن تكون القيمة التي أريدها تقع بين هذين المجالين , بدلا من عمل ملف و البحث فيه قيمة قيمة ؟

الله ينور يا هندسة

مساعدة يا شباب