برنامج الفتاوى الاسلامية

المشروع مرفق لكم هنا

asd.zip

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

بسم الله الرحمن الرحيم

أخ بيسكاوي

1-

ضع في خاصية multiLine قيمة True

و خاصية ScrollBars جهة ال scroll

2-

ٌRightToLeft=True

3-

راجع المواضيع السابقة في المنتدى ستجد عدد غير قليل من المواضيع عن سؤالك الثالث

(f)

اخوي اسامة مشكور فقد قمت فعلا بوضع شريط التمرير للتكست بوكس

وبقي علينا كود البحث وجدت اكواد كثيرة وعند تنفيذها تطلع اخطاء انا اريد

كود الصقه فقط لان خبرتي ضعيفة جدا

بسم الله الرحمن الرحيم

تحياتي للجميع /

أخي هذا كود البحث في TextBox

Private Sub Form_Load()

Text1.Text = "منتديات الفريق العربي للبرمجة"

End Sub

Private Sub Form_Click()

Dim Search, Where

Search = InputBox("ادخل نص البحث:")

Where = InStr(UCase(Text1.Text), UCase(Search))

If UCase(Where) Then

Text1.SetFocus

Text1.SelStart = UCase(Where) - 1

Text1.SelLength = Len(Search)

Else

MsgBox "لم يتم العثور على : " & Search, vbMsgBoxRtlReading, "Visitor_OM" ' Notify user.

End If

End Sub

اخوي مشكور هذا فقط يبحث في السجل المعروض فقط انا اريد منه ان يبحث في كل السجلات .

انظر وجدت هذا الكود ويعطيني خطأ

اسم الجدول ftawa

اسم الحقل هو sss

Private Sub Command1_Click()

Dim a

a = InputBox("أدخل الإسم المراد البحث عنه", "بحث")

Data1.RecordSource = "select * from ftawa where sss like ='" & a & "'"

Data1.RecordSource = Mysql

Data1.Refresh

End Sub

Private Sub Command1_Click()
Dim a
a = InputBox("أدخل الإسم المراد البحث عنه", "بحث")
Data1.RecordSource = "select * from ftawa where sss like  ='" & a & "'"
Data1.RecordSource = Mysql
Data1.Refresh

End Sub

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

لكن إن شاء الله ما يكون خاطرك إلى طيب راح احاول اصلح البرنامج بحيث يتماشى مع ما تريد .

على كلا هذا برنامجك بشكلة الحالي /

asd.zip

اخي العزيز بالنسبة للكود إحذف منه هذا السطر Data1.RecordSource = Mysql

بس ما متأكد من النتيجة ،،،

السلام عليكم

اخي الكريم هذا برنامجك مثل ما طلبت /

asdado.zip

بارك الله فيك وجعله في ميزان حسناتك تحياتي لك مجددا