عبدالله المجرب

ضع مرفق به ااكود

نفس المشكلة لاحد زملائي بالعمل

ردوود رائعة ومتنوعة بارك الله فيكم اخواني

تم تعديل العنوان للدلالة ونرجو الالتزام بالقواعد مستقبلاً

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

بصراحة المطلوب غامض

النشرة الدورية العدد السادس عشر - يونيو 2012 رابط العدد من هنا * سيتم توزيع الوصلة بالبريدعلى جميع الاعضاء من قبل الاستاذ محمد طاهر. *ستصدر النشرة دوريا بصورة نصف شهرية بإذن الله تعالى وسيكون هناك أعداد خاصة لبعض أعمال رواد منتدى أوفيسنا. news 16.pdf

جربت في المنزل (بدون شبكة ربط) ونجحت الخطوات ولله الحمد لدي اسئلة 1. هل يعني ان اي موظف يمكنه فتح البرنامج والتعامل مع الجداول بنفس الوقت 2. هل سيصبح التحديث في الجداول في القاعدة المنشئة جديثاً فقط

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

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

في الكود استبدل هذا السطر If IsNumeric(Cells(R, C.Column)) And Not IsEmpty(Cells(R, C.Column)) And (C.Value <= Cells(R, C.Column) Or C.Value = "-") Then بهذا If C.Value < 0 Then

السلام عليكم بعد اختيار النوع سيتم كتابة التاريخ تلقائياً حاول التجربة لمسحه تنسيق القبول.rar

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

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

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

سيصبح الكود هكذا Private Sub CommandButton2_Click() Sheets("ورقة2").[b3].Value = TextBox2.Value Sheets("ورقة2").[f3].Value = TextBox3.Value Sheets("ورقة2").[d4].Value = TextBox4.Value Sheets("ورقة2").[b5].Value = TextBox5.Value Sheets("ورقة2").[b4].Value = ComboBox1.Value Unload Me Sheets("ورقة2").Select End Sub

كنت راح اسأل عن هذه الطريقة == بالفعل هي انجع الطرق جمعة مباركة

بارك الله فيك اخي الزبيري == للفائدة هذا موضوع لدوال معرفة لنفس الغرض وبعدة معايير http://www.officena.net/ib/index.php?showtopic=38914&hl=

السلام عليكم اليك رابط موضوع مشابه http://www.officena.net/ib/index.php?showtopic=40743

بارك الله فيك اخي محمود

السلام عليكم تمت الاجابة بفضل الله ثم بمساعدة الاستاذ ابوخليل حفظه الله === للفائدة 1. في الوحدة النمطية Defs اضفت هذا السطر Public Ab As String لتصبح Option Compare Database Public MyUser As New CUser Public Ab As String Option Explicit 2. في حدث تذييل التقرير MyTxt= Ab حيث MyTxt هو اسم مربع النص في التقرير

السلام عليكم استبدل ذلك السطر بهذا .EntireRow.Delete

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

السلام عليكم بارك الله فيك اخي رجب == للفائدة هذا موضوع مشابه http://www.officena.net/ib/index.php?showtopic=37688

في كود فورم النسخ تم اضافة هذا السطر ليتم حذف البيانات المنسوخة .Delete Shift:=xlUp ليصبح الكود Private Sub KHCOPYMYRANGE_Click() On Error Resume Next If RefEdit1.Text = "" Then GoTo 1 On Error GoTo 1 kh_focopy.Hide Application.ScreenUpdating = False With Range([RefEdit1]) .Copy MyCell.PasteSpecial MyPasteSpecial Application.CutCopyMode = False MsgBox "تم استيراد عدد " & Chr(32) & .Rows.Count & Chr(32) & " من السجلات بنجاح", 524288 + vbMsgBoxRtlReading, "الحمدلله" .Delete Shift:=xlUp End With Application.ScreenUpdating = True Mybook.Activate Unload kh_focopy GoTo 2 1: MsgBox "استخدام خاطىء", 524288, "تنبيه" On Error GoTo 0 2 End Sub قم بإستبداله بالكود عندك في الملف او قم بإضافة هذا السطر فقط في نفس المكان .Delete Shift:=xlUp