تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
RE: اريد المشروع ادراه المكتبة
#1
سلام عليكم اخي.......
بلازحمه عليكم,
اشلون اسوي بحيث من ادخل بيانات وهذه البيانات موجوده مسبقا ماراح يضيفهه اليه ويكلي هذه البيانات موجده مسبقا
واشلون اسوي مان اوصل الى اخر سجل راح يكولي هذا اخر شي وكذلك الى اول سجل
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم
بالنسبة للشق الاول من السؤال هو التحقق هل ان السجل مضاف او لا . .
عليكي بكتابة كود استعلام في زر الامر حفظ .

Dim Rs As New ADODB.Recordset

Rs.Open "Select * FROM Admin Where Caption='" & Text2 & "' ", DB, adOpenStatic, adLockPessimistic
If Rs.RecordCount > 0 Then
MsgBox "بالفعل تم حفظ هذا المستخدم في وقت سابق", vbCritical, "Message"
Beep
Text2.Text = ""
Text2.SetFocus
Rs.Close
Exit Sub
End If


Admin هو عبارة عن الجدول . .
Caption هو عبارة عن الحقل . .

اما فيما يخص الشق الثاني من السؤال
عليكي بكتابة الكود التالي في زر الامر السابق. .

If Not dRS.BOF Then dRS.MovePrevious

If dRS.BOF And dRS.RecordCount > 0 Then
MsgBox "آخر سجل ", vbCritical, "Message"
Exit Sub
End If

وعليكي بكتابة هذا الكود ايضاً في زر الامر التالي . .
If Not dRS.EOF Then dRS.MoveNext

If dRS.EOF And dRS.RecordCount > 0 Then
MsgBox "آخر سجل ", vbCritical, "Message"
Exit Sub
End If
سأعود قريباً ان شاء الله

الرد }}}}
تم الشكر بواسطة: السيد الغالي
#3
اني استخدم الاداة DATA CONTROL م ADO
الرد }}}}
تم الشكر بواسطة:
#4
ضع هذا الكود في زر الامر التالي :
On Error GoTo err

If Data1.Recordset.EOF Then

MsgBox " " هذا آخر سجل

End If

Data1.Recordset.MoveNext
-------------------------------
وهذا في زر الامر السابق

On Error GoTo err

If Data1.Recordset.BOF Then

MsgBox " " هذا أول سجل

End If

Data1.Recordset.MovePrevious
سأعود قريباً ان شاء الله

الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] كيف اشترط على المستخدم ان يحدد السجل الذي اريد حذفه في برنامجي المرفق ؟؟ Microformt 2 96 21-10-16, 01:31 PM
آخر رد: Microformt
  اريد تغيير قاعدة البينات من اكسس الى سيكوال هل يكفي اغير كود الاتصال sendbad100 3 102 17-10-16, 05:00 PM
آخر رد: sendbad100
  اريد تعديل هذا الكود للبحث لاى كلمه فى النص رجل الكهرباء 2 124 03-10-16, 02:19 AM
آخر رد: رجل الكهرباء
  [سؤال] طريقه رفع الصور الي المشروع Gehad ashraf 4 131 27-09-16, 02:00 AM
آخر رد: عبد العزيز البسكري
  عندما اضغط على Try it يعرض لي التاريخ الموجود في الفورم اريد ان يعرض التاريخ في text abazrmhamed 3 132 19-09-16, 12:30 AM
آخر رد: Amir_alzubidy
  لو سمحتم اريد كود ترتيب ليست تصاعديا samira20 6 160 14-09-16, 06:02 PM
آخر رد: samira20
  ارجو المساعدة اريد افضل نسخة للفجول بيسك 6 تكون كاملة mhareek 5 300 30-08-16, 12:38 AM
آخر رد: إبراهيم خشافه
  اريد كود لتغيير التاريخ فقط للوندوز من الفجوال بيسك 6 scsi7000 2 115 25-08-16, 01:53 PM
آخر رد: scsi7000
  اريد برنامج لتعلم الحروف الانجليزية عبدالله الجذيلات 0 113 04-08-16, 03:01 PM
آخر رد: عبدالله الجذيلات
  [سؤال] مامعنى هذه الرسالة تظهر عند تنصيب المشروع في حال وجود ويندور 7 ويندوز 10 فاضل الحمود 2 176 01-08-16, 02:21 PM
آخر رد: فاضل الحمود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم