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

السلام عليكم و رحمة الله و بركاته او يمكن استخدام دالة Replace بدون وحدة نطمية(موديل) tp.rar

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

تفضل اخي جرب db1.accdb

وعليكم السلام و رحمة الله و بركاته ضع الكود في حدث عند فتح تقرير DoCmd.Restore بتوفبق،،،

تفضل استعلام + نموذج tp.rar تحياتي

بسم الله الرحمن الرحيم لاحظت في الفترة الأخيرة كثرة الأسئلة عن موضوع نسيان كلمات مرور ملفات الإكسل أو بعض ورقات العمل بالملف فأحببت أن أشارك إخوتي وأحبّتي أعضاء ومشرفي وخبراء منتدانا الرائع هذه الإضافة MasNoPass لفك حماية أوراق العمل في ملفات الإكسل وتعمدت تسهيل عملها &&&&&&&&&&& فقط تحتاج لإضافة الوظيفة الإضافية: 1 في ويندوز xp نسخ المرفق إلى المسار التالي C:\Documents and Settings\***\Application Data\Microsoft\AddIns حيث أن C هو قرص النظام و *** هو اسم المستخدم 2 في ويندوز 7 نسخ المرفق إلى المسار التالي C:\Users\***\AppData\Roaming\Microsoft\AddIns حيث أن C هو قرص النظام و *** هو اسم المستخدم ****************** بالنسبة لمستخدمي إكسل 2003 من خلال: فتح برنامج الإكسل والضغط على قائمة أدوات tools ===> وظائف إضافية Addins ===> ثم اختر MasNoPass ثم موافق ok وبالنسبة لمستخدمي إكسل 2007 يتم ذلك من خلال : فتح برنامج الإكسل والضغط على زر الأوفيس ثم خيارات إكسل Excel options ثم اختيار وظائف إضافية Addins من الجانب الأيمن/الأيسر ثم اذهب go ثم اختيار MasNoPass ثم موافق ok وبالنسبة لمستخدمي إكسل 2010 وما بعدها يتم ذلك من خلال : فتح برنامج الإكسل والضغط على قائمة ملف file ثم خيارات إكسل Excel options ثم اختيار وظائف إضافية Add-ins من الجانب الأيمن/الأيسر ثم اذهب go ثم اختيار MasNoPass ثم موافق ok /////////////////// طريقة العمل:- بعد تسجيل الوظيفة الإضافية تجد ظهور قائمة جديدة باسم (فك الحماية) وتحتاج فقط إلى فتح الملف المحمي ثم الضغط على قائمة فك الحماية واختيار (إزالة كلمة المرور) بعدها سيتم البدء في عدّ المحاولات والوقت المنقضي في إجراء العملية بعدها تظهر رسالة تفيد أنه تم إزالة كلمة المرور عن الملف وبعد الضغط على الرسالة ستجد الملف مفكوك بين يديك $$$$$$$$$$$$$$$$ و أذكّر نفسي وإياكم بأن الصحابة عليهم رضوان الله كان الواحد منهم إذا أراد أن يدعو لنفسه دعا لأخيه فيقول له الملك آمين ولك مثلها فلا ينقصني سوى دعائكم وأخيرا أذكر بخطورة الموقف وأرجو عدم استعمالها فيما حرّم الله وعند النقل يجب ذكر المصدر منتديات أوفيسنا اللهم قد بلّغت ... اللهم فاشهد أخوكم محمد صالح فيديو لشرح كيفية استعمال الأداة ولا ينقصني سوى دعاؤكم ينصح بالاشتراك في القناة وتفعيل جرس التنبيه ليصلكم كل جديد ومفيد وقت صدوره MasNoPass.rar New_MasNoPass.rar

السلام عليكم ورحمة الله وبركاته هدفيه للعاملين بالكنترولات المدرسيه ...... _ سجلات اعمال الكنترول كامله ... _ توزيع الملاحظين اليا على اللجان .... مع تحياتى ....

افتح التقرير في وضع التصميم ضع الكود التالي في حدث عند الفتح Docmd.Maximize Me.Visible = False

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

بارك الله فيك على تقديم الحل لإفادة اخوانك

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

يعمل الكود معى بكل كفاءة يمكن المشكلة من عندك اخى الكريك بارك الله فيك استاذ سليم كود رائع احسنت

السلام عليكم شكراً أستاذي @ابو عارف لقد كانت نتائج الكود الذي تكرمت به أفضل بكثير من الطريقة التي كنت أقوم بها .

جرب هذا الملف 88_sali.xlsx

بعد ان احي محمد هذا الملف الكود Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$D$4" Then Data_Val End If Application.EnableEvents = True End Sub '=============================== Sub Data_Val() Dim i%: i = 2 Dim check As Boolean Dim arr Dim MY_ST: MY_ST = [d4] check = IsError(Application.Match(MY_ST, Range("a2:a500"), 0)) If Not check Then Dim rg As Object Set rg = CreateObject("system.collections.arraylist") With rg Do Until Range("a" & i) = vbNullString If Range("a" & i) = MY_ST Then If Not .contains(Range("B" & i).Value) Then .Add Range("B" & i).Value End If i = i + 1 Loop .Sort arr = .toarray arr = Join(arr, ",") End With Range("E4") = vbNullString With Range("E4").Validation .Delete .Add xlValidateList, Formula1:=arr End With Else MsgBox "This data" & Chr(10) & MY_ST & Chr(10) & "Does'not Exits in then table", 64 With Range("E4") .Value = vbNullString .Validation.Delete End With End If End Sub الملف مرفق Carburant.xlsm

أستاذي الكريم @ابو عارف ما أرفع ذوقك و أحسن خلقك ، أنا من وجب عليه الاعتذار فمع الأساتذة أمثالك ينبغي الصمت و الاستماع . شكراً لكم فعلاً، مجتمع أوفيسنا متميز و فريد بكل من فيه و ما فيه .

مشكور وبارك الله بيك ما قصرت استاذي العزيز

"UPDATE 01_PoliceMan SET [01_PoliceMan].Gadol_P = [forms]![00_Home]![Gadol_P]"

معذور اخي .. هذا يسمى حماية الحقوق الفكرية

مخالف لقوانين المنتدى حماية حقوق المصمم

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

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

هذا عمل الاستاذ عبدالله عدلتة حسب بياناتك New ورقة عمل Microsoft Excel (2).xlsm

مثال جميل اخ Khalf استفدت من كثيرا شكرا جزيلا

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

ضع الكود التالي في التقرير Private Sub Report_Open(Cancel As Integer) DoCmd.Maximize End Sub تحياتي عذراً استاذب الفاضل ابو عارف لم انتبه لمشاركتك الكريمة تحياتي

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

الاستاذ سليم حفظكم الله ورزقكم من فضله خيرا كثيرا احسنتم تعديل ممتاز جعل الله اعمالكم في ميزان حسناتكم لكم ودي واحترامي

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

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

عليكم السلام يصبح هكذا : If Me.subfrm.Form.NewRecord = True Then باعتبار subfrm هو اسم عنصر تحكم النموذج الفرعي

Dim records As Object Dim db As Object Dim strText As String Set db = CurrentDb() Set records = db.OpenRecordset("Tbl1") strText = "" While Not records.EOF strText = strText & records!fild1 & "," records.MoveNext Wend 'مرحلة التصدير Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") Dim oFile As Object Set oFile = fso.CreateTextFile(CurrentProject.Path & "\" & "C" & ".txt") oFile.WriteLine strText oFile.Close Set fso = Nothing Set oFile = Nothing records.Close Set records = Nothing Set db = Nothing ضع هذا الكود فى زر الذى تصدر به البيانات يجب تغيير اسم الجدول واسم الحقل على حسب مرفقك

السلام عليكم تفضل : مطلوبك هنا

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

جزاك الله عنا كل خير

ردا على طلب الاخ (AboSaad17) تفضل نسخة 2003 ونسخة 2010 مفتوحة لتعديل وتطوير نسخة تجريبية2003.rar نسخة تجريبية2010.rar

السلام عليكم

شكرا اخي ابو ادم على هذه الكود الرائع .

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