ريان أحمد قام بنشر مارس 18, 2012 قام بنشر مارس 18, 2012 السلام عليكم عندي قاعدة بيانات وفي كل مرة نقوم بالتعديل على قاعدة البيانات أريد تصميم زر يقوم يإستدعاء التغييرات التي تمت في قاعدة البيانات وتاريخ الذي تم فيه التغيير والوقت كما موضحة في الميثال ويتم إ‘ستدعاءالتغييرات حسب التاريخ من إلى أو تاريخ معين فقط خاصية إصافية إن أمكن modi.zip
الـعيدروس قام بنشر مارس 18, 2012 قام بنشر مارس 18, 2012 (معدل) السلام عليكم احدث اي تغير في اي ورقة وشاهد التفاصيل في ورقة My_Con مانرجوه دعوة بظهر الغيب كmodi_ALI.rar تم تعديل مارس 18, 2012 بواسطه alidroos
saad abed قام بنشر مارس 18, 2012 قام بنشر مارس 18, 2012 اخى ابونصار عمل جميل جدا جزاك الله خيرا سعد عابد
الـعيدروس قام بنشر مارس 18, 2012 قام بنشر مارس 18, 2012 الاخ الحبيب سعد عابد شاكر لك مرورك العطر وكلماتك الطيبه تقبل تحياتي وشكري
الـعيدروس قام بنشر مارس 18, 2012 قام بنشر مارس 18, 2012 السلام عليكم الاخ الفاضل طاهر بالنسبة للفورم البحث حسب التاريخ اذا يلزم ارجو منك اعطائي بعض الوقت لاني مشغول شويات
ابو تميم قام بنشر مارس 18, 2012 قام بنشر مارس 18, 2012 والله عمل أكثر من رائع أخي ابو نصار جزاك الله خيرا
ريان أحمد قام بنشر مارس 18, 2012 الكاتب قام بنشر مارس 18, 2012 السلام عليكم عندما أجريت تغيير في bd ظهرت الرسالة التالية في المرفق Nouveau WinRAR ZIP archive.zip
الـعيدروس قام بنشر مارس 18, 2012 قام بنشر مارس 18, 2012 (معدل) السلام عليكم اخي طاهر بالنسبة لرسالة الخطاء ربما لانك بتعمل على أوفيس 2003 ونظرا لوجود دالات VBA في 2007 لاتعمل في 2003 وهذا مؤكد ولاكن جرب المرفق بعد حذف تنسيق التعليق أعتقد ربما بسببه وإضافة ماوعدتك به فورم بحث وهو من عمل سابق modi_ALI_1.rar تم تعديل مارس 18, 2012 بواسطه alidroos
ريان أحمد قام بنشر مارس 19, 2012 الكاتب قام بنشر مارس 19, 2012 السلام عليكم أستاذي أبو نصار بالنسبة للخطأ فلقد إختفى تماما وبارك الله فيك وسأدعو لك في ضهر الغيب بكل ما هو جميل أستاذي عندي بعص الملاحظات لو سمحت بالنسبة للتغيير كيف أعدل ا الكود حيث يقتصر على الشيت bd فقط وهل بالإمكان أنا أختار إختيار الورقة التي جرى فيها التعديل من قائمة بالنسبة للفورم بحث عن التعديلات كيف إعدل في أسماء الأعمدة مثلا كلمة مسلسل أريد تغييرها وكيف أضيف متغيرت في list view في مكان خلية التعديل أريد ان يصهر القيد مباشرة وشكرا
الـعيدروس قام بنشر مارس 19, 2012 قام بنشر مارس 19, 2012 السلام عليكم الاخ الفاضل طاهر بداية اشكرك ولك مثل دعائك اضعاف مضاعفة ان شاء الله - بالنسبة للتغيير كيف أعدل ا الكود حيث يقتصر على الشيت bd فقط ========================== اذهب الى هذا السطر If ActiveSheet.Name = "My_Con" Or ActiveSheet.Name = "Search Result" Then Exit Sub[/color][/font][/right] [font="tahoma, arial, verdana, sans-serif"][color="#282828"] وعدل عليه ليصير If ActiveSheet.Name <> "bd" Then Exit Sub وهل بالإمكان أنا أختار إختيار الورقة التي جرى فيها التعديل من قائمة ==================================== بالامكان ذلك لاكن احتاج بعض الوقت لاهنت ==================================== بالنسبة للفورم بحث عن التعديلات كيف إعدل في أسماء الأعمدة مثلا كلمة مسلسل أريد تغييرها وكيف أضيف متغيرت في list view ============================== اذهب الى هذا السطر في حدث الفورم Private Sub CO_A() With Me.ListView1 .ColumnHeaders.Add(1) = "مسلسل" وغير كلمة مسلسل إلى أي كلمة تحب ============================== في مكان خلية التعديل أريد ان يصهر القيد مباشرة =================== هذا حل مؤقت إلى أن اجد طريقة بإستخدام Hyperlin إذهب إلى هذا السطر في حدث Thisworkbook .Value = ActiveSheet.Name & ":" & Target.Address احذفة وضيف هذا السطر .Hyperlinks.Add Anchor:=.Offset(0, 0), Address:="", SubAddress:=(ActiveSheet.Name) & "!" & (Target.Address) أي إضافات أو تعديلات أنا موجود والسلام عليكم
ريان أحمد قام بنشر مارس 19, 2012 الكاتب قام بنشر مارس 19, 2012 جاري العمل على التعديلات وأي مشكل سأرجع لك يا أستاذي القدير لقد أثلجت قلبي بكلمتك ....أي إضافات أو تعديلات أنا موجود
ريان أحمد قام بنشر مارس 19, 2012 الكاتب قام بنشر مارس 19, 2012 شكرا وألف شكر جربت كل التعديلات ونجحت الحمد لله right]هذا حل مؤقت إلى أن اجد طريقة بإستخدام Hyperlin أنا انتصر الطريق الثانية
الـعيدروس قام بنشر مارس 19, 2012 قام بنشر مارس 19, 2012 السلام عليكم إطلع على المرفق هل هكذا يفي بالغرض وأي ملاحظات أخ طاهر مايردك إلا الكيبورد والسلام عليكم Taher_TQ.rar
ريان أحمد قام بنشر مارس 20, 2012 الكاتب قام بنشر مارس 20, 2012 السلام عليكم عندما نقلت العمل إلى برنامجي وعندما حاولت إستدعاءالفورم لتجربتها ظهرت الرسالة التالية الرجاء حل المشكلة لإنتقل إلى تجربة جوانب العمل Sans titre.rar
الـعيدروس قام بنشر مارس 20, 2012 قام بنشر مارس 20, 2012 السلام عليكم الاخ طاهر عند ظهور الرسالة إضغط OK ثم إذهب إلى قوائم المحرر قائمة Tools ثم References وأعطني الجمله المضلل عليها ربما الاداة ListView ليست معرفة لدية
ريان أحمد قام بنشر مارس 21, 2012 الكاتب قام بنشر مارس 21, 2012 السلام عليكم عندما حاول تطبيق ما طلبته لم تضهر References نشطة كما موضحة في الصورة Sans titre.rar
الـعيدروس قام بنشر مارس 21, 2012 قام بنشر مارس 21, 2012 الاح طاهر عند النقر على اوك اضغط زر ايقاف الماكرو بعدها تذهب للقائمة Tools References
الـعيدروس قام بنشر مارس 21, 2012 قام بنشر مارس 21, 2012 (معدل) السلام عليكم إلغي علامة الصح من عليها وإضغط ok وجرب إن شاء الله يعمل معاك أو إستعن بهذا الكود بدلا من ذلك Sub ali1() Dim Ref For Each Ref In ThisWorkbook.VBProject.References If Ref.IsBroken = True Then ThisWorkbook.VBProject.References.Remove Ref Next Ref End Sub تم تعديل مارس 21, 2012 بواسطه alidroos
ريان أحمد قام بنشر مارس 21, 2012 الكاتب قام بنشر مارس 21, 2012 أستاذي إليك ملف تجريبي نقلت إليه عمل والفورم ربما هناك خطأ في النقل test.rar
الـعيدروس قام بنشر مارس 21, 2012 قام بنشر مارس 21, 2012 السلام عليكم الاخ الفاضل طاهر إذهب إلى قائمة References وإبحث عن هذه الجملة Microsoft Windows Common Controls 6.5 (SP6) وحفز علامة الصح وموافق إن شاء الله يعمل معاك
الـعيدروس قام بنشر مارس 22, 2012 قام بنشر مارس 22, 2012 السلام عليكم قائمة References ثم Browse وفي حقل File name انسخ هذا الرابط ثم موافق C:\Windows\SysWOW64\MSCOMCTL.OCX
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.