Accessna

هل لازال طريق أبي هادي عصيا عليك ؟

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

http://abbashmd.googlepages.com/

عملك جميل أخي الفاضل ولكن لي بعض التساؤلات : - لماذا لم يشاركك أحد في الموضوع غير الأخ SX1 أهو عيب في الكود ؟ أم عيب في كاتب الكود ؟ أم عيب في الأعضاء الممتنعين عن المشاركة ؟ - هل استأذنت صاحب الكود في التعديل في كوده ؟ وإضافة إسمك بجنب إسمه بداية الوحدة النمط…

المثال بشكله الأخير بعد أخذ جميع التعديلات السابقة والمقترحة بالإعتبار ResizeTextBox2.rar

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

/index.ph...st&p=646598

أقصد الـ FONT SIZE 8 9 . . . 72 هل يمكن إضافتها في النموذج ؟

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

لإقفال الأكسل بالطريقة التي استعملتها xlBook.Close SaveChanges:=False xlApp.Quit

بارك الله فيك أخ مفرج الفكرة ممتازة .. والحقيقة كانت واحدة من الأمور التي كنت أفكر في تطويرها ولكن عندما لم ألقى التجاوب مع المثال ألغيت فكرة التطوير طبعا لم أنزل المثال بعد تعديلك الأخير وكنت لاحظت أنك حذفت سطر إغلاق الملف . xlApp.Close acSaveNo من الأمور الت…

أما أنا فشاهدت مشاركتي حاكم وإكسير وأقول زيادة الخيرين ثلاثة :) الكود بعد الإختصار For No = 1 To 10 Me("txt" & No) = Mid(txt, No, 1) Next No

ما شاء الله شكرا لكم جميعا لازالت رغبتي قائمة في تطوير الفكرة ، لكن .. كما قالها الأخ msayed2004 استوقفتني فهل للأخ أن يزودنا بمثال يطبق فيه الدالتين لنفس غرض الموضوع ؟ أما اقتراح الأخ عمار زيد فهو لا يمكن تطبيقه إلا مع الخطوط التي تكون جميع حروفها بنفس العرض …

أعلى الله مقامكما أخواي عمار زيد و sx1 وشكرا جزيلا لكما على مشاركتكما الكريمة و "البلسمية" وإن شاء الله أنا باقي معكم مادام هناك أمثالكما بارك الله فيكما ونفعا بكما وحفظكما من كل مكروه

هذه آخر مشاركة لي في منتدى الأكسس وسوف أعود إذا رأيت أن أحوال المنتدى تبدلت باي باي

أنا قصدت هذا الاقتراح

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

ليس يومي 12 و 11 فقط ، هي تحدث للأيام التي لا تزيد عن قيمة الشهر القصوى وهي 12 يعني المشكلة تحدث للأيام من 1 إلى 12 فهو يعتمد التنسيق "mm/dd/yyyy" أي أن أول خانتين من اليسار للشهر ولكن إذا زاد عن 12 فهو من الذكاء أن يبدل بين الشهر واليوم يعني طالما اليوم أقل م…

بدل هذا : Cn.Execute "insert into Mydate (Sname,PDate) Values('" & Text1 & "',#" & Date & "#" & ")" بهذا : Cn.Execute "insert into Mydate (Sname,PDate) Values('" & Text1 & "',#" & Format(Date, "mm/dd/yyyy") & "#)" مع أني أنصحك أن تبدل طريقة إدخال البيانات بطري…

فكرة خطرت ببالي بالإستفادة من الأكسل وهي تمرير النص والخط ومواصفاته لملف أكسل ثم تحجيم الخلية وبعدها نأخذ حجم الخلية من الأكسل ونستخدم مقاساتها لصندوق النص بالأكسس فهمتوا :D الشرح عندي مشكلة ResizeTextBox.rar