تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة: السيد الغالي , rnmr , rnmr
#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
الرد
تم الشكر بواسطة: rnmr , rnmr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] اريد كود زر لنقل مجلد من ال c الى فلاشه toty_951 1 92 11-01-22, 06:57 PM
آخر رد: Taha Okla
  اريد ادراج كود عملية الفرز او الفلترة abde6726 6 344 14-11-21, 09:57 PM
آخر رد: ahmedabdelaliem
  اريد كود لطباعة أول صفحة فى ملف pdf الحزين اوى 0 370 26-06-21, 08:31 PM
آخر رد: الحزين اوى
  اريد البحث فى حقل يحتوي على الاسم رباعي الحزين اوى 0 297 19-06-21, 12:15 AM
آخر رد: الحزين اوى
  اريد تعلم لغة برمجة أحدث من VB6 أبو عقيل 1 414 21-03-21, 12:20 AM
آخر رد: ahmedabdelaliem
  اريد كود لاغلاق جميع الفورم في المشروع الا الفورم الرئيسية allobaed 8 3,015 06-03-21, 09:10 PM
آخر رد: أبو عبدالله الحلواني
Heart [سؤال] مساعده كيفية اضافة محتوى ملف نصي txt على المشروع؟ eapda 2 950 22-06-20, 03:52 PM
آخر رد: eapda
  حل مشكلة تالف المشروع ahmed20 0 569 08-04-20, 04:31 PM
آخر رد: ahmed20
  اريد البحث في الكومبوبوكس بدلاله كومبوبوكس اخرى mhareek 8 1,685 14-01-20, 05:19 AM
آخر رد: Ahmed_Mansoor
Photo اريد تعديل اداة MSFlexGrid فى هذا المشروع cckills2010 3 1,193 11-12-19, 03:02 AM
آخر رد: Ahmed_Mansoor

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


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