السلام عليكم
لدى سؤالين مهمين ليه
1 -
انا عايز كود يعمل الاتى
لما ادخل رقم وليكن فى تكست رقم الموبايل يقول لى ان الرقم دة تم ادخاله من قبل اى لا يتكرر الرقم تانى
2-
عايز عدم نسخ البرنامج المصنوع بالفيجوال بيسك 6 على جهاز اخر غير الجهاز الى نزل عليه البرنامج فقط
وشكرا
المطلب الاول اكدر عليه:
تعمل قاعدة بيانات
if text1.text= data1.feild1 then exit sub
else
text1.text=data1.feild1
endif
تمام
طيب يا استاذ احمد
الكود دة يكتب فى انهى حدث
ثانيا
حضرتك بتقول فى الكود
if text1.text = data1.field
المقصود هنا ان انا ازود داتا كنترول
عكس ان انا شغال بالادو
هل من رد يا جماعة
هل من رد يا استاذ احمد
أهلا أخي الكريم , لنفترض أن إسم الجدول Table1 وإسم الحقل الخاص برقم الجوال هو Mobile والتكست الذي يكتب فيه رقم الموبايل هو Text1 إذا سيكون كود التحقق من ما إذا كان رقم الجوال قد تم تسجيله من قبل أو لا , كالتالي :
PHP كود :
Set RS = New ADODB.Recordset
RS.Open "Select * From Table1 Where Mobile='" & Trim$(Text1.Text) & "'", DB, adOpenKeyset, adLockOptimistic
If RS.RecordCount > 0 Then
MsgBox "رقم الجوال المكتوب في التكست1 قد تم تسجيله من قبل"
Set RS = Nothing
Exit Sub
End If
- طبعا الكود بإستخدام مكتبة الأدو ADO .
طيب تمام جدا
طيب بالنسبة للنقطة الثانية وهى عدم نسخ البرنامج على اى جهاز اخر الا الجهاز بتاع صاحب البرنامج فقط
هل من كود لذلك
هل من رد اخى احمد منصور
ايضا الكود الى حضرتك كتبته
الكود دة يكتب فى انهى حدث الخاص بالتكست ولا زرار الحفظ ولا فين
أهلا أخي الكريم ، الكود وضع في كود زر الحفظ قبل كود الحفظ ، بالنسبه للنقطه الثانيه إن شاء الله سأضع موضوع منفصل خاص بذلك .
السلام عليكم
اخى احمد منصور
انا قمت بالفعل بادخال الكود الى كتبته
بس بيقولى ان الجدول او الاوبجيكت اصلا مفتوح
ويظهر خطأ
ارجوا الرد اخى
من فضلك