عامر جوز

تكرم أخوي [gl]الدالة Filter:[/gl] تقوم هذه الدالة بالبحث في مصفوفة نصية ذات بعد واحد عن نص معين وتعيد مصفوفة أخرى تحتوي فقط العناصر التي تتضمن (أو لا تتضمن!) النص الذي نبحث عنه. بعبارة أخرى تصفية المصفوفة حسب شرط نحدده.. صيغة الدالة كالتالي arr() = Filter(Sour…

أخي أبو حمود جربت ذلك ولاحظت أن عناصر التحكم المرفقة مع الأكسس ليس لها مقبض أي لايكمن الوصول إليها عن طريق مقبضها وأعتقد أن هذا النوع يدعى Windowless Controls :( :(

ولو أخوي ابو حمود إنت مفضّل علينا وعالمنتدى ومشاركاتي بسيطة وقليلة الله يحفظك ويخليك ويسلمك بالنسبة لسؤالك أن اشرح عملها فلم تحدد أي واحدة من الثلاثة تريد وظيفة النصوص أم الأخريتين..:confused: مع أنني لم أستخدم إلا وظيفة مجموعة السجلات Recordset التي شرحها الأ…

السلام عليكم الوظيفة Filter كما ترى هي في نفس الوقت: عنصر للكائن Recordset الذي ينتمي للمكتبة ADODB و عنصر في الوحدة النمطية Strings للمكتبة VBA الموجودة في فجوال بيسك وأكسس كما أن هناك وظيفة Filter في المكتبة ACCESS تطبق على النموذج والتقرير لتصفية السجلات وه…

شكرا أخ stranger here أنا بوقتها حذفت البرنامج بنفس الطريقة ومشي الحال والله ياأخ أنس مثل ما توقعت بس طالما اعترفت مو مشكلة :) مرة ثاتية انتبه بس سؤال لماذ أضفت هذا البرنامج لبدء التشغيل وما علاقته بالمفتاح الذي ذكرته أنت؟

http://arabteam.nicmatic.com/vb/showthread...18137#post18137

تستطيع (لا ختبار توافق الكروت) تركيب ويندوز 2000 سيرفر على الجهاز بدون إزالة النظام القديم عن طريق الخيار Install New Copy في بداية برنامج التركيب وبهذا تظهر قائمة في بداية التشغيل تسألك فيما إذا أردت الإقلاع إلى النظام القديم أو الجديد وقد جربتها سابقا مع وين…

السلام عليكم واجهتني هذه المشكلة عند كل بدء تشغيل ويندوز تظهر هذه الرسالة Scanreg.exe Entry Point Not Found The procedur entry point RegisterServiceProcess could not be located in the dynamic link library Kernel32.dll OK ويستمر التشغيل بعدها علماً أنها لم تكن …

شكراً أخ هاني على التوضيح

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

تكرم عيونك أخ أنس :) قم بوضع زر أمر في النموذج وضع الكود التالي في نافذة الكود Private Sub Command1_Click() On Error GoTo Handler Call test Handler: MsgBox "Error " & Err.Number & ": " & Err.Description End Sub Public Sub test() Dim a As Integer a = "String" '…

السلام عليكم أشكر الأخوة على المعلومات القيمة :) أما من ناحيتي من أجل معالجة الأخطاء أفضل أن أضع في كل إجراء أو تابع On Error Resume Next وأقوم بفحص قيمة الخطأ في الأماكن التي أتوقع حدوث الخطأ فيها عن طريق If Err.Number <> 0 Then لأقوم بمعالجته والاستمرار أما …

السلام عليكم المشكلة حسب ماهو واضح من ارتباط الملفات zip عندك ببرنامج الإنكارتا حاول إعادة تثبيت أي برنامج فك ضغط وسوف يصحح الإرتباط

ماشاء الله عليك على هالسرعة الله يخليك خجلتني

ولو يا أخي ماسوينا شي الشكر لهذا المنتدى الرائع اللي أتاح لنا الفرصة :)

المشكلة في تعريف بعض البطاقات الذي لا يدعم هذه الميزة وحينها تحتاج لتحديث التعريف من موقع Windows Update ولتحديدأي تعريف يسبب المشكلة شغل ملف pmres.exe من أمر Run وبعدها اقتح الملف nohiber.txt من قائمة Run أيضاً وستجد اسم التعريف الغير داعم للميزة وهناك ملف ثا…

السلام عليكم أظن أن ما يحدث معك هو أنه أول ماتنزل الويندوز يكون الخيار موجود وعند تعريف البطاقات يختفي الخيار وذلك لأن بعض التعريفات لاتقبل هذا الخيار فيقوم ويندوز بإلغاءه وقد قرأت هذه المعلومة في تعليمات الويندوز سابقاً ولم أعد أذكر المكان بالضبط مع تحياتي

السلام عليكم يمكن فتح المستند عن طريق الكود التالي: Dim oApp As Object Screen.MousePointer = 11 Set oApp = CreateObject("Word.Application") oApp.Visible = True oApp.WindowState = 1 oApp.Documents.Open ("C:My Documents" & Me.اسم الحقل & ".DOC") مع تعديل اسم الح…

السلام عليكم هناك طريقة أفضل لتنزيل نظامين تشغيل عن طريق برنامج FDISK وذلم بأن تقوم بإنشاء قسمين Primary (وهذا شرط أساسي) وبعدها تفعيل أحدهماعن طريق الخيار الثاني من البرنامج وتنزيل الويندوز الأول عليه ومن ثم إعادة تفعيل الآخر بنفس الطريقة وتنزيل الوينوز الآخر…

السلام عليكم ورحمة الله وبركاته تحياتي لجميع الأعضاء يلزمني تصدير التقرير إلى ملف إكسل ولكن عند تنفيذ الكود يحدث الخطأ التالي Missing or out-of-date export DLL هل من حل لذلك؟؟؟