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

وأخيراً تمت مشاركة ملف الإكسيل في شبكة محلية مع الموظفين وتم تبادل البيانات معهم والتعديل عليها.. تابعونا لمعرفة الخطوات.

رابط لآخربورتيبل لافضل برنامج لتعليم الكتابه على لوحة المفاتيح http://up.top4top.net/downloadf-top4top_46db9bc6141-rar.html رابط لآخربالتنصيب لافضل برنامج لتعليم الكتابه على لوحة المفاتيح http://up.top4top.net/downloadf-top4top_7fc21fea051-rar.html

تعلم الجمع مع الاطفال برنامج بوربوينت لتعليم الاطفال جمع الارقام مع التعرف على أنواع الفاكهة مع كل اجابة صحيحة يتم رفع مربع من على صورة الخلفية http://www.kuwaiti.co/ggju87tqyk3m

السلام عليكم ورحمة الله اكتب هذه المعادلة فى الخلية A1 =COUNTA($B$1:B1) ثم اسحب نزولا

Me.تابع4.SetFocus DoCmd.RunCommand acCmdDeleteRecord Me.Refresh اخوي ابو عاصم ضع هذا الكود في حدث عند النقر للحذف

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

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

تسلم ايدك ابا جودي جاري التجربة

تم التطبيق بنجاح ولكن بعد استبعاد نوع المتغير Db ولا ادري لماذا لم يتعرف عليه البرنامج عندي.. اكرر الشكر للاستاذ ابوخليل تم التطبيق بنجاح ولكن بعد استبعاد نوع المتغير Db ولا ادري لماذا لم يتعرف عليه البرنامج عندي.. اكرر الشكر للاستاذ ابوخليل اليكم المرفق انشاء-تعديل-حذف كلمة مرور قاعدة بيانات بعيدة.zip

نعم لاحظت هذا البارحة ، والحل ان تعمل قاعدة بيانات فاضية ، ثم تستورد كائنات قاعدة بياناتك الحالية ، إليها. جعفر

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

اخوي محمد الاسطر عليها شرح وافي ولكن باللغة الانجليزية ويبقى طرق الاستفادة في الالغاء او التعديل او الجديد طبعا الجديد ستكون القاعدة بدون كلمة مرور اما الالغاء والتعديل فيفترض معرفة كلمة المرور القديمة وكلها تتم من خلال السطر Call ChangeAccessPassword("oldPassword", "newPassword") ' لتغيير الباسوورد Call ChangeAccessPassword("oldPassword", "") ' لإلغاء الباسوورد Call ChangeAccessPassword("", "newPassword") ' لكتابة باسوورد جديد oldPassword = يكتب مكانه الباسوور القديم newPassword = يكتب مكانه الباسوور الجديد اما علامتي التنصيص "" فهي تعني لاشي او لايوجد

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

وعليكم السلام تفضل هذا الكود للنموذج: Private Sub COM1_Click() Call Form_Current End Sub Private Sub Form_Current() Dim rst As DAO.Recordset Dim i, Nums, RC As Integer Set rst = CurrentDb.OpenRecordset("Select * From QR_MO_SMS") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount Nums = "" For i = 1 To RC Nums = Nums & rst!No_Mobile & "," rst.MoveNext Next i Me.txtNumbers = Mid(Nums, 1, Len(Nums) - 1) 'Or 'Me.txtNumbers = Left(Nums, Len(Nums) - 1) rst.Close: Set rst = Nothing End Sub جعفر

تكدر تعمل استعلام حذف لجدول استعلامات وبيحذف كل ريكوردات بدون رقم اي دي واكتب كود فتح الاستعلام الحذف في نهاية امر حفظ

سلمت الايادي استاذنا الفاضل ربي يوفقكم ولايحرمنا من عطائكم .. الكود شغال وتم النقل فيه بنجاح

تعديل في جمل الاسكيو ال Set rs = CurrentDb.OpenRecordset("select * from emp where [اسم الموظف] Like '" & [Text1] & "*'"): rs.MoveFirst Set rs1 = CurrentDb.OpenRecordset("select * from transfer where [اسم الموظف] Like '" & [Text1] & "*'"): rs1.MoveFirst مع التنبيه انه يتم تشغيل الاستعلام اولا ثم النقر على الزر بالتوفيق

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

ابنتي الفاضلة مع الاسف لم اتمكن من الوصول الى حل المشكلة علما اني اعمل على الاصدار 2003 وليس لي خبرة بهذه المشكلة من قبل وكان لزاما ان انقل المثال الى جهاز آخر وكانت النتيجة : "اكسس يمتنع عن الحاق الحقول ذات القيم المتعددة" والمجال مفتوح لاهل الخبرة ليفيدونا مشكورين لمن مرت به هذه المشكلة وتمكن من الإلحاق وان استعصى الحل قد نجد مخرجاً : ما الغرض من الالحاق ؟ .. لعلنا نجد لك حلا آخر ينوب عنه اما بالنسبة لالغاء رسائل التحذير فالحل هو ان نجعل امر الاستعلام (الكود او امر فتح الاستعلام بين هذين السطرين ) DoCmd.SetWarnings False ' ....... DoCmd.SetWarnings True

أخي الكريم ابن الملك إليك الكود التالي لعله لا يكون المطلوب بشكل كامل كما أردت ولكن قد يكون مفتاح للحل ..حيث أن صفحات ورقة العمل الواحدة تختلف حسب إعدادات الطابعة المنصبة لديك .. ولو غيرت الطابعة ربما تختلف إعدادات الصفحة عموماً إليك الحل التالي يعتمد على النطاق المحدد ..أي قم بتحديد النطاق أولاً ثم تنفيذ الكود ليتم تصديره إلى مصنف جديد Sub Copy_Selected_Range_As_New_Workbook() Dim a As Range, rng As Range Application.ScreenUpdating = False Set rng = Selection ActiveSheet.Copy If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData Columns.Hidden = False Rows.Hidden = False Cells.ClearContents For Each a In rng.SpecialCells(xlCellTypeVisible).Areas Range(a.Address).Value = a.Value Next a ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\YourFileName.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False ActiveWorkbook.Close Application.ScreenUpdating = True End Sub تقبل تحياتي Export Selected Range To New Workbook YasserKhalil.rar

تحديث لبرنامج ( كشوف المناداة وقوام الفصول ) للطباعة المنفصلة لكشف المناداة وكشف الدور الثانى بحيث يتم لصقهم متجاوريين لكى يظهروا بالحجم المعقول قوائم الفصول وكشوف المناداة + كشوف الدور الثانى.rar

الاخ MMFOUAD تحياتى جهد مشكور عليه الاخ nse واليك طريقة اخرى sample2.rar

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

الاخت نورة انظري للمرفق فتمت حماية الخلايا اما خلية الاختيار C10 فتم عمل رسالة تحذيرية عليها ولايمكن الاضافة او الاستبعاد منها فهل تفي بالغرض بهذا الشكل 222.rar