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

شكرا جرب هذا الكود بدل السابق : Public RowID As Integer Public RowVal As Double Function Add_5(N) 'N = vol ' If Len(RowID & "") = 0 Or RowID = 0 Then RowID = RowID + 1 ' End If If RowID = 1 Then Add_5 = N Else 'Add_5 = N + RowVal + 5 Add_5 = RowVal + 5 End If RowVal = Add_5 End Function جعفر

بالفعل الملفات ليست تالفه ولكنها مشفرة ويصعب فك تشفيرها بدون وجود شهادة نظام التشفير وانت قمت بازالة النسخة وتنصيبها مره اخرى الشرح داخل الرابط التالي http://windows.microsoft.com/ar-xm/windows/encrypt-decrypt-folder-file#1TC=windows-7 ويوجد بعض البرامج التي تقوم بفك مثل هذا النوع من التشفير ولكن لا اعرف مدى فاعليتها معك سأبحث لك عن بعض البرامج

بسم الله الرحمن الرحيم الحمد لله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه إخوتي ...أحبتي الكرام وأساتذتي الأجلاء السلام عليكم ورحمة الله وبركاته اعترافاً بفضلكم وجهودكم المتواصلة في إيصال المعلومة الصحيحة والعلم النافع أقدم تجربة في إعداد برنامج مخازن جمعت به من كل بستان زهرة نهلت من علمكم وقد رأيت دروساً للأستاذ الكريم عماد غازي فطبقتها في محاولة صنع برنامج لا يصل إلى غبار علمكم فلكم السبق في كل شيء وكذلك نسخت أكواد شاشة البداية من أستاذي الصقر (لا يوجد جديد إلا محاولتي إعداد برنامج فلا تؤاخذونني على التقليد الذي لا أعتبره كذلك)... أرجو أن أكون قد خطوت خطوة إلى الأمام...راجياً منكم إبداء آرائكم به علماً أنني اعتمدت الجداول بدلاً من النطاقات وقد تكون نقطة ضعف لدي اسم المستخدم :admin كلمة المرور: 123 حماية الأوراق داخل المصنف دون كلمة مرور والسلام عليكم. ملاحظة: يرجى توجيهي نحو كل خطأ أو تقصير لاستدراكه برنامج المخازن.xlsm

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

بسم الله الرحمن الرحيم له الجلال والتعظيم بلغ نبيه الكريم و خلق الانسان في تقويم و أعطاه عقلا في تكريم و جعل له الخير العميم و الصلاة على المصطفى مصحوبة بالتسليم من هدانا الله بفضله إلى الصراط المستقيم وجعل التقوى بالفؤاد تقيم و الرضا على كل صحابي كريم و سبحان اللذي جعل التحليل و التحريم وأسكن الأبرار و الأخيار في النعيم و حشر الفجار العصاة في الجحيم . و الحمد لله اللذي أحيى في الأجداث الرميم سبحانه أغنى الفقير و أشفى السقيم أراح المكروب من وصبه وكفل اليتيم و أنشأ النطفة علقة في الرحم العقيم من أمشى الفطيم و جعل الأعمى بصيرا و الأبكم كليم هو ربي خالقي فاطري وهو أعلم عليم اللهم لا تجعلني لهذا الدين خصيم و لا تخرجني من الدنيا عديم و لا تبليني بفتنة أو شر النفس أو وسوسة الرجيم أستودعك قلبي وروحي و نفسي يا حليم اما بعد احبتي: اليوم سنتعلم كيفية فك حماية ملفات الxlsm & xlsb الطريقة طويلة بعض الشئ وكنت انتظر حتى اجد تسهيل لها ولكن لم يسعفني الوقت للبحث في هذا الموضوع وبعد طلب بعض الاخوة طريقة الفك لهذه الملفات قررت ان اضع الشرح بالطريقة المفصلة لحين ايجاد طريقة مختصرة باذن الله اولا نقوم بتحميل هذا البرنامج http://www.handshake.de/user/chmaas/delphi/download/xvi32_254.zip وهو برنامج الهيكس HEX وهو للتعديل علي معظم البرامج وله استخدامات كثيرة يهمنا منها التعديل على نظام حماية الملف فقط ونتابع شرح الفيديو المرفق ملحوظة الشرح مطبق على امتداد Xlsm وبنفس الطريقة يتم التطبيق على Xlsb واعذروني على سرعة الشرح وعدم وجود صوت لاني بالعمل شرح سريع بالصور مع تحياتي ياسر العربي yasser.rar

السلام عليكم و رحمة الله و بركاته الاخوة الاحباب بالمنتدى اولاً : اريد ان اشكر كل من استعنت بخبراتهم من اخواني بالمنتدى و اخواني خارج المنتدى ( جزاكم الله عني خير الجزاء ) .... ثانياً : أقدم اليكم برنامج لاذون صرف ادويه من صيدليات المستشفيات - الاصدار الرابع بتعديلات بسيطه على الاصدار السابق قبل تشغيل البرنامج : اولاً : قم بتشغيل ملف Setup حسب نسخة الاوفيس المثبته على جهازك سواء اوفيس 2003 او 2007 او 2010 ثانياً : قم باضافة المرفقات الموجوده في ملف add على المسارات الموجوده بنفس الملف * يجب وضع ملف البرنامج في القسم C او D او E و على صفحة القسم مباشرة دون وضع ملف البرنامج في ملف آخر * يتم استيراد قائمة الادويه من الملف Medicine الذي تجده بجوار ملف الاكسل باسم Pharmacy ملاحظه : في حال عدم ظهور فورم FIRST TIME - ( فورم الظهور لأول مره لاستخدام البرنامج ) و الذي يتم من خلاله تحضير الملفات المساعده .. يرجى الضغط على زرار ( انشاء الملفات المساعده و ملف استيراد البيانات ) ============================================================ كلمة المرور ل Administrator المدير : 111 كلمة المرور ل Full Control In Program تحكم كامل بالبرنامج : 222 كلمة المرور ل Import Data استيراد بيانات : ABC كلمة المرور ل Delete all data - Reset Program حذف كافة البيانات - استعادة ضبط البرنامج كبرنامج جديد : YOUSEF ============================================================ و أسأل الله العلى العظيم أن ينفعكم بهذا العمل و الله الموفق والمستعان و السلام عليكم ورحمة الله و بركاته Pharmacy.rar

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

السلام عليكم ورحمة الله وبركاتة اخوتى واحبتى فى الله كل عام وأنتم بخير وصحة وسلامة أدامهم الله عليكم وعلينا جميعا اليوم ان شاء الله تم الانتهاء من كارت الصنف الاصدارة المعدلة لأن النسخة السابقة كانت بطيئة وتمت تجربتها من قبل احد الاخوة وتم اعلامى وغير معقول ان تكون زكية وهى بطيئة ............؟؟؟؟؟؟؟؟؟ واليكم الرابط لمن يريد تحميلة http://www.officena.net/ib/index.php?showtopic=49408&hl= الحمد لله تم تجربة النسخة المعدلة واثبتت الكفاءة والسرعة ان شاء الله ولكنى انتظر اختباركم لها واعلامى عنها وعن التقارير التى بها فهى تحتوى على 2 تقرير التقرير الاول لأجمالى حركات الصنف خلال العام بشيت TotRep التقرير الثانى لتفاصيل حركة الصنف خلال شهر بشيت MonRep تم بحمد الله تكملة ترحيل باقى البنود رقم الاذن رقم الفاتورة + المرتجع ,كود المورد واسمة كود المندوب واسمة + صنف براحتك مفتوح الاضافات ولكن على قد اكسيل مطلوب تقييم التقارير ومدى اهميتها وهل توجد تقارير افضل من ذلك ام لا وهل هى تفى بالغرض ام لا ؟؟؟؟؟؟؟؟؟ واخذت فى الاعتبار حين الانشاء ثلاث اوجة نظر وهى على الترتيب 1- محاسب او امين المخزن الذى سيعمل على الملف ( سهل وسريع وبسيط ) 2- المحاسب الذى سيتولى مراجعتة ( سهل وبسيط ودقيق ) 3- المراجع والتقارير التى يحتاج أليها حتى يتأكد من سلامة النظام والتأكد من الارصدة خلال فترات محددة ( سهل وبسيط ودقيق ويحتوى على عدة تقارير لمطابقة ارصدة الصنف ) بالنسبة للعجز والزيادة الهلك والفاقد المهدر والكسر لم يتم التعرض لها بهذة الاصدارة ويمكن معالجتها محاسبيا بعمل حساب لها سواء مورد للزيادة او مندوب للصرف واخذها فى الاعتبارعند الجرد وهذا للضرورة القصوى تم انشاء نسخة اخرى تحتوى على تقارير اكثر ولكنها فى النهاية تصب فى نفس الهدف وادت الى ثقل ( بطئ ) الملف + كبر حجمة فقمت بألغائها ولكنها كانت اشمل واوفر اسهل بمعنى كان هناك تقرير بأسم YeaRep التقرير السنوى يتم تحديثة تلقائيا من الداتا المدخلة ايضا تقرير بأسم ThroPeriodRep تقرير خلال فترة زمنية محددة يتم عملة بتحديد تاريخ بداية وتاريخ نهاية ........!!!!!!!!!!!! انهما تقريران فعلا رائعان جدا جدا جدا ولكن للأسف لم تحضر معى افكارالمعادلات والوقت اللذان يكفيان لتنفيذ هذان التقريران هما او واحد منهم يغنى عن باقى التقارير وان كنت افضل التقرير ( ThroPeriodRep تقرير خلال فترة زمنية محددة ) مع التقريرالأجمالى حركات الصنف خلال العام بشيت TotRep لذا ارجو تجربة المرفق المرفق الاول بة التقريران الاوائل واخبرونى عن سرعتة واداءة اما المرفق الثانى ثقيل وبطىء وكبير الحجم ولم يكتمل ارجو ايضا تجربتة ومحاولة اكمال التقرير الثالث YeaRep التقرير السنوى والتقرير الرابع ThroPeriodRep تقرير خلال فترة زمنية محددة وحينها يمكننا ان نختار من يبقى ومن يذهب حتى تعود السرعة للملف وياحبذا ان كان التقرير الاول الاجمالى مع الرابع خلال فترة زمنية محددة وكل عام وانتم بخير وصحة وسلامة ان شاء الله دائمين عليكم معذرة شكرا لجميع اعضاء هذا الصرح العظيم واخص منهم من تعملت منهم كثيرا وكانت ملفاتهم ملهمى لفهم معالات كثيرة ودسمة استاتذتى ومعلمى الكبار الذين اتشرف ان أتتلمذ على يدهم بهذا الصرح العلامة المهندس / طارق محمود والرائع دائما العلامة استاذى / بن علية حاجى وملك المعالات / جمال عبد السميع بارك الله فيكم وتقبلوا فائق تحياتى كارته مخزن 3 المعدلة تقريران.rar كارته مخزن 3 اربعة تقارير.rar

السلام عليكم 1. من المعروف ان تنسيق النص في مربع القائمة ListBox هو من اليسار الى اليمين ، مشكلة كانت تصادفني دائما ، وهو تنسيق القيم في مربع القائمة لتكون من اليمين الى اليسار بالنسبة للغة العربية (طريقة تغيير مربع القائمة الى مربع تحرير ونص ، ثم عمل التنسيق عليه من اليمين الى اليسار ، ثم اعادته الى مربع قائمة لا يعمل معظم الوقت) ، موقع http://www.lebans.com والذي يحتوي على مالذ وطاب عنده طريقه لهذا التنسيق: http://www.lebans.com/justicombo.htm كذلك. 2. ونفس المشكلة مع موضوع تنسيق الشجرة TreeView من اليمين الى اليسار. النتيجة: و وطريقة العمل ، يوضع هذا الكود في وحدة نمطية: Option Compare Database Option Explicit #If VBA7 And Win64 Then '64 bits Public Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long Public Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare PtrSafe Function InvalidateRect Lib "user32" (ByVal hwnd As LongPtr, lpRect As Long, ByVal bErase As Long) As Long Public Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr Public Declare PtrSafe Function GetFocus Lib "user32" () As LongPtr Public Declare PtrSafe Function GetWindow Lib "user32" (ByVal hwnd As LongPtr, ByVal wCmd As Long) As LongPtr Dim hwnd As LongPtr #Else '32 bits Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As Long, ByVal bErase As Long) As Long Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Public Declare Function GetFocus Lib "user32" () As Long Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long Dim hwnd As Long #End If Public Const GW_CHILD = 5 Public Const WS_EX_LAYOUTRTL = &H400000 Public Const GWL_EXSTYLE = (-20) Function RTL_Set(frm As Form, ctl As Control) Dim varHwnd As Variant Dim OldLong As Long frm.SetFocus ctl.SetFocus varHwnd = GetFocus() OldLong = GetWindowLong(varHwnd, GWL_EXSTYLE) SetWindowLong varHwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL InvalidateRect hwnd, 0, False End Function Function RTL_SetTree(frm As Form, ctl As Control) Dim OldLong As Long OldLong = GetWindowLong(ctl.hwnd, GWL_EXSTYLE) SetWindowLong ctl.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL InvalidateRect hwnd, 0, False End Function ' ' From http://www.microsoft.com/middleeast/msdn/faq.aspx ' 'Place OnLoad of the Form ' Dim OldLong As Long 'For Form ' OldLong = GetWindowLong(Me.hwnd, GWL_EXSTYLE) ' SetWindowLong Me.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For List ' OldLong = GetWindowLong(List1.hwnd, GWL_EXSTYLE) ' SetWindowLong List1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For The StatusBar ' OldLong = GetWindowLong(StatusBar1.hwnd, GWL_EXSTYLE) ' SetWindowLong StatusBar1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For TreeView ' Dim nodX As Node ' Set nodX = TreeView1.Nodes.Add(, , "R", "Root") ' Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C1", "Child 1") ' Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C2", "Child 2") ' Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C3", "Child 3") ' Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C4", "Child 4") ' nodX.EnsureVisible ' OldLong = GetWindowLong(TreeView1.hwnd, GWL_EXSTYLE) ' SetWindowLong TreeView1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For ListView ' OldLong = GetWindowLong(ListView1.hwnd, GWL_EXSTYLE) ' SetWindowLong ListView1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For ProgressBar ' ProgressBar1.Value = 50 ' OldLong = GetWindowLong(ProgressBar1.hwnd, GWL_EXSTYLE) ' SetWindowLong ProgressBar1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For ToolBar ' mhwnd = GetWindow(Toolbar1.hwnd, GW_CHILD) ' OldLong = GetWindowLong(mhwnd, GWL_EXSTYLE) ' SetWindowLong mhwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False في اسفل الكود انا تركت الكود لبقية الاشياء اللي يمكن عملها من اليمين الى اليسار. اما تنفيذ التنسيق لمربع القائمة ، فهو وضع هذا الكود عند تحميل النموذج الذي يحتوي على هذا المربع (وهنا اسم حقل مربع القائمة هو List0_RTL ) : 'ListBox RTL Call RTL_Set(Me, List0_RTL) وتنسيق الشجرة ، فهو وضع هذا الكود عند تحميل النموذج الذي يحتوي على الشجرة (وهنا اسم الشجرة هو TreeView1) : 'TreeView RTL Call RTL_SetTree(Me, TreeView1) وللأمانة العلمية ، فاني استخدم قاعدة البيانات التي وضعها الاخ محمد في الرابط: http://www.officena.net/ib/index.php?showtopic=60781 جعفر تعديل 1: 18-11-2021 ، جعل البرنامج يعمل على النواتين 32بت و 64 بت 54.RTL_TreeView_ListBox_32bits_n_64bits.accdb.zip

حبيبى ابويوسف عمل ممتاز بارك الله فيك

شكرا لك أخي علي ربي يبارك فيك

لا يمكن عمل الاثنين معا!! 1. اذا بمجرد فتح النموذج ، معناه ان النموذج يكون في حالة "ادخال بيانات" ، فعليه يمكن نقل الكود الى حدث "عند فتح النموذج" ، واذا عملت هذا الشئ ، فمعناه ان الرقم سيكون موجود في النموذج لما يفتح مباشرة ، وانت بعدك ما ادخلت شئ ، ولا حتى الاسم!! 2. اما اذا ما تريد الرقم عند فتح النموذج ، فتقدر تخلّي الكود على حدث "بعد التحديث" لحقل "رقم الهوية" ، اي بعد ان يتم ادخال البيانات في آخر حقل في النموذج. وفي كل الحالتين اعلاه ، البيانات اللي في النموذج ، لن تُحفظ في الجدول إلا بعد ان تنتقل من السجل الذي انت عليه ، سواء بالانتقال الى السجل آخر ، او بإغلاق النموذج. عندما تُدخل بيانات او تُغيرها سواء في نموذج او جدول ، ترى العلامة التي في الدائرة الحمراء (قلم) ، والتي تعني ان السجل غير محفوظ بعد: . واذا اردت ان تلغي جميع ما عملت في هذا السجل ، فعليك الضغط على الزر Esc (على لوحة المفاتيح) مرتين. اما اذا انتقلت الى سجل آخر سواء في نموذج او جدول ، فسترى العلامة التي في الدائرة الحمراء (مثلث) ، والتي تعني ان السجل محفوظ: . وانت الآن عندك الكود ، فغيّر مكانه للمكان اللي يريحك 3. اما اذا اردت الاثنين ، فهذا معناه انه يجب ان يكون نموذجك غير مضمن ، ولا الحقول ، وانك بالكود تجلب البيانات للنموذج ، وبالكود تحفظ البيانات للجدول جعفر

السلام عليكم تمام 100 % - احسنت - جزيت خيرا

تفضل اخي عسى ان اكون قد وفقت في المطلوب 1طبع الكتاب من داخل الفورم.rar

السّلام عليكم و رحمة الله و بركاته أخي الكريم Companyman يُرجى الالتزام بما ذكره لك الأخ الغالي "ياسر العربي" و الذي بالمناسبة أحييه على على ما يبذله من جهد جهيد لإنارة دربنا التّعليمي و بعد إذن سيّدي القدير "ياسر العربي" .. أردت فقط الإشارة للأخ الكريم فيما يخص النّقطة الأخيرة و هي إمكانية التّحديد في ROWSOURCE بهذا الشّكل مثلاً ..إنتبه بدون نقطتين فوق بعضهما Feuil1!F11:F20 Feuil2!F11:F20 Feuil3!F11:F20 أو بوضع الكود باليوزرفوم مباشرة ..هكذا .. Private Sub UserForm_Activate() ComboBox1.RowSource = "Feuil3!F11: F20" End Sub فائق إحتراماتي

السلام عليكم هذا الاستعلام ، ونرسل قيمة الحقلين t و close الى الوحدة النمطية add_3 . والنتيجة: . وهذا كود الوحدة النمطية: Public RowID As Integer Public RowVal_1 As Double Public RowVal_2 As Double Public RowVal_3 As Double Function Add_3(T, N) 'T = ticker 'N = close If T = 1 Then RowVal_1 = N RowVal_2 = 0 RowVal_3 = 0 ElseIf T = 2 Then RowVal_2 = N RowVal_3 = 0 ElseIf T = 3 Then RowVal_3 = N Else RowVal_1 = RowVal_2 RowVal_2 = RowVal_3 RowVal_3 = N End If If T = 1 Then Add_3 = 0 ElseIf T = 2 Then Add_3 = 0 Else Add_3 = RowVal_1 + RowVal_2 + RowVal_3 End If End Function جعفر 256.Database2.accdb.zip

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

ولو أنا تقاربنا لكنَّا --- إلى العلياء دوماً في تسامي ولكنـا تجافينا فكـ --- ـان البعد منا في تنامي

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

تفضل استخدم زر النموذج Form1 للحصول على نتائج الاستعلام . والنتيجة: . هذه الوحدة النمطية Add_5 والتي تقوم بالعمل للإستعلام: Public RowID As Integer Public RowVal As Integer Function Add_5(N) 'N = vol If Len(RowID & "") = 0 Then RowID = RowID + 1 End If If RowID = 1 Then Add_5 = N Else Add_5 = N + RowVal End If RowVal = Add_5 End Function . ولكن لكي تعمل بالطريقة الصحيحة ، يجب ان نشغل الاستعلام من زر النموذج Form1 ، وحدث الرز (يعني اذا شغّلت الاستعلام مباشرة ، ستحصل على نتائج غلط): Private Sub cmd_fAdd_5_Click() RowID = 0 RowVal = 0 DoCmd.OpenQuery "Query1" End Sub جعفر 256.1.Database2.accdb.zip

تفضل طريقة ازالة التشفير ونشيل اللون الاخضر ياريت تنفع معاك yasser.rar

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

وللتعاون مع اخى ياسر فى ايجاد حل لك لا داعى لتغير النسخه من اجل الداونلود مانجر ودور على ملف تفعيل له اعلم انك تشتغل على اوفبس ٢٠٠٧ لانك ذكرتها بالمساركه الاولى ولكننى اسال هل تم انشاء هذا الملف على نسخة اوفيس كام وما كان نوع الاصدار هل ٣٢ ولا ٦٤ وكذلك نسخة الويندوز القديمة هل كانت ٣٢ ولا ٦٤ والتى تعمل الان هل هى نفس النسخه القديمه ام غيرتها والا يوجد طريقه لرفع نسخه من ملفك غير الدخول على جهازك بالتوفيق اخى

السلام عليكم ورحمة الله وبركاته أخي الكريم محمود الشريف أكرمك الله بالدارين وجزاكم الله خيراً أتعلم منكم وما شاركت به إلا لأتعلم من أساتذتي الأجلاء الذين أفتخر بأنني طالب عندهم أفعل إن شاء الله تعالى... مروركم عطر وكلامكم طيب والسلام عليكم السلام عليكم ورحمة الله وبركاته أخي الكريم محمود الشريف تم التعديل المطلوب في المشاركة الأولى تقبل تحياتي العطرة

أخى الكريم // محمد حسن المحمد بارك الله فيكم ، وجعل كل ما تقدموه من جهد فى ميزان حسناتكم وأستأذنك فى ملاحظة سريعة لأنى لم أفحص كامل الملف المعادلة الخاصة بالتكويد لا تعمل بالشكل المناسب يرجى استبدالها للمعادلة التالية =IF(C6="";"";SUBTOTAL(3;C$6:C6)) حتى لا تتأثر الخلية التالية بالخلية التى تسبقها وتقبل منى وافر الاحترام والتقدير

أنا مجرب من غير ما تقول تأكد من أن ملفات الريجسترى فى نفس مسار ملف الاكسل يعنى معاه أو جنبه داخل مجلد واحد

رائع ... بارك الله فيك .... يرجي زيادة عدد الأصناف في شاشة تكويد الصنف إلى 1500 صنف

شكرا للمهندس المبدع الاستاذ الدكتور ياسر العربي باركك الله وووسع عليك نعمه وشكرا لك ابو البشر وحفظك الرحمن من كل سوء

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

وهنا الطريقة لمحاذاة Listbox: http://www.officena.net/ib/topic/61106-هدية-من-اليمين-الى-اليسار،-مربع-القائمة-listbox-والشجرة-treeview/ جعفر

تفضل 3 طرق لتصفح الانترنت من الاكسس ، والبحث عن اسم الطالب في Google.com . وهذا كود الازرار: Private Sub cmd_FollowHyperlink_Click() url_address = "http://www.google.com/search?lr=lang_ar&cr=&hl=ar&ie=windows-1256&oe=windows-1256&q=" Application.FollowHyperlink url_address & Me!name End Sub Private Sub cmd_ie_Click() Dim ie As Object Set ie = CreateObject("internetexplorer.application") url_address = "http://www.google.com/search?lr=lang_ar&cr=&hl=ar&ie=windows-1256&oe=windows-1256&q=" ie.Visible = True ie.Navigate url_address & Me!name End Sub Private Sub cmd_objIE_Click() 'Reference to Microsfot Internet Controls 'c:\windows\system32\ieFrame.dll Dim web As WebBrowser Set web = Me.objIE.Object url_address = "http://www.google.com/search?lr=lang_ar&cr=&hl=ar&ie=windows-1256&oe=windows-1256&q=" web.Silent = True 'stop script errors web.Navigate url_address & Me!name End Sub جعفر 255.web.accdb.zip

جرب هذا الملف التنقل بين الورقات SALIM.rar

. السلام عليكم أخي حسام في الواقع الطريقتين يعملان بنفس الطريقة ، ولكن طريقتك وضعت المسميات وتغييرها من عربي/انجليزي في الكود ، بينما في طريقتي: 1. المسميات وتغييرها من عربي/انجليزي من الجدول ، وبطريقة سهلة ، 2. يمكن تغيير الكود قليلا ، ووضعه في وحدة نمطية مستقلة ، ثم مناداته من النموذج بسطر واحد ، 3. والاهم ، ان طريقتي ، وبحذف اي عنصر في البرنامج فيه مسميات باللغة العربية (كل المسميات في جميع الكائنات "النماذج/الكود/الاستعلام/التقارير/ الجداول/الماكرو" يجب ان تكون بالانجليزي non-unicode ، طبعا البيانات في الجداول ممكن تكون بمختلف اللغات) ، فيسيطيع ان يعمل البرنامج على جميع الكمبيوترات ، وبجميع اعدادات اللغات في Regional settings ، وبدون رسائل خطأ OLE ActiveX جعفر

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

مشكور أخى ياسر على الموضوع أنا عندى البرنامج ده و بستخدمه على ملفات xls فقط ولم يفلح مع xlsm أو xlsb لم أجرب طريقتك لأنى غير قادر على تحميل الشرح مش عارف ليه يا ريت باختصار طريقتك الخاصة فى صورة نقاط 1 2 3 باخنصار تحياتى أخى عبدالعزيز عذرا الموضوع شدنى ونسانى أسلم عليك لعلك بخير أنت وكل أهل بسكرة تحياتى

جزاكم الله عنا كل خير ومشكورين كثيرا على مروركم ومساعدتكم

جزاك الله خيرا أخى الفاضل عبد العزيز

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

على شكر على واجب أخى الفاضل

بعد اذن أخى الفاضل سليم ولاثراء الموضوع جرب أخى هذا الكود Sub ragab() Dim LR As Integer, LR1 As Integer, i As Integer, x As Integer Dim sh As Worksheet, cl As Range, TT As Integer, DD As Integer Set sh = Sheet1 '=================================================================== On Error Resume Next If IsEmpty(Range("C1")) Or Not IsNumeric(Range("C1")) Then Exit Sub TT = [C1] Range("A4:D1000").ClearContents LR = sh.Range("B1000").End(xlUp).Row - 1 DD = LR - Application.WorksheetFunction.CountIf(sh.Range("E2:E" & LR + 1), "ok") If DD = 0 Then MsgBox ("لا يوجد أسماء متاحة للاختيار منها") Exit Sub End If MsgBox ("عدد الأسماء المتاح الإختيار منها " & " " & DD) If TT > DD Then Exit Sub 1: x = Int(Rnd(1) * LR + 1) LR1 = Range("A1000").End(xlUp).Row '=================================================================== If sh.Cells(x + 1, 5) = "ok" Then GoTo 1 For Each cl In Range("A4:A" & LR1) If cl = x - 1 Then GoTo 1 Exit For End If Next '=================================================================== For i = 1 To 4 Cells(LR1 + 1, i) = sh.Cells(x + 1, i) Next sh.Cells(x + 1, 5) = "ok" R = R + 1 If R = TT Then Exit Sub GoTo 1 End Sub اسماء السائقين ومكان عملهم1.rar

تفضل أخي الكريم يمكنك مراجعة حدث الحالي لمعرفة ما تم تغييره Mas_Hosuing.rar

أستاذى ومعلمى ( أحمد فضيلة ) يشرفنى ويسعدنى أن يكون ردى أول الردود على عمل من أعمال أستاذ أحترمة وأقدر أعمالة ويشرفنى أن يكون أحد أساتذتى الذى تتلمذت على أيديهم فى هذا الصرح بارك الله فيك وجعله فيى ميزان حسناتك وسلملى على ( يوسف ) كثيرا وربنا يخلية ليك

السلام عليكم ورحمة الله وبركاته اخوتي الاعزاء من باب المساهمة بنشر ما علمنا الله ، (على قلة علمي) ، ومن خلال تجوالي في منتدانا تترد استفسارات ، وتحصل الاجابات ، ولكن كما تعودنا فان الاشياء التي نتعلمها بمشقة _ وان قلت _ ترسخ وتثمر . بعون الله ساحاول ان أورد من فترة لأخرى بعض التطبيقات التي أجد أن الفائدة _ وان قلت _ قد تحصل منها ، وعلى مريد الفائدة ان يتنقل داخل هذه التطبيقات لترسخ الفائدة . والله من وراء القصد ونحن في العون ما استطعنا أخوكم أبو آدم contract_payments.rar

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

إخوتي الأفاضل المرفق برمجية ملحقة بنظام متكامل للشركة وهي شركة للتخليص الجمركي و النقل و الشحن الدولي. وهو عبارة عن معالج بحث ( أداة محددة الغاية ) للتنقل بين بنود التعريفة الجمركية وإجراء عملية البحث بوصف المادة أو بند التعريفة المنسق مع خيار لإظهار تأثير الاتفاقات الدولية أو الثنائية المعقودة مع المملكة على بند التعريفة . الجدول المرفق ( طبعا ) جدول تجريبي مختصر. في المرفق نموذج تقديمي ونموذج رئيسي للبحث والتنقل ونموذج ملحق لعرض اقتران الاتفاقيات بالبند ونموذج فرعي لإظهار بنود التعريفة بالتتابع . النموذج التقديمي : تطبيق لاستخدام صورة في النموذج و توقيت الإغلاق و Progress Bar النموذج الرئيسي : تطبيق البحث بجزء من كلمة لحقلين باستخدام مربع نص واحد وأزرار أمر لتحديد حقل البحث ، وزر أمر لإظهار جميع القيود. في النموذج الرئيسي تطبيق لإظهار تلميحات وتوضيحات عن أزرار أمر وحقول وذلك عند تحريك الماوس في النموذج الرئيسي تطبيق للفرز التصاعدي و التنازلي لمحتويات الحقل. في النموذج الرئيسي نموذج فرعي لإظهار البيانات محتويات حقل مختار ( الوصف ) بالتتابع حسب فاصل زمني لعداد الوقت . آملا أن يكون فيه بعض فائدة والله من وراء القصد TarifDemo.rar

إخوتي الأعزاء بعد طول غياب أعود للتطبيقات النظام الأصلي نظام شامل لشركة تخليص ونقل وشحن دولي . وأرفق لكم اليوم جدول و نموذج ، الجدول استدلالي إحصائي يتم داخل النظام الأصلي تشكيله بموجب مجموعة من الاستعلامات ، ومعلوماته هنا ( في المثال ) شبه وهمية ، و النموذج يحلو لي أن اسميه Smart ( الذكي ) وشريط قوائم مختصرة (خيارات البيانات ) ، و يحوي النموذج في طياته مجموعة من التطبيقات هي حصيلة تراكمية مما جربت ، ومن علم من سبقنا ولله الفضل ، منها : بالضغط على الزر الأيمن للماوس : 1. فرز تصاعدي يطبق على جميع الحقول 2. فرز تنازلي يطبق على جميع الحقول 3. تصفية البيانات حسب الحقل المحدد 4. تصفية البيانات مع استبعاد الحقل المحدد 5. عرض جميع البيانات في متن النموذج مجموعة من تطبيقات التنسيق الشرطي . في أسفل يمين النموذج عدادات إحصائية متغيرة حسب الخيارات السابقة ، لعدد الاشارات ( ملفات العمليات) و القيم الجمركية للبيانات الجمركية و الرسوم الجمركية المدفوعة . في أسفل يسار النموذج منطقة البحث والفرز وحسب خيارين رئيسيين هما المراكز الجمركية و أسماء العملاء وراقب هنا ( حدث عند التغيير ) وما فيه من كودات الفرز والبحث و التمكين وعدمه للحقول وفي Form Caption راقب التغيرات حسب الاستخدام وفي التطبيقات و التجربة بقيه من فوائد تغني عن الكلام المباح .... ولله الفضل من قبل ومن بعد .... Smart.rar

ان لله ولن اليه راجعون البقاء لله اخى احمد

اخى احمد شوقى لله مااخذ وله مااعطى ولانقول الا مايرضى ربنا وانا لله وانا اليه راجعون رحم الله والدك ورحم كل اموات المسلمين

اللهم : يا حنان يا منان يا واسع الغفران اغفر له وارحمه وعافه واعف عنه , واكرم نزله ووسع مدخله ,واغسله بالماء والثلج والبرد ,ونقه من الذنوب والخطايا كما ينقى الثوب الابيض من الدنس . اللهم:ابدله دارا خيرا من دارة ,واهلا خيرا من اهله ,وزوجا خيرا من زوجه ,وادخله الجنه واعنه من عذاب القبر ومن عذاب النار . اللهم: عامله بما انت اهله ولا تعامله بما هو اهله . اللهم: اجزة عن الاحسان احسانا وعن الاساءة عفوا وغفرانا . اللهم: ان كان محسنا فزد فى حسناته ,وان كان مسيئا فتجاوز عن سيئاته يا رب العالمين . اللهم:آنسه فى وحدته وآنسه فى وحشته وآنسه فى غربته . اللهم: انزله منازل الصديقين والشهداء والصالحين وحسن اولئك رفيقا. اللهم: اجعل قبرة روضه من رياض الجنة ولا تجعله حفرة من حفر النيران . اللهم: افسح له فى قبرة مد بصره وافرش قبره من فراش الجنة . اللهم : أعنه من عذاب القبر وجاف الارض عن جنبيه. اللهم: انقله من مواطن الدود وضيق اللحود الى جنات الخلود . ( فى سدر مخضود وطلح منضود وظل ممدود وماء مسكوب وفاكهة كثيرة لا مقطوعة ولا ممنوعة وفرش مرفوعة) . آمين ..آمين..آمين. أخوك أحمد عفيفي