الانتقال إلى المحتوى
View in the app

A better way to browse. Learn more.
مجموعة مستخدمي أوراكل العربية

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

ممكن تصليح أخطاء في برنامج عالاكسس

  •
maya_maya
بواسطة maya_maya
في منتدى تحليل النظم Systems Analysis

Featured Replies

بتاريخ:

السلام عليكم
احتاج مساعده سريعه الله يفرج همكم ويفتح عليكم لازم اسلمه في اسرع وقت وبجد تعبت فيه واخذ مني مجهود
مشروع تخرج من المعهد لازم نسوي لمحل حقيقي والحمد لله تم الاتفاق مع محل ولكن ظهرت اخطاء ارجوا مساعدتي في اصلاحها
لما اطلب طباعة فاتوره او تقرير يطبع كل فواتير العميل والفواتير السابقه
والتقارير ماتتحفظ ولا تطلع في الاستعلام
ارجوكم ساعدوني خاصه في امر الطباعه مفروض يطبع الحالي فقط

وهذا الكود لانه لايتحمل البرنامج


Option Compare Database
Dim t As Long
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private Const CCDEVICENAME = 32
Private Const CCFORMNAME = 32
Private Const DM_BITSPERPEL = &H40000
Private Const DM_PELSWIDTH = &H80000
Private Const DM_PELSHEIGHT = &H100000
Private Const CDS_UPDATEREGISTRY = &H1
Private Const CDS_TEST = &H4
Private Const DISP_CHANGE_SUCCESSFUL = 0
Private Const DISP_CHANGE_RESTART = 1

Private Type typDevMODE
dmDeviceName As String * CCDEVICENAME
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer
dmFormName As String * CCFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type

Private Declare Function EnumDisplaySettings Lib "User32" Alias "EnumDisplaySettingsA" ( _
ByVal lpszDeviceName As Long, ByVal iModeNum As Long, _
lptypDevMode As Any) As Boolean
Private Declare Function ChangeDisplaySettings Lib "User32" Alias _
"ChangeDisplaySettingsA" (lptypDevMode As Any, ByVal dwFlags As Long) As Long
Private Declare Function ExitWindowsEx Lib "User32" (ByVal uFlags As Long, _
ByVal dwReserved As Long) As Long


Private Sub d_AfterUpdate()
If (Eval("[forms]![شاشة-الترحيب]![d] is null")) Then Exit Sub
'```````````````````````````````````````````````````````````````````````````````````````
[باسورد] = DLookup("الباسورد", "tb5", "[الاسم] = '" & Me![الاسم] & "'")

'```````````````````````````````````````````````````````````````````````````````````````
If (Eval("[forms]![شاشة-الترحيب]![باسورد] is null")) Then
MsgBox "عفواّ . أسم المستخدم غير معتمد بالبرنامج ! يمكنك المحاولة مرة أخرى", 64, ""
d = Null
DoCmd.GoToControl "d"
Exit Sub
End If
'```````````````````````````````````````````````````````````````````````````````````````

End Sub

Private Sub e_AfterUpdate()
If (Eval("[forms]![شاشة-الترحيب]![d] is null")) Then
MsgBox "تأكد من أدخال أسم المستخدم أولاّ", 64, ""
e = Null
DoCmd.GoToControl "d"
Exit Sub
End If
End Sub

Private Sub Form_Load()
On Error Resume Next

Dim typDevM As typDevMODE
Dim lngResult As Long
Dim intAns As Integer
Dim a As String
a = [CC]
lngResult = EnumDisplaySettings(0, 0, typDevM)

With typDevM
.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
.dmPelsWidth = CC 'اختر العرض (640,800,1024, etc)
.dmPelsHeight = XX 'اختر الطول (480,600,768, etc)
End With

lngResult = ChangeDisplaySettings(typDevM, CDS_TEST)
Select Case lngResult
Case DISP_CHANGE_RESTART


If intAns = vbYes Then Call ExitWindowsEx(EWX_REBOOT, 0)
Case DISP_CHANGE_SUCCESSFUL
Call ChangeDisplaySettings(typDevM, CDS_UPDATEREGISTRY)


End Select
'``````````````````````````````````````````````````````````````````````````````````

DoCmd.DeleteObject acMacro, "autoexec"
DoCmd.Maximize
End Sub

Private Sub Form_Open(Cancel As Integer)
B.Visible = False
d.Visible = False
e.Visible = False
f.Visible = False
h.Visible = False
i.Visible = False

Me.TimerInterval = 100
[a] = " "
[c] = " "
[g] = " "
[k] = " "
[l] = " "
[m] = " "

t = 1
End Sub
Private Sub Form_Timer()
Select Case t
Case 9
a = a + "م"
Case 10
a = a + "ر"
Case 11
a = a + "ك"
Case 12
a = a + "ز"
Case 13
a = a + "با"
Case 14
a = a + "عا"
Case 15
a = a + "ر"
Case 16
a = a + "م"
Case 17
a = a + "ه"
Case 18
a = a + " "
Case 19
a = a + "ل"
Case 20
a = a + "ص"
Case 21
a = a + "ي"
Case 22
a = a + "ا"
Case 23
a = a + "ن"
Case 24
a = a + "ة"
Case 25
a = a + " "
Case 26
a = a + "ا"
Case 27
a = a + "ل"
Case 28
a = a + "س"
Case 29
a = a + "ي"
Case 30
a = a + "ا"
Case 31
a = a + "ر"
Case 32
a = a + "ا"
Case 33
a = a + "ت"
Case 34
a = a + " "
Case 35
a = a + "ب"
Case 36
a = a + "ا"
Case 37
a = a + "ل"
Case 38
a = a + "ك"
Case 39
a = a + "م"
Case 40
a = a + "ب"
Case 41
a = a + "ي"
Case 42
a = a + "و"
Case 43
a = a + "ت"
Case 44
a = a + "ر"

'=====================================================================
Case 55
B.Visible = True
Case 56
c = c + "ش"
Case 57
c = c + "ا"
Case 58
c = c + "ش"
Case 59
c = c + "ة"
Case 60
c = c + " "
Case 61
c = c + "إ"
Case 62
c = c + "د"
Case 63
c = c + "خ"
Case 64
c = c + "ا"
Case 65
c = c + "ل"
Case 66
c = c + " "
Case 67
c = c + "ك"
Case 68
c = c + "ل"
Case 69
c = c + "م"
Case 70
c = c + "ة"
Case 71
c = c + " "
Case 72
c = c + "ا"
Case 73
c = c + "ل"
Case 74
c = c + "س"
Case 75
c = c + "ر"
Case 76
c = c + " "
Case 77
c = c + "؟"
'=================================================================================
Case 85
d.Visible = True
Case 86
e.Visible = True
'=================================================================================
Case 87
g = g + "ت"
Case 88
g = g + "ذ"
Case 89
g = g + "ك"
Case 90
g = g + "ر"
Case 91
g = g + " "
Case 92
g = g + "ا"
Case 93
g = g + "ل"
Case 94
g = g + "ا"
Case 95
g = g + "س"
Case 96
g = g + "م"
Case 97
g = g + " "
Case 98
g = g + "ل"
Case 99
g = g + "ل"
Case 100
g = g + "د"
Case 101
g = g + "خ"
Case 102
g = g + "و"
Case 103
g = g + "ل"
Case 104
g = g + " "
Case 105
g = g + "م"
Case 106
g = g + "ر"
Case 107
g = g + "ة"
Case 108
g = g + " "
Case 109
g = g + "أ"
Case 110
g = g + "خ"
Case 111
g = g + "ر"
Case 112
g = g + "ى"
Case 113
f.Visible = True
Case 114
h.Visible = True
Case 115
i.Visible = True
'=================================================================================


End Select
t = t + 1


End Sub

Private Sub h_Click()
If (Eval("[forms]![شاشة-الترحيب]![d] Is null ")) Then
MsgBox "قم بإدخال أسم المستخدم أولاّ.. ", 64, ""
DoCmd.GoToControl "d"
e = Null
Exit Sub
End If
If (Eval("[forms]![شاشة-الترحيب]![e] Is null ")) Then
MsgBox "قم بإدخال كلمة السر .. ", 64, ""
DoCmd.GoToControl "e"
Exit Sub
End If
'```````````````````````````````````````````````````````````````````````````````````````
If [e] <> [باسورد] Then
MsgBox "عفواّ . كلمة المرور غير صحيحة . يمكنك المحاولة مرة أخرى", 64, ""
DoCmd.GoToControl "E"
e = Null
Exit Sub
End If
'```````````````````````````````````````````````````````````````````````````````````````
If [e] = [باسورد] Then
'```````````````````````````````````````````````````````````````````````````````````````
= Time()
'```````````````````````````````````````````````````````````````````````````````````````
DoCmd.OpenForm "دخول"
[Forms]![دخول]![COD] = DLookup("لرمز", "tb5", "[الاسم] = '" & Me![الاسم] & "'")
[Forms]![دخول]![y] = [d]

DoCmd.Close acForm, "شاشة-الترحيب"
Exit Sub
End If
End Sub

Private Sub i_Click()
Dim a As Single
a = MsgBox("هل تريد الخروج من البرنامج", 36, "")
If a = 7 Then Exit Sub
DoCmd.Quit
End Sub

Private Sub تفصيل_Click()

End Sub

....................................................................................................................................................



Option Compare Database
Option Explicit
Private strText As String 'بدون هذا الأمر لن تعمل الطريقة
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private Const CCDEVICENAME = 32
Private Const CCFORMNAME = 32
Private Const DM_BITSPERPEL = &H40000
Private Const DM_PELSWIDTH = &H80000
Private Const DM_PELSHEIGHT = &H100000
Private Const CDS_UPDATEREGISTRY = &H1
Private Const CDS_TEST = &H4
Private Const DISP_CHANGE_SUCCESSFUL = 0
Private Const DISP_CHANGE_RESTART = 1

Private Type typDevMODE
dmDeviceName As String * CCDEVICENAME
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer
dmFormName As String * CCFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type

Private Declare Function EnumDisplaySettings Lib "User32" Alias "EnumDisplaySettingsA" ( _
ByVal lpszDeviceName As Long, ByVal iModeNum As Long, _
lptypDevMode As Any) As Boolean
Private Declare Function ChangeDisplaySettings Lib "User32" Alias _
"ChangeDisplaySettingsA" (lptypDevMode As Any, ByVal dwFlags As Long) As Long
Private Declare Function ExitWindowsEx Lib "User32" (ByVal uFlags As Long, _
ByVal dwReserved As Long) As Long

Private Sub c1_Click()
On Error GoTo Err_c1_Click
Dim a As Single
If (Eval("[forms]![دخول]![f3] is null")) Then
MsgBox "إدخل أسم العميل", 64, ""
DoCmd.GoToControl "f3"
Exit Sub
End If
'`````````````````````````````````````````````````````````````````````````````

If (Eval("[forms]![دخول]![f4] is null")) Then
MsgBox "إدخل رقم لوحة السيارة", 64, ""
DoCmd.GoToControl "f4"
Exit Sub
End If
'`````````````````````````````````````````````````````````````````````````````

If (Eval("[forms]![دخول]![f5] is null")) Then
MsgBox "إدخل موديل السيارة", 64, ""
DoCmd.GoToControl "f5"
Exit Sub
End If
'`````````````````````````````````````````````````````````````````````````````

If (Eval("[forms]![دخول]![f6] is null")) Then
MsgBox "إدخل نوع أستخدام السيارة", 64, ""
DoCmd.GoToControl "f6"
Exit Sub
End If
'`````````````````````````````````````````````````````````````````````````````

If (Eval("[forms]![دخول]![f9] is null")) Then
a = MsgBox("لم تقم بتشخيص الأعطال . هل تريد تشخيص الأعطال الأن", 36, "")
If a = 6 Then
DoCmd.GoToControl "f9"
Exit Sub
DoCmd.GoToControl "f10"
End If
End If

'`````````````````````````````````````````````````````````````````````````````

If (Eval("[forms]![دخول]![f10] is null")) Then
MsgBox "إدخل أسم المهندس", 64, ""
DoCmd.GoToControl "f10"
Exit Sub
End If

If t0 = "قسم فحص وصيانة السيارات" Then
f11 = Date
f12 = "نعم"
End If
'`````````````````````````````````````````````````````````````````````````````
If t0 = "قسم دخول السيارات" Then
f11 = Null
f12 = "لا"
End If
'`````````````````````````````````````````````````````````````````````````````
If (Eval("[forms]![دخول]![f7] is null")) Then f7 = "لايوجد رقم هاتف "
If (Eval("[forms]![دخول]![f8] is null")) Then f8 = "لايوجد رقم جوال "

DoCmd.GoToRecord , , acNext
'`````````````````````````````````````````````````````````````````````````````
أمر55.Caption = "قسم الحسابات والفواتير"

Me.Refresh

Exit_c1_Click:
Exit Sub

Err_c1_Click:
Resume Exit_c1_Click


End Sub

Private Sub C10_Click()
If C10.Caption = "حذف مستخدم" Then
DoCmd.OpenForm "حذف مستخدم"
Exit Sub
End If

'```````````````````````````````````````

If f1 > 0 Then
MsgBox "قم بحفظ البيانات أولاّ", 64, ""
Exit Sub
End If

'```````````````````````````````````````
f1.Visible = False
f2.Visible = False
f3.Visible = False
f4.Visible = False
f5.Visible = False
f6.Visible = False
f1.Visible = False
f7.Visible = False
f8.Visible = False
f9.Visible = False
f10.Visible = False
'```````````````````````````````````````
t0 = "شاشة الضبط الرئيسية"
t1.Visible = False
t2.Visible = False

'```````````````````````````````````````
x1.Visible = False
x2.Visible = False

'```````````````````````````````````````

c1.Visible = False
c2.Visible = False
c3.Visible = False
أمر55.Caption = "قسم الحسابات والفواتير"


'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

If COD = 1 Then
DoCmd.GoToControl "C6"
c6.Caption = "الرئيسية"
c7.Caption = "تغيير الباسورد"
أمر55.Caption = "تغيير مستخدم"
c9.Visible = False
C10.Visible = False
C5.Visible = False
Exit Sub
End If

'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
If COD = 2 Then
DoCmd.GoToControl "C6"
c6.Caption = "الرئيسية"
c7.Caption = "تغيير الباسورد"
أمر55.Caption = "تغيير مستخدم"
c9.Caption = "مستخدم جديد"
C10.Caption = "حذف مستخدم"
C5.Visible = False
Exit Sub
End If
'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
If COD = 3 Then
DoCmd.GoToControl "C6"
c6.Caption = "الرئيسية"
c7.Caption = "تغيير الباسورد"
أمر55.Caption = "تغيير مستخدم"
c9.Caption = "مستخدم جديد"
C10.Caption = "حذف مستخدم"
C5.Caption = "بدء التشغيل"
C11.Visible = True
C12.Visible = True
Exit Sub
End If

End Sub

Private Sub C11_Click()
Dim stDocName As String

stDocName = ChrW(1575) & ChrW(1604) & ChrW(1603) & ChrW(1608) & ChrW(1583) & ChrW(32) & ChrW(1575) & ChrW(1604) & ChrW(1576) & ChrW(1585) & ChrW(1605) & ChrW(1580) & ChrW(1609)
DoCmd.RunMacro stDocName

End Sub

Private Sub C12_Click()
DoCmd.OpenForm "hide"
End Sub

Private Sub c2_Click()
On Error Resume Next
Dim a As Single
'`````````````````````````````````````````````````````````````````````````````
If (Eval("[forms]![دخول]![f1] is null")) Then
a = MsgBox("عفواّ. لايوجد بيانات يمكنك حذفها", 46, "")
Exit Sub
End If


'`````````````````````````````````````````````````````````````````````````````

a = MsgBox("هل أنت متأكد من حذف البيانات", 36, "")
If a = 7 Then Exit Sub
أمر55.Caption = "قسم الحسابات والفواتير"

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
'`````````````````````````````````````````````````````````````````````````````

End Sub






Private Sub c3_Click()
On Error Resume Next


If (Eval("[forms]![دخول]![f3] is null")) Then
MsgBox "إدخل أسم العميل", 64, ""
DoCmd.GoToControl "f3"
Exit Sub
End If
'`````````````````````````````````````````````````````````````````````````````

If (Eval("[forms]![دخول]![f4] is null")) Then
MsgBox "إدخل رقم لوحة السيارة", 64, ""
DoCmd.GoToControl "f4"
Exit Sub
End If
'`````````````````````````````````````````````````````````````````````````````

If (Eval("[forms]![دخول]![f5] is null")) Then
MsgBox "إدخل موديل السيارة", 64, ""
DoCmd.GoToControl "f5"
Exit Sub
End If
'`````````````````````````````````````````````````````````````````````````````

If (Eval("[forms]![دخول]![f6] is null")) Then
MsgBox "إدخل نوع أستخدام السيارة", 64, ""
DoCmd.GoToControl "f6"
Exit Sub
End If
'`````````````````````````````````````````````````````````````````````````````

If (Eval("[forms]![دخول]![f9] is null")) Then
'a = MsgBox("لم تقم بتشخيص الأعطال . هل تريد تشخيص الأعطال الأن", 36, "")
'If a = 6 Then
DoCmd.GoToControl "f9"
Exit Sub
DoCmd.GoToControl "f10"
End If
'End If

'`````````````````````````````````````````````````````````````````````````````

If (Eval("[forms]![دخول]![f10] is null")) Then
MsgBox "إدخل أسم المهندس", 64, ""
DoCmd.GoToControl "f10"
Exit Sub
End If
'`````````````````````````````````````````````````````````````````````````````

Me.Refresh
'`````````````````````````````````````````````````````````````````````````````


If t0 = "قسم دخول السيارات" Then
DoCmd.OpenReport "تقرير-دخول", acNormal

Exit Sub
End If
'`````````````````````````````````````````````````````````````````````````````

If t0 = "قسم فحص وصيانة السيارات" Then
DoCmd.OpenReport "تقرير-صيانة", acNormal

Exit Sub
End If

End Sub

Private Sub c7_Click()
If c7.Caption = "تغيير الباسورد" Then
DoCmd.OpenForm "FRM-P4"
[Forms]![FRM-P4]![الاسم] = [y]
Exit Sub
End If
'```````````````````````````````````````


If c7.Caption = "قسم دخول السيارات" Then
c7.Caption = "قسم الصيانة"
c6.Caption = "الرئيسية"

'```````````````````````````````````````
Application.SetOption "Behavior entering field", 0
'```````````````````````````````````````

t0 = "قسم دخول السيارات"
f1.Visible = True
f2.Visible = True
f3.Visible = True
f4.Visible = True
f5.Visible = True
f6.Visible = True
f1.Visible = True
f7.Visible = True
f8.Visible = True
f9.Visible = True
f10.Visible = True
f13.Visible = True
'```````````````````````````````````````
t1.Visible = True
t2.Visible = True
'```````````````````````````````````````
x1.Visible = False
x2.Visible = False

c1.Visible = True
c2.Visible = True
c3.Visible = True


Exit Sub
End If

'`````````````````````````````````````````````````````````````````````````````

If c7.Caption = "قسم الصيانة" Then

On Error Resume Next

c7.Caption = "قسم دخول السيارات"
t0 = "قسم فحص وصيانة السيارات"

'```````````````````````````````````````
Application.SetOption "Behavior entering field", 0
'```````````````````````````````````````

f1.Visible = True
f2.Visible = True
f3.Visible = True
f4.Visible = True
f5.Visible = True
f6.Visible = True
f1.Visible = True
f7.Visible = True
f8.Visible = True
f9.Visible = True
f10.Visible = True

'```````````````````````````````````````
t1.Visible = True
t2.Visible = True
'```````````````````````````````````````
x1.Visible = False
x2.Visible = False

c1.Visible = True
c2.Visible = True
c3.Visible = True

Exit Sub
End If
'`````````````````````````````````````````````````````````````````````````````
If c6.Caption = "الرئيسية" Then
On Error Resume Next

c7.Caption = "قسم الصيانة"
t0 = "قسم دخول السيارات"

Exit Sub
End If



End Sub

Private Sub c9_Click()
If c9.Caption = "مستخدم جديد" Then
DoCmd.OpenForm "مستخدم جديد"
Exit Sub
End If
'````````````````````````````````````````````````````````````````````````````
If [COD] <> 1 Then
If c9.Caption = "قسم الجرد" Then
c9.Caption = "أستعلامات"
'````````````````````````````````````````````````````````````````````````````
t0 = "قسم الجرد"

x1.Visible = False
x2.Visible = False
'````````````````````````````````````````````````````````````````````````````

DoCmd.OpenForm "الجرد"

Exit Sub
End If
End If
'````````````````````````````````````````````````````````````````````````````
If f1 > 0 Then
MsgBox "قم بحفظ البيانات أولاّ", 64, ""
Exit Sub
End If

Application.SetOption "Behavior entering field", 2
'`````````````````````````````````````````````````````````````````````````````
f1.Visible = False
f2.Visible = False
f3.Visible = False
f4.Visible = False
f5.Visible = False
f6.Visible = False
f1.Visible = False
f7.Visible = False
f8.Visible = False
f9.Visible = False
f10.Visible = False
'```````````````````````````````````````
t0 = "قسم الأستعلامات"
t1.Visible = False
t2.Visible = False


'```````````````````````````````````````

c1.Visible = False
c2.Visible = False
c3.Visible = False

x1.Visible = True
x2.Visible = True
'```````````````````````````````````````````````````````````````
If [COD] <> 1 Then c9.Caption = "قسم الجرد"
If [COD] = 1 Then c9.Caption = "أستعلامات"


End Sub

Private Sub f13_AfterUpdate()
f1 = DLast("[اذن]", "بيانات") + 1
'`````````````````````````````````````````````````````````````````````````````

If (Eval("[forms]![دخول]![f1] is null")) Then f1 = 1

End Sub

Private Sub f2_AfterUpdate()

f1 = DLast("[اذن-الدخول]", "بيانات") + 1
'`````````````````````````````````````````````````````````````````````````````
If (Eval("[forms]![دخول]![f1] is null")) Then f1 = 1

If (Eval("[forms]![دخول]![f2] is null")) Then f2 = Date

End Sub

Private Sub f3_AfterUpdate()

f1 = DLast("[اذن]", "بيانات") + 1
'`````````````````````````````````````````````````````````````````````````````
If (Eval("[forms]![دخول]![f1] is null")) Then f1 = 1

f7 = DLast("الهاتف", "بيانات", "[العميل] = '" & Me![f3] & "'")

f8 = DLast("الجوال", "بيانات", "[العميل] = '" & Me![f3] & "'")

End Sub

Private Sub f3_Change()
f1 = DLast("[اذن]", "بيانات") + 1
'`````````````````````````````````````````````````````````````````````````````
If (Eval("[forms]![دخول]![f1] is null")) Then f1 = 1

End Sub

Private Sub f4_AfterUpdate()
Dim a As Single

f1 = DLast("[اذن]", "بيانات") + 1
'`````````````````````````````````````````````````````````````````````````````
If (Eval("[forms]![دخول]![f1] is null")) Then f1 = 1

f5 = DLookup("الموديل", "بيانات", "[رقم-السيارة] = '" & Me![f4] & "'")

f6 = DLookup("الأستخدام", "بيانات", "[رقم-السيارة] = '" & Me![f4] & "'")
'`````````````````````````````````````````````````````````````````````````````

x1 = [f4]
On Error Resume Next
x2 = [f5]

c = DCount("[رقم-السيارة]", "موجود-بالمركز")
If c >= 1 Then
f4 = Null
f5 = Null
f6 = Null
c = 0
a = MsgBox("عفوا.السيارة رقم " + x1 + " موجودة حالياّ بالمركز", 64, "")

DoCmd.GoToControl "f3"
Exit Sub
End If

CC = DCount("[ت-الخروج]", "اخر-زيارة")

If [CC] > 0 Then أمر55.Caption = "زيــارات"
If [CC] = 0 Then أمر55.Caption = "قسم الحسابات والفواتير"

End Sub

Private Sub f5_AfterUpdate()

f1 = DLast("[اذن-الدخول]", "بيانات") + 1
'`````````````````````````````````````````````````````````````````````````````
If (Eval("[forms]![دخول]![f1] is null")) Then f1 = 1

End Sub
Private Sub f6_afterupdate()


f1 = DLast("[اذن]", "بيانات") + 1
'`````````````````````````````````````````````````````````````````````````````
If (Eval("[forms]![دخول]![f1] is null")) Then f1 = 1

End Sub
Private Sub f7_afterupdate()

f1 = DLast("[اذن]", "بيانات") + 1
'`````````````````````````````````````````````````````````````````````````````
If (Eval("[forms]![دخول]![f1] is null")) Then f1 = 1

End Sub
Private Sub f8_afterupdate()

f1 = DLast("[اذن]", "بيانات") + 1
'`````````````````````````````````````````````````````````````````````````````
If (Eval("[forms]![دخول]![f1] is null")) Then f1 = 1

End Sub
Private Sub f9_afterupdate()

f1 = DLast("[اذن]", "بيانات") + 1
'`````````````````````````````````````````````````````````````````````````````
If (Eval("[forms]![دخول]![f1] is null")) Then f1 = 1

End Sub
Private Sub f10_afterupdate()


f1 = DLast("[اذن]", "بيانات") + 1
'`````````````````````````````````````````````````````````````````````````````

If (Eval("[forms]![دخول]![f1] is null")) Then f1 = 1

End Sub





Private Sub Form_Current()
m1 = DCount("[الاسم]", "PAS")
End Sub

Private Sub Form_Load()
f1.Visible = False
f2.Visible = False
f3.Visible = False
f4.Visible = False
f5.Visible = False
f6.Visible = False
f1.Visible = False
f7.Visible = False
f8.Visible = False
f9.Visible = False
f10.Visible = False
f13.Visible = False

'```````````````````````````````````````
t0 = "مركز باعارمه لصيانة السيارات بالكمبيوتر"
t1.Visible = False
t2.Visible = False

'```````````````````````````````````````
x1.Visible = False
x2.Visible = False

'```````````````````````````````````````

c1.Visible = False
c2.Visible = False
c3.Visible = False
أمر55.Caption = "قسم الحسابات والفواتير"
C11.Visible = False
C12.Visible = False

DoCmd.Maximize
strText = "مركز باعارمه لصيانة السيارات بالكمبيوتر "
strText = Space(110) & strText

End Sub



Private Sub Form_Timer()
Dim sum
sum = DCount("[الاسم]", "PAS")
If sum <> m1 Then m1 = DCount("[الاسم]", "PAS")



strText = Mid(strText, 2) & Left(strText, 1)
Me.Caption = strText

End Sub

Private Sub c4_Click()
If [f1] > 1 Then
MsgBox "قم بحفظ البيانات أولا", 64, ""
Exit Sub
End If
'`````````````````````````````````````````````````````````````````````````````

DoCmd.Close acForm, "دخول"
End Sub

Private Sub C5_Click()
On Error Resume Next
Dim r As Single
If C5.Caption = "بدء التشغيل" Then
Dim stDocName As String

stDocName = ChrW(1576) & ChrW(1583) & ChrW(1569) & ChrW(32) & ChrW(1575) & ChrW(1604) & ChrW(1578) & ChrW(1588) & ChrW(1594) & ChrW(1610) & ChrW(1604)
DoCmd.RunMacro stDocName

Exit Sub
End If

'`````````````````````````````````````````````````````````````````````````````
If (Eval("[forms]![دخول]![f1] is not null")) Then

r = MsgBox("قم بحفظ البيانات أولا", 64, "")
Exit Sub
End If
'`````````````````````````````````````````````````````````````````````````````
If C5.Caption = "خروج" Then

r = MsgBox("هل تريد الخروج من البرنامج", 36, "")
If r = 7 Then Exit Sub

On Error Resume Next

Dim k
Dim db As Database
Dim rec As Recordset
Set db = CurrentDb()

Set rec = db.OpenRecordset("PAS")

k = [y]
rec.Index = "الاسم"
rec.Seek "=", k



rec.Delete

rec.Close
'``````````````````````````````````````````````````````````````````````


On Error Resume Next

Dim typDevM As typDevMODE
Dim lngResult As Long
Dim intAns As Integer
Dim a As String
a = [CC]
lngResult = EnumDisplaySettings(0, 0, typDevM)

With typDevM
.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
.dmPelsWidth = CC 'اختر العرض (640,800,1024, etc)
.dmPelsHeight = XX 'اختر الطول (480,600,768, etc)
End With

lngResult = ChangeDisplaySettings(typDevM, CDS_TEST)
Select Case lngResult
Case DISP_CHANGE_RESTART


If intAns = vbYes Then Call ExitWindowsEx(EWX_REBOOT, 0)
Case DISP_CHANGE_SUCCESSFUL
Call ChangeDisplaySettings(typDevM, CDS_UPDATEREGISTRY)


End Select

DoCmd.Quit acQuitSaveAll
Exit Sub
End If

End Sub

Private Sub c6_Click()
If c6.Caption = "قسم الصيانة" Then
c6.Caption = "الرئيسية"

'```````````````````````````````````````
Application.SetOption "Behavior entering field", 0
'```````````````````````````````````````

t0 = "قسم فحص وصيانة السيارات"
f1.Visible = True
f2.Visible = True
f3.Visible = True
f4.Visible = True
f5.Visible = True
f6.Visible = True
f1.Visible = True
f7.Visible = True
f8.Visible = True
f9.Visible = True
f10.Visible = True
f13.Visible = True
'```````````````````````````````````````
t1.Visible = True
t2.Visible = True
'```````````````````````````````````````
x1.Visible = False
x2.Visible = False
'```````````````````````````````````````

c1.Visible = True
c2.Visible = True
c3.Visible = True


Exit Sub
End If
'`````````````````````````````````````````````````````````````````````````````

If c6.Caption = "الرئيسية" Then
c7.Caption = "قسم دخول السيارات"
أمر55.Caption = "قسم الحسابات والفواتير"
c9.Caption = "أستعلامات"
C10.Caption = "الضبط"
C5.Caption = "خروج"
C11.Visible = False
C12.Visible = False
c9.Visible = True
C10.Visible = True
C5.Visible = True

'`````````````````````````````````````````````````````````````````````````````

If f1 > 0 Then
MsgBox "قم بحفظ البيانات أولاّ", 64, ""
Exit Sub
End If

'```````````````````````````````````````
Application.SetOption "Behavior entering field", 0
'```````````````````````````````````````

c6.Caption = "قسم الصيانة"
c7.Caption = "قسم دخول السيارات"

t0 = "مركز باعارمه لصيانة السيارات بالكمبيوتر"
f1.Visible = False
f2.Visible = False
f3.Visible = False
f4.Visible = False
f5.Visible = False
f6.Visible = False
f1.Visible = False
f7.Visible = False
f8.Visible = False
f9.Visible = False
f10.Visible = False
f13.Visible = False

'```````````````````````````````````````
t1.Visible = False
t2.Visible = False
'```````````````````````````````````````
x1.Visible = False
x2.Visible = False

c1.Visible = False
c2.Visible = False
c3.Visible = False


Exit Sub
End If
End Sub

Private Sub t_Click()
DoCmd.OpenForm "التقرير"

End Sub

Private Sub x1_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case Is = vbKeySpace
Exit Sub
Case Else
Me.Refresh
If Me.x2.ListCount = 0 Then
MsgBox "عفواً عنصر البحث غير متوفر !! قم بتجربة عنصر بحث آخر", vbOKOnly + vbInformation, ""
Me.x1.Value = ""
Me.x1.SetFocus
End If
Me.x2.SetFocus
Me.x1.SetFocus
End Select

End Sub

Private Sub أمر55_Click()
If أمر55.Caption = "تغيير مستخدم" Then
On Error Resume Next

Dim k
Dim db As Database
Dim rec As Recordset
Set db = CurrentDb()

Set rec = db.OpenRecordset("PAS")

k = [y]
rec.Index = "الاسم"
rec.Seek "=", k



rec.Delete

rec.Close

'``````````````````````````````````````````````````````````````````````

DoCmd.OpenForm "شاشة-الترحيب"
DoCmd.Close acForm, "دخول"


Exit Sub
End If
'```````````````````````````````````````````````````

If أمر55.Caption = "قسم الحسابات والفواتير" Then
DoCmd.OpenForm "استعلام"
Exit Sub
End If

If أمر55.Caption = "زيارات" Then

DoCmd.OpenForm "اخر-زيارة"
Exit Sub
End If

End Sub

...........................................................................................................................................................



Option Compare Database








Private Sub c1_Click()

End Sub

Private Sub e_Enter()
If [e] = "أكتب أسم التقرير" Then e = Null
End Sub

Private Sub e_Exit(Cancel As Integer)
If (Eval("[forms]![التقرير]![e] is null ")) Then e = "أكتب أسم التقرير"

End Sub

Private Sub f1_Click()

f2.Visible = True
f3.Visible = True

End Sub

Private Sub f2_Click()
DoCmd.OpenForm "استعلام تقرير عميل"

End Sub

Private Sub f3_Click()
DoCmd.OpenForm "استعلام تقرير خاص"

End Sub



Private Sub txt_Enter()
txt = DLookup("[txt1]", "تقرير")

End Sub

Private Sub Form_Current()

End Sub

Private Sub Form_Load()

End Sub

Private Sub أمر30_Click()
DoCmd.Close acForm, "استعلام تقرير عميل"
End Sub

Private Sub أمر7_Click()
On Error Resume Next
If (Eval("[forms]![التقرير]![txt1] is null ")) Then Txt1 = DLookup("[txt1]", "تقرير")

DoCmd.GoToRecord , , acNext

End Sub

Private Sub أمر80_Click()

End Sub

Private Sub أمر83_Click()
On Error Resume Next
If (Eval("[forms]![استعلام تقرير عميل]![txt] is null ")) Then txt = DLookup("[txt]", "txt")


DoCmd.Close

DoCmd.OpenForm "استعلام تقرير عميل"

End Sub

...................................................................................................................................................



Option Compare Database

Private Sub a_AfterUpdate()
total = [a] + - [c]

If [total] < 0 Then
i = total
Exit Sub
End If

'`````````````````````````````````````````````````````````````````````
If (Eval("[forms]![موجود-بالمركز]![a] is null ")) Then a = 0
On Error Resume Next
i = NoToTxt([total], "ريال", "هلله")
Me.Refresh
End Sub

Private Sub b_AfterUpdate()
total = [a] + - [c]

If [total] < 0 Then
i = total
Exit Sub
End If
'`````````````````````````````````````````````````````````````````````

If (Eval("[forms]![موجود-بالمركز]! is null ")) Then B = 0
On Error Resume Next
i = NoToTxt([total], "ريال", "هلله")
Me.Refresh

End Sub

Private Sub c3_Click()
On Error Resume Next
Dim zz As Single
If (Eval("[forms]![موجود-بالمركز]![f9] is null ")) Then
MsgBox "إدخل الأصلاحات التى تم عملها داخل المركز", 64, ""
DoCmd.GoToControl "f9"
Exit Sub
End If
'``````````````````````````````````````````````````````````````````````````````
If (Eval("[forms]![موجود-بالمركز]![f10] is null ")) Then
MsgBox "إدخل أسم المهندس المسؤل عن الأصلاحات", 64, ""
DoCmd.GoToControl "f10"
Exit Sub
End If
'``````````````````````````````````````````````````````````````````````````````
If (Eval("[forms]![موجود-بالمركز]![f11] is null ")) Then
MsgBox "قم بتحديد الحالة اليومية", 64, ""
DoCmd.GoToControl "f11"
Exit Sub
End If
'``````````````````````````````````````````````````````````````````````````````
If (Eval("[forms]![موجود-بالمركز]![f12] is null ")) Then
MsgBox "إدخل الحالة الفنية", 64, ""
DoCmd.GoToControl "f12"
Exit Sub
End If
'``````````````````````````````````````````````````````````````````````````````
If a = 0 Then
MsgBox "إدخل تكلفة قطع الغيار.", 64, ""
DoCmd.GoToControl "a"
Exit Sub
End If
'``````````````````````````````````````````````````````````````````````````````
If B = 0 Then
MsgBox "إدخل تكلفة الأصلاحات التى تمت.", 64, ""
DoCmd.GoToControl "b"
Exit Sub
End If
'``````````````````````````````````````````````````````````````````````````````

zz = MsgBox("هل تريد خروج السيارة من المركز الأن", 36, "")
If zz = 7 Then Exit Sub
d = Date
[خروج] = "نعم"
DoCmd.OpenReport "تقرير-فاتورة", acNormal

End Sub



Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
If a = 0 Then
If B = 0 Then Exit Sub
End If

'```````````````````````````````````````````````````````````````````````
total = [a] + - [c]

If [total] < 0 Then
i = total
Exit Sub
End If
'`````````````````````````````````````````````````````````````````````
'```````````````````````````````````````````````````````````````````````

i = NoToTxt([total], "ريال", "هلله")
Me.Refresh

End Sub

Private Sub أمر12_Click()
DoCmd.Close acForm, "موجود-بالمركز"
DoCmd.OpenForm "استعلام"

End Sub

...............................................................................................................................................................



ارجوا مساعدتي مع شكري للجميع

  • اقتباس
    • بتاريخ:
    • كاتب الموضوع

    معقول 37 مشاهده ولا أحد رد
    ياااااااااااربي

  • اقتباس

    • انضم إلى المناقشة

    يمكنك المشاركة الآن والتسجيل لاحقاً. إذا كان لديك حساب, سجل دخولك الآن لتقوم بالمشاركة من خلال حسابك.

    زائر
    أضف رد على هذا الموضوع...
    عودة لقائمة الموضوعات

    برجاء الإنتباه

    بإستخدامك للموقع فأنت تتعهد بالموافقة على هذه البنود: سياسة الخصوصية

    أوافق

    Account

    Navigation

    البحث

    إعداد إشعارات المتصفح الفورية
    Chrome (Android)
    1. Tap the lock icon next to the address bar.
    2. Tap Permissions → Notifications.
    3. Adjust your preference.
    Chrome (Desktop)
    1. Click the padlock icon in the address bar.
    2. Select Site settings.
    3. Find Notifications and adjust your preference.