تقييم الموضوع :
  • 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
 اللهم اغفر لي و لوالديّ و للمؤمنين و المؤمنات 
و المسلمين و المسلمات الأحياء منهم و الأموات 
سبحان الله وبحمده Heart سبحان الله العظيم
الرد
تم الشكر بواسطة: السيد الغالي , 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
 اللهم اغفر لي و لوالديّ و للمؤمنين و المؤمنات 
و المسلمين و المسلمات الأحياء منهم و الأموات 
سبحان الله وبحمده Heart سبحان الله العظيم
الرد
تم الشكر بواسطة: rnmr , rnmr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] اريد نسخة Seagate crystal Report 8 لويندوز 7 (32 بيت) mohamed arafa 4 194 10-09-18, 11:35 AM
آخر رد: جاسم عبد
  [سؤال] اريد نصائح و اقتراحات migooo 1 102 03-08-18, 09:49 AM
آخر رد: حريف برمجة
  اريد ادراج ProgressBar1 wolf1120 6 455 03-08-18, 07:34 AM
آخر رد: Ahmed_Mansoor
  اريد حل لمشكلة فى كود بحث مع datagrid hum100 3 291 31-05-18, 01:56 PM
آخر رد: hum100
  السلام عليكم اريد مثال اعمل كلمة سر لبرنامجي واعدلها في الاكسس بارك الله فيكم محمد جبريل 5 455 11-03-18, 10:48 AM
آخر رد: محمد جبريل
  السلام عليكم اريد كود عدم نسخ البرنامج ضروري يا اخوان بارك الله فيكم محمد جبريل 0 229 08-03-18, 08:35 PM
آخر رد: محمد جبريل
  اريد كود يحفظ الفورم ك صورة ضروري يا اخوان محمد جبريل 6 365 07-03-18, 11:34 AM
آخر رد: محمد جبريل
  اريد حساب checksum شيك سوم لسطر معين wolf1120 1 197 19-02-18, 11:23 PM
آخر رد: wolf1120
  مساعدة اريد ظهور جميع البيانات في القريد فلكسي khezzani 6 380 12-01-18, 08:06 PM
آخر رد: khezzani
  اريد طريقه او مثال لحفظ الصوره في فولدر و حفظ مسارها فالأكسس scsi7000 2 197 30-12-17, 02:52 PM
آخر رد: scsi7000

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


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