حذف وبحث وإضافة .............ورسالة خطأ !!!!!لماذا ؟؟؟

مشكلتك بسيطة جدا

ارسل إيميلك حتى ارسل لك الطريقة بالكامل

وايميلى هو

jalalyoussef@hotmail.com

السلام عليكم

أخي حاول تدرس الكود التالي يمكن تستفيد منه في حل مشاكلك .

'

'

'

'هذا الكود ضعه في قسم التصريحات

'

Dim db As ADODB.Connection

Dim adoPrimaryRS As ADODB.Recordset

'

Private Sub Form_Load() ' فتح قاعدة البيانات

'/

On Error GoTo ErrDescription

'#'

Set db = New ADODB.Connection

db.CursorLocation = adUseClient

db.Provider = "Microsoft.Jet.OLEDB.3.51"

db.Open App.Path & "YourDataBase.MDB"

'

Set adoPrimaryRS = New ADODB.Recordset

adoPrimaryRS.Open "SELECT * FROM YourTabel", db, adOpenStatic, adLockPessimistic

'

Exit Sub

'#'

ErrDescription:

MsgBox Err.Description, vbCritical, "Error"

End

'/

End Sub

'

Public Sub Delete() ' لحذف السجل التالي

'/

On Error GoTo ErrDescription:

'#'

If adoPrimaryRS.BOF <> False Then Exit Sub

adoPrimaryRS.Delete adAffectCurrent

'

Exit Sub

'#'

ErrDescription:

MsgBox Err.Description, vbCritical, "Error"

Unload Screen.ActiveForm

'/

End Sub

'

Public Sub MoveFirst() ' الإنتقال إلى أول السجل

'/

On Error GoTo ErrDescription

'#'

If Not adoPrimaryRS.BOF Then adoPrimaryRS.MoveFirst

If adoPrimaryRS.BOF And adoPrimaryRS.RecordCount > 0 Then

Beep

End If

'

Exit Sub

'#'

ErrDescription:

MsgBox Err.Description, vbCritical, "Error"

Unload Screen.ActiveForm

'/

End Sub

'

Public Sub MoveLast() ' الإنتقال إلى أخر السجل

'/

On Error GoTo ErrDescription

'#'

If Not adoPrimaryRS.EOF Then adoPrimaryRS.MoveLast

If adoPrimaryRS.EOF And adoPrimaryRS.RecordCount > 0 Then

Beep

End If

'

Exit Sub

'#'

ErrDescription:

MsgBox Err.Description, vbCritical, "Error"

Unload Screen.ActiveForm

'/

End Sub

'

Public Sub MoveNext() ' الإنتقال إلى التالي .

'/

On Error GoTo ErrDescription

'#'

If Not adoPrimaryRS.EOF Then adoPrimaryRS.MoveNext

If adoPrimaryRS.EOF And adoPrimaryRS.RecordCount > 0 Then

Beep

adoPrimaryRS.MoveLast

End If

'

Exit Sub

'#'

ErrDescription:

MsgBox Err.Description, vbCritical, "Error"

Unload Screen.ActiveForm

'/

End Sub

'

Public Sub MovePrevious() ' الإنتقال إلى السابق

'/

On Error GoTo ErrDescription

'#'

If Not adoPrimaryRS.BOF Then adoPrimaryRS.MovePrevious

If adoPrimaryRS.BOF And adoPrimaryRS.RecordCount > 0 Then

Beep

adoPrimaryRS.MoveFirst

End If

'

Exit Sub

'#'

ErrDescription:

MsgBox Err.Description, vbCritical, "Error"

Unload Screen.ActiveForm

'/

End Sub

على فكرة الكود مبني بواسطة الإداة ADO