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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  السلام عليكم اريد مثال اعمل كلمة سر لبرنامجي واعدلها في الاكسس بارك الله فيكم محمد جبريل 5 157 11-03-18, 10:48 AM
آخر رد: محمد جبريل
  السلام عليكم اريد كود عدم نسخ البرنامج ضروري يا اخوان بارك الله فيكم محمد جبريل 0 66 08-03-18, 08:35 PM
آخر رد: محمد جبريل
  اريد كود يحفظ الفورم ك صورة ضروري يا اخوان محمد جبريل 6 164 07-03-18, 11:34 AM
آخر رد: محمد جبريل
  اريد حساب checksum شيك سوم لسطر معين wolf1120 1 36 19-02-18, 11:23 PM
آخر رد: wolf1120
  مساعدة اريد ظهور جميع البيانات في القريد فلكسي khezzani 6 162 12-01-18, 08:06 PM
آخر رد: khezzani
  اريد طريقه او مثال لحفظ الصوره في فولدر و حفظ مسارها فالأكسس scsi7000 2 100 30-12-17, 02:52 PM
آخر رد: scsi7000
  اريد تفعيل الماوس في الفكس جرايد كنونو 6 709 29-12-17, 09:12 PM
آخر رد: larbihamri
  فتح ملف pdf داخل المشروع عبدالله الصافي 2 161 12-11-17, 02:40 AM
آخر رد: عبدالله الصافي
  اريد كتابة هذا الكود الى لغة الفيجول 6 bidaya 3 172 30-09-17, 08:27 PM
آخر رد: bidaya
  لديا قيمة في تاكست بوكس اريد تحويلها wolf1120 2 206 14-09-17, 07:20 PM
آخر رد: wolf1120

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


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