Shivan Rekany

مشاركة مع استاذ @محمدنجار اتفضل اخي اطارق فقط عليك ان تفتح الاستعلام مرة واحدة فقط قبل الفتح انظر الى الجدول حقل sss وبعد تشغيل الاستعلام انظره مرة اخرى والاستعلام سيكون كالتالي UPDATE Table1 SET Table1.sss = [wared]-[mortajaa]; اتفضل اليك القاعدة بها استعلام تحديث عمل حساب واضافته الى الجدول.rar

حسب فهمي لطلبك تقدر تستخدم هذا الكود عند فتح النموذج Me.Command26.Enabled = False

عمل رائع من استاذة رائعة هي عملت اضافة حقل جديد هكذا d1: DLookUp("[num]";"استعلام1";"[id]=" & [id]-1) وبعدين في حقل اخر عملت هذا Expr1: Nz([num]-[d1];0) شيء ممتاز جدا لكن بعد ما نخلص من هذه الملاحظة لذا انا قمت باضافة على مثال استاذتنا المبدعة زهرة عبدالله باضافة حقل جديد حقل ترقيم تلقائي جديد في الاستعلام وهذا هو الحقل id1: (Select Count (*) FROM [جدول1] as MyNewId WHERE [MyNewId].[id] <[جدول1].[id])+1 وراح نستخدم هذا الترقيم في العملية بدل ترقيم تلقائي للجدول لانه احتمال ان يكون تحذف السجل من السجلات بعدين راح تعطيك نتيجة خاطئة والان في النهاية استعلامنا اصبح هكذا SELECT (Select Count (*) FROM [جدول1] as MyNewId WHERE [MyNewId].[id] <[جدول1].[id])+1 AS id1, جدول1.num, جدول1.Date, DLookUp("[num]","استعلام1","[id1]=" & [id1]-1) AS d1, Nz([num]-[d1],0) AS Expr1 FROM جدول1; للتوضيح اكثر اليك المرفق test130 (1) (1).rar

بخير هاتي بو موقعئ اوفيسنا حسب فهمي لسؤالك يجب في النهاية المطاف ان تستخدم عملة واحدة وعند استخدامك مثلا الدولار مع دينار يجب عندك معلومة دينار مقابل دولار وتستخدم العملية تحويل الدولار الى الدينار او العكس وبعدين تعمل العملية الجمع هذا والله يعلم

في اوفيس اصدار 2010 تقدر و 2007 لا لكن تقدر تستخدم استعلام تحديث بدل ذلك هذا والله يعلم

من هذه المعادلة dd: Abs(DSum("[d1]";"استعلام1";"[id] <=" & [id] & "and [id] >=" & [id]-1)) احذف اي بي اس اي سيكون الكود كالتالي dd: DSum("[d1]";"استعلام1";"[id] <=" & [id] & "and [id] >=" & [id]-1) والله يعلم

اتفضل كود عربي المتقدم سيكون كالتالي في الاستعلام متقدم عربي: DCount("[Sit_no]";"sheet";"[group]='" & [Group] & "'" & "and n_ar1= 'عربي'") غائب عربي غائب عربي: DCount("Sit_no";"sheet";"[group]='" & [group] & "'" & "and ar3 = 'غ'") متقدم رياضيات متقدم رياضيات: DCount("Sit_no";"sheet";"[group]='" & [group] & "'" & "and n_ma1= 'رياضيات'") غائب رياضيات غائب رياضيات: DCount("Sit_no";"sheet";"group='" & [group] & "'" & "and ma3 = 'غ'") اي يعني الاستعلام كله سيكون كالتالي SELECT sheet.Group, DCount("[Sit_no]","sheet","[group]='" & [Group] & "'" & "and n_ar1= 'عربي'") AS [متقدم عربي], DCount("Sit_no","sheet","[group]='" & [group] & "'" & "and ar3 = 'غ'") AS [غائب عربي], DCount("Sit_no","sheet","[group]='" & [group] & "'" & "and n_ma1= 'رياضيات'") AS [متقدم رياضيات], DCount("Sit_no","sheet","group='" & [group] & "'" & "and ma3 = 'غ'") AS [غائب رياضيات] FROM sheet GROUP BY sheet.Group; القي نظرتا الى النتيجة في الصورة واليك المرفق بعد تعديل احصاء متقدم وغائب.rar

استأذن من استاذنا @محمدنجار اتفضل غيرت خاصية زر الحاسبة Enabled = no واستخدمت هذا الكود لزر تشغيل الحاسبة Private Sub أمر17_Click() X = InputBox("ادخل كلمة السر الصحيحة", "تنبيه") If X = 1 Then Cancel = MsgBox("كلمة السر صحيحة", vbOKOnly + vbMsgBoxRight, "تنبيه") Me.Command26.Enabled = True Else: MsgBox "كلمة السر غير صحيحة", vbOKOnly + vbMsgBoxRight, "تنبيه" Me.Command26.Enabled = False End If End Sub اتفضل مع القاعدة test 3_UP.rar

انا نزلت المرفقك كان بيعمل جيدا وهذا هو صورة منه شكرا لك ولاستاذنا رمهان

الحمدلله انا استخدم الاستعلامات كمصدر واعمل على نماذج لذا هل ممكن تعطينا استعلامك لكي نلقي اليها نظرة

لذلك انا قلت لك افتح موضوع جديد اها تم الوصول الى النتيجة اخي @king5star اذا من الممكن خلي هنا و هناك قاعدة مصغرة للعملية لكي يستفيد من يفتح موضوعك بعدك تقبل تحياتي

اخي الحبيب @king5star السلام عليكم ورحمة الله وبركاته اشوف من الاحسن ان تفتح موضوع جديد لان في هذه الموضوع 1 / الخطأ في اسم الموضوع 2/ موضوع داخل موضوع هذا حسب رأيي والله يعلم لذا نريد ان نأخذ الرأي استاذنا @ابوخليل على هذا تقبلوا تحياتي

هل قصدك هذا If MsgBox("هل تريد الحذف السجل ", vbYesNo , "تنبيـــه") = vbYes Then Docmd.runcommand accmdselectrecord DoCmd.RunCommand acCmdDeleteRecord MsgBox "تم الحذف" me.Refresh End If

اتفضل هذا الحل الانسب في حدث فتح نموذج من نوع سبلايت استخدمنا هذا الكود Private Sub Form_Open(Cancel As Integer) DoCmd.Maximize End Sub وللفتح النموذج استخدمنا هذا الكود Private Sub أمر8_Click() DoCmd.OpenForm "nform", acNormal, , , , acDialog End Sub ولان لا يظهر الاستعلام في وضع اخفاء الشاشة عملنا نموذج من نوع داتاشيت وكتبنا هذا الكود لفتحه Private Sub أمر9_Click() DoCmd.OpenForm "q1", acFormDS, , , , acDialog End Sub اتفضل اليك مرفقك بعد تعديل ASH1 (1).rar

اتفضل هذا هو الوحدة النمطية لاخفاء واظهار شاشة اكسس عند فتح نموذج الواجهة اي النموذج البداية استخدمنا هذا الكود Private Sub Form_Open(Cancel As Integer) HideAccess End Sub وهذه هو اكواد فتح التقارير وفتح النماذج بنوع داتاشيت و سبلايت و عادي Private Sub Command10_Click() Dim NameFrm As String NameFrm = "ÈíÇäÇÊ" DoCmd.OpenForm NameFrm, acNormal End Sub Private Sub Command11_Click() Dim NameFrm As String NameFrm = "ÈíÇäÇÊ ÇáÊáãíÐ" DoCmd.OpenForm NameFrm, acNormal End Sub Private Sub Command12_Click() Dim NameFrm As String NameFrm = ChrW(1576) & ChrW(1610) & ChrW(1575) & ChrW(1606) & ChrW(1575) & ChrW(1578) & ChrW(32) & ChrW(1575) & ChrW(1604) & ChrW(1605) & ChrW(1593) & ChrW(1604) & ChrW(1605) DoCmd.OpenForm NameFrm, acNormal End Sub Private Sub Command13_Click() Dim NameFrm As String NameFrm = "ÈíÇäÇÊ ÇáÊáãíÐ1" DoCmd.OpenForm NameFrm, acNormal End Sub Private Sub Command4_Click() Dim NameRep As String NameRep = ChrW(1576) & ChrW(1610) & ChrW(1575) & ChrW(1606) & ChrW(1575) & ChrW(1578) & ChrW(32) & ChrW(1575) & ChrW(1604) & ChrW(1578) & ChrW(1604) & ChrW(1605) & ChrW(1610) & ChrW(1584) DoCmd.OpenReport NameRep, acViewPreview, , , acDialog End Sub Private Sub Command5_Click() Dim NameRep As String NameRep = ChrW(1576) & ChrW(1610) & ChrW(1575) & ChrW(1606) & ChrW(1575) & ChrW(1578) & ChrW(32) & ChrW(1575) & ChrW(1604) & ChrW(1605) & ChrW(1593) & ChrW(1604) & ChrW(1605) DoCmd.OpenReport NameRep, acViewPreview, , , acDialog End Sub Private Sub Command9_Click() Dim NameFrm As String NameFrm = "FrmQuery1" DoCmd.OpenForm NameFrm, acFormDS End Sub واستخدمنا عند فتح التقارير و النموذج من نوع سبلايت و داتاشيت هذا الكود Private Sub Report_Open(Cancel As Integer) DoCmd.Maximize End Sub ولا تنسى ان خاصية كل النماذج والتقارير شرطي و مشروط يساوي نعم اليك ملف للفائدة اكثر مثال اخفاء شاشة الاكسس.rar

ما هو السبب عمل 302000 تقرير في القاعدة ؟ ما قصدك بهذا ؟ اتفضل رأيت احد مشاركات استاذنا @ابوخليل وكان فيها الحل وكان استخدمت هذه الوحدة نمطية Option Compare Database Global Const SW_HIDE = 0 Global Const SW_SHOWNORMAL = 1 Global Const SW_SHOWMINIMIZED = 2 Global Const SW_SHOWMAXIMIZED = 3 Private Declare Function apiShowWindow Lib "user32" _ Alias "ShowWindow" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Function fSetAccessWindow(nCmdShow As Long) Dim loX As Long Dim loForm As Form Dim loReport As Report On Error Resume Next Set loForm = Screen.ActiveForm Set loReport = Screen.ActiveReport If Err <> 0 Then loX = apiShowWindow(hWndAccessApp, nCmdShow) Err.Clear End If If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Or _ nCmdShow = SW_SHOWMINIMIZED And loReport.Modal = True _ Then ' MsgBox "Cannot minimize Access with " _ ' & (loForm.Caption + " ") _ ' & "form on screen" ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Or _ nCmdShow = SW_HIDE And loForm.loReport <> True _ Then ' MsgBox "Cannot hide Access with " _ ' & (loForm.Caption + " ") _ ' & "form on screen" Else loX = apiShowWindow(hWndAccessApp, nCmdShow) End If fSetAccessWindow = (loX <> 0) End Function وفي حدث فتح التقرير كان كتبت Private Sub Report_Open(Cancel As Integer) DoCmd.Minimize DoCmd.OpenReport Me.Name, acViewPreview End Sub وفي زر فتح التقرير كتبت كود فتح التقرير بشكل عادي Private Sub Command1_Click() DoCmd.OpenReport "report1", acViewPreview End Sub والنتيجة 100% واليك المرفق و نشكر استاذنا ابوخليل على هذا hide (1).rar

اتفضل اليك Public Function AllowKeyCode(KeyCode As Integer, Shift As Integer) As Integer If KeyCode = 49 Then DoCmd.OpenForm "جدول البيع", acNormal ElseIf KeyCode = 50 Then DoCmd.OpenForm "ركود", acNormal ElseIf KeyCode = 51 Then DoCmd.OpenReport "جدول الزبائن", acViewPreview End If End Function وفي نموذج عند الضغط على الازرار في كل نماذج اللي تريد ان يعمل لك العملية فتح نماذج والتقارير اكتب Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) KeyCode = AllowKeyCode(KeyCode, Shift) End Sub وعند فتح كل نموذج اللي تريد ان يعمل لك العملية Private Sub Form_Open(Cancel As Integer) Me.KeyPreview = True End Sub واليك قاعدة بيانات بعد تعديل مبيعات نسخة 2003 (2) (1).zip

اتفضل فقط غير في اسماء النماذج في الكود Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 49 Then DoCmd.OpenForm "جدول البيع", acNormal ElseIf KeyCode = 50 Then DoCmd.OpenForm "ركود", acNormal ElseIf KeyCode = 51 Then DoCmd.OpenReport "جدول الزبائن", acViewPreview End If End Sub Private Sub Form_Open(Cancel As Integer) Me.KeyPreview = True End Sub مبيعات نسخة 2003 (2) (1).zip

استأذن من استاذنا @Gamal.Saad واستأذن من استاذي الحبيب @رمهان اتفضل القي نظرتا الى الصورة انا غيرت مصدر كومبوبوكس والكود اصبح Private Sub comb_Search_AfterUpdate() On Error Resume Next Me.Filter = "[" & (Nz(comb_Search, "رقم المستفيد")) & "]" & " Like ""*" & FindAsType & "*""": Me.FilterOn = True End Sub Private Sub txt_Search_Change() On Error Resume Next FindAsType = txt_Search.Text Me.Filter = "[" & (Nz(comb_Search, "رقم المستفيد")) & "]" & " Like ""*" & FindAsType & "*""": Me.FilterOn = True txt_Search.SetFocus txt_Search = FindAsType txt_Search.SelStart = Len(FindAsType) End Sub واليك المرفق بعد تعديل مثال .rar

اتفضل اليك هذا الحل اولا في الاستعلام انا اضفت لكل حقل حقل اخر بهذه الصيغة b1: Replace(Nz([b];"");" ";"") لكي يحذف جميع الفراغات للحقل وبعدين اضفت مربع نصي في النموذج باسم text44 وعطيت هذا الكود لمربع البحث text0 بعد تحديث Private Sub TEXT0_AfterUpdate() Me.Text44 = Replace(Nz(Me.TEXT0, ""), " ", "") End Sub وحذفت الشرط في الاستعلام من الحقول الاصلية وعطيت الشرط للحقول اللي انا عملته بدو مسافات وهذا هو الشرط Like "*" & [Forms]![FORM1]![Text44] & "*" وايضا اضفت لزر تصفير البحث هذا الكود Private Sub Command13_Click() Me![TEXT0] = Null Me![Text44] = Null Me.Requery End Sub والكود زر البحث خليت كما هو Private Sub COMMAND2_Click() Me.Requery End Sub والان اكتب النص بمسافة او بدون مسافة سيتم حذف المسافات ويبحثه اليك قاعدة بياناتك بعد تعديل b.rar

تقدرون تستخدم هذا الكود بدل الكود السابق Dim WMI As Object Dim wmiCollection As Object Dim wmiMember As Object Set WMI = GetObject("winmgmts:\\") Set wmiCollection = WMI.InstancesOf("Win32_PhysicalMedia") For Each wmiMember In wmiCollection MsgBox Trim(wmiMember.SerialNumber) Exit For Next Set wmiMember = Nothing Set wmiCollection = Nothing Set WMI = Nothing للمعلومات قم بزيارة هذه الموضوع م.2022.شفان ريكاني

اهلا بك في منتداك اتفضل استخدمت هذا الكود Private Sub Command16_Click() Dim Sql As String Sql = "UPDATE Table1 SET Table1.Holiday = IIf([Cat]<12,[Holiday]+40,[Holiday]+50);" DoCmd.SetWarnings (warningsoff) DoCmd.RunSQL (Sql) DoCmd.SetWarnings (warningson) Me.Refresh End Sub واليك المرفق بعد تعديل Udpate Total.rar م.2021.شفان ريكاني

السلام عليكم ورحمة الله وبركاته سيد @ابوبكر عبد الله هل كلا من حساب ( ابوبكر عبد الله = ابوبكر عبدالله ) اي يعني هل عندك حسابين في المنتدى ؟ هناك ملاحظة عند استخدامك الكود الاعلاه في مشاركة استاذنا ابوخليل يجب ان يكون هناك قيمة مدخلة لحقل b وبعدين تعطي قيمة لحقل a والا يجب ان تكتب الكود في حالة بعد تحديث لكلا الحقلين هذا والله يعلم م.2020.شفان ريكاني

واذا حقلين ليس متساويين انا اعطاه قيمة حقل a في كود الاسفل في الاستعلام اكتب C: iif([a] = [b];0;[a]) م.2019.شفان ريكاني

ارفق نسخة مصغرة من قاعدتک لعمل علیها م.2018.شفان ريكاني