تقييم الموضوع :
  • 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
لا اله الا الله الحنان المنان
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد حل لمشكلة فى كود بحث مع datagrid hum100 3 160 31-05-18, 01:56 PM
آخر رد: hum100
  السلام عليكم اريد مثال اعمل كلمة سر لبرنامجي واعدلها في الاكسس بارك الله فيكم محمد جبريل 5 260 11-03-18, 10:48 AM
آخر رد: محمد جبريل
  السلام عليكم اريد كود عدم نسخ البرنامج ضروري يا اخوان بارك الله فيكم محمد جبريل 0 114 08-03-18, 08:35 PM
آخر رد: محمد جبريل
  اريد كود يحفظ الفورم ك صورة ضروري يا اخوان محمد جبريل 6 221 07-03-18, 11:34 AM
آخر رد: محمد جبريل
  اريد حساب checksum شيك سوم لسطر معين wolf1120 1 85 19-02-18, 11:23 PM
آخر رد: wolf1120
  مساعدة اريد ظهور جميع البيانات في القريد فلكسي khezzani 6 221 12-01-18, 08:06 PM
آخر رد: khezzani
  اريد طريقه او مثال لحفظ الصوره في فولدر و حفظ مسارها فالأكسس scsi7000 2 138 30-12-17, 02:52 PM
آخر رد: scsi7000
  اريد تفعيل الماوس في الفكس جرايد كنونو 6 787 29-12-17, 09:12 PM
آخر رد: larbihamri
  فتح ملف pdf داخل المشروع عبدالله الصافي 2 242 12-11-17, 02:40 AM
آخر رد: عبدالله الصافي
  اريد كتابة هذا الكود الى لغة الفيجول 6 bidaya 3 243 30-09-17, 08:27 PM
آخر رد: bidaya

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


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