كيفية تغيير الاذونات ..؟

للرفع...

.

Option Compare Database 'Use database order for string comparisons

Option Explicit

Option Base 1

Private Sub أمر14_Click()

On Error GoTo Err_أمر14_Click

DoCmd.GoToRecord , , acLast

Exit_أمر14_Click:

Exit Sub

Err_أمر14_Click:

MsgBox Err.Description

Resume Exit_أمر14_Click

End Sub

Private Sub OKS_Click()

If Me!I > 0 Then

If Me!Q > 0 Then

' ***********************************************

Dim MYDB As Database

Dim MYTB As Recordset

Dim MYTC As Recordset

Dim A7 As Variant

Set MYDB = DBEngine.Workspaces(0).Databases(0)

Set MYTB = MYDB.OpenRecordset("F7", DB_OPEN_TABLE)

Set MYTC = MYDB.OpenRecordset("ITEMS ALL", DB_OPEN_TABLE)

' ************************************************************************************

Dim XXX As Variant

XXX = ""

Dim DAx As Variant

Dim DBx As Variant

Dim DCx As Variant

Dim Kx As Variant

Kx = Me!I

' A7 = MsgBox(" I " & I, 10, "بسم الله الرحمن الرحيم ")

MYTC.Index = "INO"

MYTC.Seek "=", Kx

If Not MYTC.NoMatch Then

DAx = MYTC![iNO]

DBx = MYTC![iNAME]

DCx = MYTC![uNIT]

End If

' ************************************************************************************

MYTB.AddNew

MYTB!INO = Me!I

MYTB!quan = Me!Q

MYTB!DATE = Me!DATE

MYTB!INAME = DBx

MYTB!UNIT = DCx

MYTB.Update

MYTB.Close

Me!Q = Null

Me!I = Null

Me!I.SetFocus

' ***********************************************

End If

End If

End Sub

Private Sub أمر17_Click()

On Error GoTo Err_أمر17_Click

DoCmd.Close

Exit_أمر17_Click:

Exit Sub

Err_أمر17_Click:

MsgBox Err.Description

Resume Exit_أمر17_Click

End Sub