مرحبا شبااااب
أنا عملت ملف الـHelp طبعا بمساعدتكم
ولكن اريد أن أعرف منكم كيف أستدعي هذا الملف من داخل الفيجوال بيسيك
أريد الكود الذي يسمح لي بفتح ملف المساعده من خلال الضغط على زر معين او بالضغط على F1
أيضا لدي عدة TextBox مربوطين مع الاكسس أحتاج ادخل رقم ملف (المفتاح الاساسي)
وابحث لتظهر النتائج في بقية التكست بوكس ان وجدت
اتمنى يكون مفهوم السؤال
تحياتي
استخدم vbkey الى F1 وعند اضغط تفتح تستدعي فتح ملف المساعده
يا أخ نيوفي استخدم جملة Find لتبحث عن الرقم المطلوب في قاعدة البيانات، مثلاً يدخل المستخدم رقم الملف في text1 و بعدها يضغط زر "ابحث" في حدث Click لزر ابحث اكتب الكود التالي ليظهر اسم الملف المخزن في Text2:
rs.find "File_No=" & text1.text ,,addsearchforward,1
if rs.eof = true then
msgbox "الرقم المدخل غير مسجل في قاعدة البيانات",vbokonly,"لا يوجد الرقم"
else
text2.text = rs!File_Name
end if
أتمنى أن يكون هذا مفيداً.
مرحبا اخوي حسين أنا ابغى الكود اللي استدعي فيه
برنامج الهيلب أنا استخدمت الكود التالي وطلع معاي خطأ يقولي الملف غير موجود
على الرغم من أن الملف موجود اتمنى تفيدني .... هذا كو الكود
shell "C:Help.chm"
مرحبا اخوي fat-cat
فعلا طريقتك تمااام والف شكر
لكن كان فية بعض المشاكل أنا طبقتها ولما اضغط على زر البحث
يطلع لي كل معلومات اللي ابحث عنها في كل التكست بوكس المربوطه مع الاكسس
على الرغم اني في الكود محدد له تكست بوكس واحد
AdoOrder.Recordset.Find "FileID = '" & Text1.Text & "'", 0, adSearchForward, 1
If AdoOrder.Recordset.EOF Then
MsgBox "الرقم المدخل غير مسجل في قاعدة البيانات", vbOKOnly, "لا يوجد الرقم"
AdoOrder.Recordset.MoveFirst
Else
TxtFileID.Text = AdoOrder!Order
End If
وبعد خروج المعلومات المطلوبه تظهر هذه الرساله
Run-time error '438'
Object doesn't support this property or method
ياليت تكمل جميلك معااااي
وتقولي سبب هذه الرساله شنو
تحياتي للجميع
لفتح ملف help استخدم:
shell "hh.exe c:/help.chm",vbNormalFocus //hh.exe HTML Help Executable هو المسئول عن فتح ملفات .chm .
ألف شكر أخوي kernel80
كود تماام يعطيك الف عافيه
الف شكر
لكن تبقى السؤال الثاني اتمنى ماتكونوا نسيتوه
أرجو منكم التكرم بمساعدتي فيه
شكرا للجميع
اعتذر عن المسح فلقد كانالجواب خطاء
وشكرا
اخي الفاضل
انا شخصيا استخدم هذه الطريقة لاستخدام ملف المساعدة
App.HelpFile = App.Path & "HelpRW Host Utility Help.chm"
هذا الموضوع مغلق.