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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد كود انشاء مجلد باسم عام جديد suliman alahdl 10 258 01-05-17, 12:18 AM
آخر رد: Ahmed_Mansoor
Question [سؤال] اريد اكواد حل المعادلات من جميع الدرجات لو سمحتو طارق++ 9 5,821 07-04-17, 01:06 PM
آخر رد: الخير طهوري
Question [vb6.0] كيف اشترط على المستخدم ان يحدد السجل الذي اريد حذفه في برنامجي المرفق ؟؟ Microformt 3 301 01-04-17, 02:18 AM
آخر رد: awidan76
  اريد كود لمنع التهنيج عند العمليات الطويله Etos 1 77 27-03-17, 07:32 PM
آخر رد: v_2017_6
  اريد تفعيل الماوس في الفكس جرايد كنونو 5 372 21-03-17, 11:37 AM
آخر رد: كنونو
  [vb6.0] ارجوا التعديل على المشروع المرفق عبدالقادرعواد 12 269 06-03-17, 01:58 AM
آخر رد: عبدالقادرعواد
Photo اريد مساعدة في جمع خليتين في عمود واحد يحملان نفس التاريخ عمر سالم 10 415 02-02-17, 01:58 AM
آخر رد: السيد الغالي
  اريد مجموعة سعر الكمية امباعة بتاريخ محدد في هذا الكود عمر سالم 5 255 31-01-17, 01:18 PM
آخر رد: ahmedabdelaliem
  اريد كود لاغلاق جميع الفورم في المشروع الا الفورم الرئيسية allobaed 6 276 26-01-17, 11:55 AM
آخر رد: allobaed
  لو سمحتوا انا اريد عند كتابة تاريخ الميلادي يظهر لى فى تكس تاريخ المعاش على سن 60 رجل الكهرباء 3 275 17-12-16, 08:54 PM
آخر رد: رجل الكهرباء

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


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