ما الكود الذي يقوم بتفحص الرقم ان كان موجود مسبقا ام لا

مغلق

بدأه a7sanwa7ed في 26 فبراير 2007 · 7 رد · 799 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

مشاركة: واتساب X فيسبوك تيليجرام

#126 فبراير 2007 في 15:53 صاحب الموضوع

العنوان السابق

من يقدر يساعدني في حل هالمشكلة

إلى الأخوة الكرام خبراء منتدى arabteam2000

طلباتي كثيرة و أدري أزعجتكم لكن أن تتمنى ان تتسع صدوركم لغشامتي

أتمنى أن أجد لديكم المساعدة في حل هذه المشكلة التي واجهتني و أنا أحاول بناء مشروعي المتواضع

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

صندوق نص : رقم الفاتورة

صندوق نص 2 : اليوم

صندوق نص 3 : التاريخ

صندوق نص 4 : الوقت

صندوق نص 5 : اسم المشتري

قائمة : طريقة الدفع

و قد قمت بربط العناصر السابقة بقاعدة البيانات بحيث عندما يتم الضغط على ( حفظ ) يتم حفظ البيانات في السجل في حقولها المرتبطة معها

حتى الآن و كل شيئ تماااااااااااااام و ما فيه مشاكل

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

حاولت بأكثر من طريقة و لكن للأسف بائت كل محاولاتي بالفشل

أتمنى أن ننتفع بعلمكم و خبراتكم و أن يجزيكم الله عني و عن كل من يستفيد من هذه المشاركة كل خير

تحياتي

يوجد مثال مبسط في المرفقات

test2.zip

تم تعديل هذه المشاركة بواسطة HnHn في 26 فبراير 2007 في 17:20

#226 فبراير 2007 في 19:02

الملف المرفق معطوب تأكد منه

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

#326 فبراير 2007 في 23:12

MohamedAliSalim كتب:
الملف المرفق معطوب تأكد منه

أخي العزيز محمد علي سالم شكرا لاهتمامك

لكن ما أدري لماذا لا تعمل المرفقات لديكم بالشكل المطلوب على الرغم من قيامي بـتحميلها أكثر من مرة على جهازي و فك الضغط عنها و فتح الملفات دون أي مشاكل

على أي حال قمت بضغط الملفات بطريقة أخرى

أرجو بعد تحميل المرفق وفتح الملف ( دبل كليلك ) الذهاب إلى extrat في برنامج winzip و من ثم إختيار مجلد ليتم نسخ الملفات فيه ثم الذهاب للمجلد الذي تم نسخ الملقات فيه و فتح المثال من خلال الملف project1 هذه هي الطريقة التي أستخدمها لفك الضغط عن الملفات

أدري أنا أتعبك معاي لكن كان الله في عون العبد ما دام العبد في عون أخيه

و لك إحترامي و تقديري

test2.zip

#428 فبراير 2007 في 13:20

ياجماعة فينكم ليه طنشتوني ؟؟؟؟؟؟؟؟؟؟؟؟

#51 مارس 2007 في 07:09

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

اقتباس
لكن ما أدري لماذا لا تعمل المرفقات لديكم بالشكل المطلوب على الرغم من قيامي بـتحميلها أكثر من مرة على جهازي و فك الضغط عنها و فتح الملفات دون أي مشاكل

الملف الثاني شغال ، إنظر لحجم الملف الثاني وقارنه مع الاول وستجد الفرق.

ضع هذا الكود مع برنامجك:

Private Sub Text1_Change()
Timer1 = False
Data1.Recordset.MoveLast
For i = 0 To Data1.Recordset.RecordCount - 1
	Data1.Refresh
	Data1.Recordset.Move (i)
		If Text1 = Data1.Recordset("number") Then
			textday = Data1.Recordset("day")
			textdate = Data1.Recordset("date")
			Texttime = Data1.Recordset("time")
			Text2 = Data1.Recordset("name")
			Combo1.Text = Data1.Recordset("pay")
		End If
Next

End Sub

لعبة فلاشية ،مركبة فضائية ،جميلة خفيفة مشوّقة

أدوات للحماية تهمك للأخ iSergiwa

الأداة العامة لفحص الفيروسات لصاحبها يمان