Private Sub Command1_Click()
x = InputBox("search", "enter number")
Data1.Recordset.Index = "رقم الزبون"
Data1.Recordset.Seek "=", x
With Data1.Recordset
If Data1.Recordset.NoMatch Then
Data1.Recordset.MoveFirst
MsgBox "sorry", vbOKOnly, "buy"
End If
Data1.Recordset.MoveNext
Text1.Text = Val(Text3.Text)
End With
End Sub
انتظر ردكم
ايش الخطأ الي يطلع لك؟؟
&&& سبحانك اللهم وبحمدك .. أشهد ان لا إله إلا أنت .. أستغفرك وأتوب إليك &&&
...
اذاكتبت في كود البحث رقم الزبون 1 يطلع لي 2 واذا كتبت في البحث 2 يطلع لي 3
كأنها حلقه مو كأنها بحث وانا اللي اتحكم لا
؟؟
انتظر ردك
انتظر مساعدتكم
الافضل ان ترفع المثال مع القاعدة ...
تحياتي اليك
اقتباسآسف الدخول متقطع هذه القتره
اقتباس[يمين]
.[/يمين]
اخر مواضيعي 2007
االمثال مطبق على موقع بورصه سعودي
.
كيف تستخدم الـ OLE Drag Drop ؟ || سورس كود الفاتوره الذكية || سورس كوود مساعدك في حفظ وتسميع كلمات اللغة الانجليزية.
مواضيع مهمه ومطلوبه بكثره VB6
.
بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,.
أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .
.
</
انتظركم
4 تحميل ولا احد رد علي
?????????????????????????????????????
السلام عليكم
الخطأ يا أخي في الفورم 11 و بالذات في الكود التالي
Private Sub Command1_Click()
X = InputBox("search", "enter number")
Data1.Recordset.Index = "ÑÞã ÇáÒÈæä"
Data1.Recordset.Seek "=", X
With Data1.Recordset
If Data1.Recordset.NoMatch Then
Data1.Recordset.MoveFirst
MsgBox "sorry", vbOKOnly, "buy"
End If
هنا الخطا>>>>>>>Data1.Recordset.MoveNext
Text1.Text = Val(Text3.Text)
End With
End Subإحذف هذي الجملة و إن شاء الله يشتغل
[وسط][/وسط]إن أجري إلا على الله
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…