شباب مين يقدر يحل خطأ في هدا الكود

عزيزي كيف حالك ؟

أذا أمكن وضع البرنامج في وصله لتنزيله وتجريبه أو ارساله على الايميل

وان شاء الله أذا أمكن أن أساعدك

والله الموفق

;)

طبعا الايميل هو:hussein979@hotmail.com

;)

شفت شلون انا نساى

والله الموفق

السلام عليكم

شكرا اخوي ستراوي لابداء التعاون (وكلنا ننسى )

بس اعتقد الكود واضح اذا خرجت من رقم الصنف عايز افحص هل يوجد سجل مشابه بمعنى هل الرقم المدخل جديد موجود في الملف او لا

اذا كان موجود يرجع الى نفس الحقل

المشكله هي في السطر هدا

Set rs = Adodc1.Recordset.Clone

عند ما يصل الى هدا السطر يعطي رسالة mismatch

اعتقد اني متاكد من ان تعريف المتغير صحيح

بس هل البحث صحيح بعد الجملة find

لك تقديري (f)

اكتب السطر هكذا :

rs.FindFirst "repno=" & Text1(Index).Text

اذا كانت الخانه في الجدول رقميه

و هكذا:

rs.FindFirst "repno='" & Text1(Index).Text &"'"

اذا كانت الخانه Text

يمكن يفيد.....

شكرا اخوي حمود

عدلت البرنامج الى text لان الحقل text

ولكن نفس المشكلة ونفس الرسالة الخطأ

type mismatch

وياتي على السطر التالي

Set rs = Adodc1.Recordset.Clone

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

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

لك تقديري (f)

آسف يا اخي لم احتفظ بنسخه من البرنامج !

السلام عليكم

اذا ممكن الاميل تبعك لارساله

هو بسيط من ناحية عدد اسطر الاكواد واعتقد انه حيكون ابسط لك

ولا مؤاخده

شكرا

السلام عليكم ورحمة الله وبركاته

الاخ الكريم /

جرب Dim Rs as New Adodb.Recordset

حتى تتمكن من الربط مع ِمكتبة ADO

والله الموفق

تقبل تحياتي

السلام عليكم

شكرا اخوي محمد على الكود لكن ظهرت رسالة جديدة

الخطأ التالي

method or data member not known

لك تقديري (f)

السلام عليكم ورحمة الله وبركاته

الاخ الكريم /

انك تحاول ان تستدعي المنهج FindFirst والتى لا تدعمها الداتا كونترول لذلك استخدم المنهج Find بدلا منها هذة هي المشكلة اى يصبح الكود

Private Sub Text1_LostFocus(Index As Integer)

Dim tmpvar As String

If Index = 0 Then

If Not IsDate(Text1(Index).Text) Then Text1(Index).SetFocus

ElseIf Index = 1 Then

If Text1(Index).Text = "" Then Text1(Index).SetFocus

Dim Rs As New Adodb.Recordset

Set Rs = Adodc1.Recordset.Clone

if Rs.Eof = True And Rs.Bof = True then

msgbox "الملف لا يحتوي على بيانات"

set Rs = Nothing

exit sub

end if

Rs.MoveFirst

rs.Find "repno=" & Text1(Index).Text

If rs.NoMatch Then MsgBox "there isnt any recorde with this value"

rs.Close

End If

End Sub

والله الموفق

وتقبل تحياتي

السلام عليكم

اخوي محمد شكرا لمجهوداتك

ولكن يوجد خطأ ايضا في مكان ثاني من البرنامج عند

rs.close

رسالة الخطأ

opreation is not allowed in this context

على فكرة نفس الكود الذي انت كتبته نزلته عندي

بعدين على الطري كيف ممكن مشاهدة member

تبع الكائن لاجل الواحد يخلي باله

لك تقديري (f)

لا مؤاخده اخوي محمد ترى تعبتك معاي

ايش رائيك تعطيني الاميل تبعك ارسلك البرنامج يكون قريب جدا منك تقدر تجرب هو جاهز بس انك تغير في الكود وتجرب

وبرضه تعطيني رائيك لمبتدئ

وشكرا