المشاركات : 31
المواضيع 2
الإنتساب : Oct 2014
السمعة :
0
الشكر: 0
تم شكره 2 مرات في 2 مشاركات
سلام عليكم اخي.......
بلازحمه عليكم,
اشلون اسوي بحيث من ادخل بيانات وهذه البيانات موجوده مسبقا ماراح يضيفهه اليه ويكلي هذه البيانات موجده مسبقا
واشلون اسوي مان اوصل الى اخر سجل راح يكولي هذا اخر شي وكذلك الى اول سجل
المشاركات : 2,468
المواضيع 2
الإنتساب : Nov 2014
السمعة :
602
الشكر: 17073
تم شكره 15267 مرات في 2998 مشاركات
16-01-15, 04:53 PM
(آخر تعديل لهذه المشاركة : 16-01-15, 04:56 PM {2} بواسطة Amir_Alzubidy.)
السلام عليكم
بالنسبة للشق الاول من السؤال هو التحقق هل ان السجل مضاف او لا . .
عليكي بكتابة كود استعلام في زر الامر حفظ .
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
المشاركات : 31
المواضيع 2
الإنتساب : Oct 2014
السمعة :
0
الشكر: 0
تم شكره 2 مرات في 2 مشاركات
اني استخدم الاداة DATA CONTROL م ADO
المشاركات : 2,468
المواضيع 2
الإنتساب : Nov 2014
السمعة :
602
الشكر: 17073
تم شكره 15267 مرات في 2998 مشاركات
ضع هذا الكود في زر الامر التالي :
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