نجوم المشاركات

وعليكم السلام اخوي خلف 🙂 اعتذر منك ، لم اقرأ السؤال بطريقة صحيحة بغض النظر ، سواء كان الكائن مربع سرد او حقل نص ، فإذا كان مضمن/مرتبط بحقل من مصدر بيانات النموذج ، فالنموذج سيضيف سجل جديد !! واذا اردت النموذج ان لا يضيف سجل بعد اختيارك من المربع ، فلا تجعله مضمن/مرتبط بحقل ، وعند حفظ السجل ، اذا اردت ان تحفظ المعلومة الموجودة في المربع ، فيجب ان تعمله في الكود (مثلا على حدث "بعد تحديث" احد الحقول الرئيسية في السجل) 🙂 واذا ارفقت مثالك ، فقد تكون هناك طرق اخرى يمكننا ان نفيدك فيها 🙂 جعفر

السلام عليكم ورحمة الله وبركاته انا كاحد من المشاركين في هذا المنتدى اعلم بأن هذا المنتدى هو منتدى تعليمي و نتبادل فيه الخبرات و نستفيد من البعض لذلك انا لا احب ان يتم المقارنة بين طريقي احد من الاعضاء لان كل واحد منهم ساعد كثير من الاعضاء اتفضل اشرح ما في جيبك و اعطي بين ايدي الاعضاء كما فعل الاعضاء الاخرين وخلي هم يأخذ ما يريدون لعل غدا تأخذ اجرك

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

قمت بتسجيل الفيديو كما طلبت وهيمت بأرسالة ألا أني راجعت مقطع الفيديو قبل أرسالة فوجدت أني تعجلت .. كانت المشكلة فعلاُ موجودة بالملف الأول قبل تعديلك الأخير لأني جربتها أكثر من مرة وفي الملف الأخير وجدتها أنه تم حلها .. تعجلت بعد أعادة الفترة الى 3 اشهر .. بأن قمت بالضغط على زر التسجيل قبل أن أعيد لصق رقم التفعيل مرة أخرى لأنه يتم تفريغ الحقل أذا كان الرقم خطاء بالنسبة بطء فتح الملف ShivanHimaye هل بسبب أني أستخدم نسخة أوفس 2016 32 عربي؟ تمنيت أن تظيف بنفسك بقية الفترات .. لأني مشغول جداً بأيجاد حل صافي راتب الموظف .. الذي أتمنى أيجاد حل لذلك وفي الأخير بارك الله فيك أستاذ @Shivan Rekany وجزيت عنا خيرا عمل ومجهود رائع

تفضل استاذى الكريم طبعا بعد اذن استاذى الكبير ابراهيم رسالة تحذير عند ادخال بيانات في عمود معين في جدول بعد ادخال نص معين.xlsm

جزاك الله خير اخي شكراا

السلام عليكم ورحمة الله استبدل الكود السابق بهذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 3 Or Target.Row < 4 Or Target.Value <> "حلب" Then Exit Sub Msg = MsgBox("هل تريد الاستمرار ؟", vbYesNo) If Msg = vbYes Then Exit Sub Else C.ClearContents End If End Sub

تسلم والله انت فخر كوردستان والعراق وانا شخصبا افتخر بك

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

اليك هذا combo.accdb

حسب فهمي لسؤالك استخدم هذا =Sum(Nz([isal];0)) db.accdb

اتفضل استخدمت like [اکتب .... ] & "*" فی الاستعلام مصدر النموذج combo 1.accdb

اخفاء النماذج والجداول والوحدة النمطية بكلمة السر ما يفيد لان هناك امكانية كسر كلمة السر لوحدات النمطية

شو عملت حتى اشتغلت بشكل صحيح عندك ؟ لكي يستفيد الجميع

لكم اخواني جزيل الشكر والعرفان الحمد لله اشتغل بشكل صحيح ... تقبلوا تحياتي

السلام عليكم ورحمة الله ضع هذا الكود فى حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 3 Or Target.Row < 4 Then Exit Sub Dim C As Range, CList As Range Dim Msg As String Set CList = Range("C4:C" & Range("A" & Rows.Count).End(xlUp).Row) For Each C In CList If C.Value = "حلب" Then Msg = MsgBox("هل تريد الاستمرار ؟", vbYesNo) If Msg = vbYes Then Exit Sub Else C.ClearContents End If End If Next End Sub

وعليكم السلام وهذه طريقتي 🙂 نعمل استعلام لجمع الفواتير المدفوعة ، ثم نربط الاستعلامين ، ونأخذ جميع الفواتر من الاستعلام الاصل . والنتيجة: . جعفر 985.PROGRMS.accdb.zip

استاذي الفاضل شفان ريكاني لساني يعجز عن الشكر فعلا هذا ما اريده بالظبط مشاء الله عليك

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

تم استبدال

في شاشة استعلام الفواتير الاجمالي يساوي 380 هل تريد ان يكون في نموذج شاشة سداد الفواتير ايضا يطلع 380 اذا نعم اضف Sum فی هذا السطر الاسفل سيكون هكذا Me.TT1 = DLookup("sum([item_Sum])", "Q_111", "[id_fatora]='" & Me.fatora_no & "'") PROGRMS_Super Market 0801102018.rar

ان شاء الله ساخبر الادارة المنتدى باستبدال الملفات ... الان ليس بمقدوري ان ابدله لذا سانتظر حتى اتصل باحد من الادارة المنتدى

تم انا جربت وليس هناك مشكلة القي نظرتا الى الصور و لستة اشهر نعم وكان خطأ من عندي في مصدر كومبوبوكس لمدة التفعيل في كلا الملفين انا كتبت 265 بدل ان اكتب 365 وتم تصحيح هذا الخطأ وقريبا ساضع بين ايديكم في نفس المشاركة الاكواد كان هناك موضوع اخر انا عملت عن الحماية واستخدمت DLookUp اکثر من ثلاث مرات لكن هنا انا استخدمت مرة واحدة لا اظن ان يبطئ العمل وعندي هذا المشكلة غير موجودة ! لا اعرف ماذا اقول لك !! انها سهل جدا وحاول ان تضيفه عدد سنوات حسب رغبتك , انا فتحت هذا الموضوع لكي يسهل عليكم لكي تعرف الطريقة اذا تتم التسجيل في اي فترات من الترات الموجودة سيتم اظهار الرسالة اذا قرب من انهاء الفترة التسجيل ب 15 يوم او اقل من ذلك

الكود يعمل جيدا item_Sum: Sum(Nz([Qote_item])*Nz([item_prais])) انظر الاستعلام ( استعلام 1 ) PROGRMS_Super Market 0801102018.rar تحياتي

السلام عليكم ورحمة الله وبركاته اخي الكريم اولاً بالنسبة لجمع الوقت فالامر يختلف عن جمع عددين فيجب تحويل الساعات الى دقائق ثم جمعها ثم تحويلها الى ساعات ودقائق مثال لجمع الوقت لحقل ( مدة العمل ) =CLng(24*60*CDate([TimW])) تحياتي

السلام عليكم ما قام به ابو هادي موجود و موثق وله بالتأكيد فضل السبق، ولا ينقص منه وجود دالة جديدة سواء كانت جديدة فعليا او قد تم بناءها إنطلاقا من جهده. و الرجل قدم الكثير فى هذا المجال و غيره و لا يحتاج منى أو مني غيري لاثبات تميزه و عطاؤه . حاله كحال الكثيرين ممن غابوا عنا دون ضجة. لو كنت ممن يستخدمون تقويم ام القري بالتأكيد كنت ساتحمس لعمل المقارنة من حيث الهيكل و اسلوب الكود و أداء الدالة ككل ، و لكن عن نفسي لا استخدم التقويم و بالتالي الموضوع نقسه خارج مجال اهتمامي الشخصي حتى كما تلاحظون اني لم اشارك فى الموضوع الأصلي على الرغم من تواجدى الكثيف وقتها.و للاسف ليس لدي الوقت للقيام بذلك حاليا كترتيب لاولوياتي.و صراحة لا اجد فائدة فى ان أمضي الوقت فى محاولة اثبات او نفي علاقة العملين ببعضهما خصوصا و أن طرفي الخلاف قد لا يقبلا بحكمي فندخل فى دائرة جديدة من النقاش. من ناجية أخى أخونا أبو الحارث تعرفنا اليه فقط عند طرح هذا الموضوع على الرغم من تواجده منذ فترة طويلة فى المجال ، فنرحب به بيننا و نتمني ان نراه مشاركا فاعلا فى افادة الاخرين. أخونا Accessna أيضا غائب عن المشاركة منذ سنوات و عاد ايضا مع طرح الموضوع فمرحبا بعودته. ما ذا تلاحظون فى الجمل السابقة ؟ الاجابة اننا نتحدث عن معرفات الاخوة على الانترنت و لا نعرف من يكونون حقيقة، و هذا لا ضير فيه اذا كنا نتعاون او نتبادل المعلومات، أما عند الخلاف و الحقوق و طلب الفصل فلا أري أنه وضع مناسب. اعتذر مرة اخرى عن طلبكم الفصل فى الامر و اترك ذلك لمن يرغب من الاخوة هذه وجهة نظري و للجميع الحق فى الاتفاق او الاختلاف معها. قد تفضلتم بعرض وجهتي النظر و ساضيف ايضا موديول أبو هادي لنفس الموضوع فى المشاركة الأولى كي يمكن لمن يرغب من الأخوة ابداء رأيه اذا إراد فعلى حد علمي الموضوع مهم لعدد كبير من الأخوة الفاعلين فى الموقع ، و لكن أذكر الجميع بضرورة مراعاة الحوار الموضوعى و الا سيتم الغاء أى ردود بها تجاوز. و اذا تيسر الامر و قمت بالمراجعة ساقوم ايضا بالمشاركة اذا كان الحوار يسير فى الاتجاه الصحيح من حيث التحليل الفني.

سؤال : هل نسخت وحدة النمطية حتى عطيتك ذلك الرسالة ؟ لان لدي ما في مشكلة ولكن بعد حذف الوحدة النمطية بيعطيني نفس الرسالة

السلام عليكم وانا كذلك ، البرنامج عندي شغال 🙂 واليك طريقة اخرى ، مشابهة لطريقة اخي kanory 🙂 في النموذج ، وعلى حدث "فتح النموذج" اكتب هذا الكود: Private Sub Form_Open(Cancel As Integer) str_Title = "الرقم السري مطلوب" str_Prompt = "ادخل الرقم السري" If InputBoxDK(str_Prompt, str_Title) = DLookup("[Pass]", "Pass", "[Pass]") Then MsgBox "الرقم السري صحيح", , "تفضل بالدخول" 'DoCmd.Close DoCmd.OpenForm "employees_F", acNormal Else MsgBox "الرقم السري خاطىء", , "لا يمكنك الدخول" DoCmd.CancelEvent End If End Sub . والذي ينادي الوحدة النمطية: Option Compare Database Option Explicit '-------------------------------------------------------------------- ' ' Copyright 1996-2013 J Street Technology, Inc. ' www.JStreetTech.com ' ' This code may be used and distributed as part of your application ' provided that all comments remain intact. ' ' J Street Technology offers this code "as is" and does not assume ' any liability for bugs or problems with any of the code. In ' addition, we do not provide free technical support for this code. ' ' Code for Password-masked InputBox was originally written by ' Daniel Klann in March 2003 and has been adapted & updaed for 64-bit ' compatiblity '-------------------------------------------------------------------- 'Revised Type Declare for compatability with NT 'Re-revised for 64-bit compatibility #If VBA7 Then Type tagOPENFILENAME lStructSize As Long hwndOwner As LongPtr hInstance As LongPtr lpstrFilter As String lpstrCustomFilter As Long nMaxCustFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String Flags As Long nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCustData As LongPtr lpfnHook As LongPtr lpTemplateName As Long End Type Private Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" _ Alias "GetOpenFileNameA" (OPENFILENAME As tagOPENFILENAME) As Boolean 'APIs for Password-masked Inputbox Private Declare PtrSafe Function CallNextHookEx Lib "user32" ( _ ByVal hHook As LongPtr, _ ByVal ncode As Long, _ ByVal wParam As LongPtr, _ lParam As Any _ ) As LongPtr Private Declare PtrSafe Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" ( _ ByVal lpModuleName As String _ ) As LongPtr Private Declare PtrSafe Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" ( _ ByVal idHook As Long, _ ByVal lpfn As LongPtr, _ ByVal hmod As LongPtr, _ ByVal dwThreadID As Long _ ) As LongPtr Private Declare PtrSafe Function UnhookWindowsHookEx Lib "user32" ( _ ByVal hHook As LongPtr _ ) As Long Private Declare PtrSafe Function SendDlgItemMessage Lib "user32" Alias "SendDlgItemMessageA" ( _ ByVal hDlg As LongPtr, _ ByVal nIDDlgItem As Long, _ ByVal wMsg As Long, _ ByVal wParam As LongPtr, _ ByVal lParam As LongPtr _ ) As LongPtr Private Declare PtrSafe Function GetClassName Lib "user32" Alias "GetClassNameA" ( _ ByVal hwnd As LongPtr, _ ByVal lpClassName As String, _ ByVal nMaxCount As Long _ ) As Long Private Declare PtrSafe Function GetCurrentThreadId Lib "kernel32" () As Long Private hHook As LongPtr #Else Type tagOPENFILENAME lStructSize As Long hwndOwner As Long hInstance As Long lpstrFilter As String lpstrCustomFilter As Long nMaxCustFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String Flags As Long nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCustData As Long lpfnHook As Long lpTemplateName As Long End Type Private Declare Function GetOpenFileName Lib "comdlg32.dll" _ Alias "GetOpenFileNameA" (OPENFILENAME As tagOPENFILENAME) As Long 'APIs for Password-masked Inputbox Private Declare Function CallNextHookEx Lib "user32" ( _ ByVal hHook As Long, _ ByVal ncode As Long, _ ByVal wParam As Long, _ lParam As Any _ ) As Long Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" ( _ ByVal lpModuleName As String _ ) As Long Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" ( _ ByVal idHook As Long, _ ByVal lpfn As Long, _ ByVal hmod As Long, _ ByVal dwThreadID As Long _ ) As Long Private Declare Function UnhookWindowsHookEx Lib "user32" ( _ ByVal hHook As Long _ ) As Long Private Declare Function SendDlgItemMessage Lib "user32" Alias "SendDlgItemMessageA" ( _ ByVal hDlg As Long, _ ByVal nIDDlgItem As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ ByVal lParam As Long _ ) As Long Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" ( _ ByVal hwnd As Long, _ ByVal lpClassName As String, _ ByVal nMaxCount As Long _ ) As Long Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long Private hHook As Long #End If 'Constants used by Password-masked Inputbox Private Const EM_SETPASSWORDCHAR As Long = &HCC Private Const WH_CBT As Long = 5 Private Const HCBT_ACTIVATE As Long = 5 Private Const HC_ACTION As Long = 0 #If VBA7 Then Private Function InputBoxPasswordMaskProc( _ ByVal lngCode As Long, _ ByVal wParam As LongPtr, _ ByVal lParam As LongPtr _ ) As LongPtr #Else Private Function InputBoxPasswordMaskProc( _ ByVal lngCode As Long, _ ByVal wParam As Long, _ ByVal lParam As Long _ ) As Long #End If 'DO NOT PUT IN VBA ERROR HANDLING 'This is a Windows procedure called by Message loop. On Error Resume Next 'Originally written by Daniel Klann 'Updated for 64-bit compatibility Dim RetVal Dim strClassName As String Dim lngBuffer As Long If lngCode < HC_ACTION Then InputBoxPasswordMaskProc = CallNextHookEx(hHook, lngCode, wParam, lParam) Exit Function End If strClassName = String$(256, " ") lngBuffer = 255 If lngCode = HCBT_ACTIVATE Then 'A window has been activated RetVal = GetClassName(wParam, strClassName, lngBuffer) If Left$(strClassName, RetVal) = "#32770" Then 'Class name of the Inputbox 'This changes the edit control so that it display the password character *. 'You can change the Asc("*") as you please. SendDlgItemMessage wParam, &H1324, EM_SETPASSWORDCHAR, Asc("*"), &H0 End If End If 'This line will ensure that any other hooks that may be in place are 'called correctly. CallNextHookEx hHook, lngCode, wParam, lParam End Function 'Private Function InputBoxDK( _ Function InputBoxDK( _ Prompt, _ Optional Title, _ Optional Default, _ Optional XPos, _ Optional YPos, _ Optional HelpFile, _ Optional Context _ ) As String 'Originally written by Daniel Klann 'Updated for 64-bit compatibility 'Replicate the functionality of Inputbox function 'while providing password masking. #If VBA7 Then Dim lngModHwnd As LongPtr #Else Dim lngModHwnd As Long #End If Dim lngThreadID As Long On Error GoTo ErrHandler lngThreadID = GetCurrentThreadId lngModHwnd = GetModuleHandle(vbNullString) hHook = SetWindowsHookEx(WH_CBT, AddressOf InputBoxPasswordMaskProc, lngModHwnd, lngThreadID) InputBoxDK = InputBox(Prompt, Title, Default, XPos, YPos, HelpFile, Context) UnhookWindowsHookEx hHook ExitProc: On Error Resume Next Exit Function ErrHandler: Select Case Err.Number Case Else VBA.MsgBox "Error " & Err.Number & " (" & Err.Description & ")" End Select Resume ExitProc Resume 'for Debugging End Function 'Hope someone can use it! . جعفر 983.password.accdb.zip

البرنامج شغال لدي .... جربه على جهاز اخر

اخى الكريم حل ملك المعادلات يفى ويزيد عن ماطلبت ولاثراء الموضوع هذا ماكرو مربوط ب advancedfilter وحل ب pivottable وهذا ما افضله لك . حاول تتعلمه سيفيدك فى عملك وخصوصا فى التقارير والملخالصات والرسوم البيانيه كما ان حجمه صغير وخفيف ... من الاخر ممتاز تحياتى نقل البيانات بدون تكرار.rar

إليك أخى المطلوب وفقا لأوفيس 2003 وأوفيس 2007 تقبل تحياتى نقل البيانات بدون تكرار ومرتبة أبجديا OFFICE 2003.rar نقل البيانات بدون تكرار ومرتبة أبجديا OFFICE 2007.rar

أخى الحبيب " ياسر " أسف على التأخير لإنى فعلا مشغول جدا ، بالإضافة لإنى قليل التواجد فى المنتدى حاليا ، بالإضافة أن أساتذة المنتدى قاموا بالواجب وأكثر وعلى رأسهم الأستاذ " سليم " ومعادلتة الرائعة والبسيطة وفعلا أخى سبب مشكلة المعادلة هى إنها معادلة صفيف أى لابد من الضغط على " ctrl+shift+enter " معا حتى تأتى بقيمها بشكل صحيح أما الترتيب الأبجدى فقد تم عمل تعديل بسيط فى المعادلة السابقة لتلائم طلب الأستاذ " قصى " وبالتالى هى معادلة " صفيف " أيضا وهذا هو المرفق الجديد به تعديل للمعادلة الأولى وطلب أخى " قصى " تقبلوا تحياتى المكرر.rar

أخي الكريم // وعلي ما قد فهمي لطلبك وبعد اذن اخي واستاذي // عبدالله باقشير " بارك الله فيه وجزاه خيرا " لان الفورم من ابدعاته قمت بتعديل بسيط علي الفورم باضافة كمبو بوكس لاختيار ورقة العمل مباشرة من الفورم التطبيق بالمرفقات فورم ادخال و تعديل مرن.rar