بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|
نجوم المشاركات
Popular Content
Showing content with the highest reputation on 07/31/18 in all areas
-
تستطيع حسب حاجتك: ضع تحت زر امر مع تغيير مسمى الجداول بما يناسبك On Error GoTo Err_Handler With CurrentDb .Execute "DELETE * FROM Tbl1", dbFailOnError .Execute "DELETE * FROM Tbl2", dbFailOnError 'بنفس الطريقة تستطيع اضافة اي جدول سواء حذف او تحديث End With Err_Handler: If err <> 0 Then MsgBox err.desc & " (" & err.Number & ")" err.Clear Exit Sub Else 'MsgBox "All Deleted", vbInformation, "Deleted" End If2 points
-
ومشاركة مع الاستاذ العزيز شفان ثلاث خطوات : 1- من خصائص النموذج اعدل الخصيصة : السماح بالاضافة=لا 2- الصق السطر في اعلى كود زر جديد : Me.AllowAdditions = True 3- الصق السطر في اعلى كود زر التالي : Me.AllowAdditions = False New Rec2.rar2 points
-
اليك هذا Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount If Me.CurrentRecord < RC Then DoCmd.GoToRecord , , acNext End If2 points
-
اعتقد أننا لن نصل إلى هذا الحجم إذا كنا جعلنا الصور والملفات خارج الاكسس وجعلنا روابط للصور والملفات فقط بدلا من إضافة المرفقات داخل الأكسس مجرد رأي2 points
-
السلام عليكم ورحمة الله استخدم هذا الكود الضغط على زر الترحيل مرة واحدة حتى لا تتكرر عملية الترحيل Sub TrasfData() Dim ws As Worksheet, Sh As Worksheet Dim LR As Long Set ws = Sheets("البيانات") Set Sh = Sheets("امر صرف") LR = ws.Range("B" & Rows.Count).End(xlUp).Row If LR < 2 Then LR = 2 Else LR = LR ws.Range("B" & LR + 1).Value = Sh.Range("G5").Value ws.Range("C" & LR + 1).Value = Sh.Range("D5").Value ws.Range("D" & LR + 1).Value = Sh.Range("I2").Value ws.Range("A" & LR + 1).Value = LR - 1 End If End Sub2 points
-
السلام عليكم وشكرا للاستاذ kanory هذا مثال يوضح كيف تنقل المجموع من النموذج الفرعي الى الرئيسي jadwal6.mdb2 points
-
السلام عليكم نقدم لكم مكتبة الأكسيس حصاد السنين الاصدار الرابع نسال الله القبول الاصدار V4 https://drive.google.com/file/d/1Ff6hW3ujEmtQ6hvz4fa32BGNZv_Dr4xs/view?usp=sharing والاصدار v4.1 https://drive.google.com/file/d/16bCBvALoJ_kl4wSedAqEAb50m6sJrTiC/view?usp=sharing1 point
-
الاخوة الاعزاء اضع بين ايديكم هذا البرنامج البسيط الخاص بنظام تسجيل الاقساط اليا متمنيا لكم الفائدة شرح عمل البرنامج مرفق بالصور 1- نقوم بادخال بيانات العميل وتحديد قيمة القسط وعدد الاقساط ثن نكبس على ايقونة الاقساط 2- ننتقل الى شاشة اخرى نكبس على ايقونة تسجيل الاقساط فيتم تنزيل الاقساط اليا 3- عند الدفع يتم تغيير ايقون ةلم يتم الدفع الى تم الدفع اقساط 2018.rar1 point
-
نعم هذا الكلام صحيح وللعلم حجم 2 جيجا بايت ناقص منه حجم جداول النظام system objects ولتلافي هذه المشكلة يجب: * وضع مسار الصور والمستندات في حقل نصي بدلا من إرفاقها بقاعدة البيانات كما اشار أحد الأحباب * وكذلك عمل قاعدة بيانات لكل عام منفصل ويتم ربط الواجهة على أي قاعدة بيانات في الخلفية للعلم 2 جيجا بايت نصوص وأرقام كثير جدا لك أن تتخيل أن بيانات درجات 100000 مائة ألف طالب في 15 مادة بالإضافة إلى اسم المدرسة والإدارة وغيرها من البيانات يصل حجمها إلى 10 ميجا بايت فقط1 point
-
THIS CODE Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Me.Range("a1") .Offset(1).Resize(1000, 1) = vbNullString .Value = Selection.Address .Offset(1).Resize(Selection.Rows.Count, 1).Value = Selection.Value End With End Sub1 point
-
1 point
-
بارك الله فيك استاذنا الغالي ابو ياسين نورت المنتدي الحمدلله على سلامه الاسفار هو المطلوب الف شكر اليك يالحبيب تحياتي اليك1 point
-
جرب هذا Forms.frmSales.AllowAdditions = False DoCmd.Close Forms.frmSales.AllowAdditions = False Forms!frmSales!SubSales!نص4.SetFocus DoCmd.Close1 point
-
جزاكم الله خير وزادكم علما ونورا ..................................1 point
-
شكرا لك ولهذا المنتدى اخي العزيز kanory : سوف اخذ بهذه النصيحة وبارك الله فيك فقد اوفيت وكفيت دمتم سالمين1 point
-
اهلا بك استاذ حاتم اخ كريم فى منتدانا تفضل لك ما طلبت كود لإظهار اسم الخلية النشطة في خلية أخرى.xlsm1 point
-
1 point
-
أهلا بك .... أولا : هناك ملاحظات على جدول الرواتب . المفروض يون في فقط كود الموظف . وأمور الراتب دون وجود صورة موظف أو رقم اقامته .... ويتم الربط بين الجدولين بكود المرظف . ثانيا : لصورة الموظف هل تحتاج عرضها في النموذج أو تريدها مرفق كملف فقط ثالثا : ربما هذه التسائلات هي سبب تأخر الرد أو الاجابة ؟1 point
-
1 point
-
1 point
-
اطلعت على موضوع الاستاذ جعفر اذ يوضح حذف جدول واحد فقط وتوجد طريقة اخرى عن طريق استعلام حذف ولكن ما اريده انا هو حذف اكثر من جدول يعني ممكن جدولين او ثلاث جداول و اكثر على العموم شكرا لتفاعلك جزاك الله خيرا1 point
-
السلام عليكم ورحمة الله اخي الفاضل عبد اللطيف سلوم المستخدم d المرور 1 وعذرا على التاخير في الرد علما أن شاشة الدخول موضح عليها اسم المستخدم وكلمة المرور1 point
-
موضوع الاستاذ جعفر فيه كل شيئ شرح وامثلة ... اذا اردت تطبيقها ارفق مثال للتطبيق الفكرة .. ابشر1 point
-
1 point
-
1 point
-
اشكرك اخي @ابوخليل وجود المثال المصغر يوفر للسائل والمجيب الوقت والفهم ... لان احيانا هو يريدها بطريقة وانت تجيب بطريقة مختلفه1 point
-
1 point
-
السلام عليكم ولماذا الترحيل ؟ الفكرة من اساسها بحاجة الى اعادة نظر .. ( في قواعد البيانات .. لا يوجد نظام متبع يعتمد على نقل البيانات من جدول الى آخر ) نقل البيانات او نسخها يكون في مراحل نهائية ، والافضل من ذلك اخذ نسخة لكامل قاعدة البيانات عن فترة سابقة نأتي الى اصل السؤال : جدول ؟ او جدولين ؟ لانك ان عملت على جدولين فستبقى بيانات كل جدول في مكانها وسوف تجلب البيانات عبر الاستعلامات وفي هذه الحالة انت مضطر لاستخدام استعلامات التوحيد حين تبحث عن الارصدة والحركة الحالية والسكة حتطول حبتين وهذه الطريقة هي المتعارف عليها قد تجدها في امثلة مكروسوفت ، يعني لو تعمل برنامج حسابات ومخازن باستخدام معالج اكسس ستحصل على هذه النتيجة رأيي الشخصي الجدول الواحد اكثر مرونة وأسرع وأخف للبرنامج ، ( علما ان الجدول الواحد يتم تصميمه على اكثر من طريقة ) بالنسبة للمدفوعات.. ربطها با لعميل والمورد رأيي انه افضل لان اغلب البيع والشراء يتم بالآجل ولو كان البيع والشراء نقدا ( مثل نقاط البيع) فربطه بالفاتورة لا يختلف عليه اثنان احببت المشاركة استاذنا بحكم خبرتي البرمجية ولن تستغني عن الاستشارة المحاسبية1 point
-
صحيح انا نسيتها بعد التحديث الاخير انظر المرفق تم حجب الحصتين السابعة والثامنة عن مدرسي الرياضيات ، ويضا حجب الحصة الثامنة عن معلم الحاسب اعتقد كذا نسير في مسار صحيح .. اتمنى ان تجري تجاربك على المثال نفسه لأني اعمل على mdb وأكيد سوف تقوم بتعبئة بيانات كاملة ,, وستجد الكثير من الملاحظات ,, فآمل ان ترفع المثال مكتمل jadwal_10.rar1 point
-
جرب هذه المعادلة =IF(AND($F15<>"",$D15<>""),ROWS($B$15:$B15)+$G$2-1,"") الملف مرفق(نسخة بالانكليزية اذا لم تعمل حول المعادلة الى اللغة الفرنسية) num-auto-salim.xlsm1 point
-
1 point
-
1 point
-
عذرا لتاخري في الرد بسبب الاطلاع على الملف . واعتذر بالنسبة لدمج الصفوف وان شاء الله لا تتكرر في المرات القادمة منكم نتعلم قمت برفع الملف واختصرت في الملف للتوضيح اكثر ... انا اريد ان يعطي المواد التي اختلفت وتغيرت الدرجة من الجدول الاول عن الجدول الثاني وهي اضافة 5درجات بمعنى اريد الدرجات التي اختلفت من الجدول الاول عن الجدول الثاني مثلاً احمد5 لم تتغير الدرجات الجدول الاول عن درجات الجدول الثاني اي لم يحصل على درجة قرار .... من الملاحظ في الكود والمعادلة تكتب المواد التي درجتها 50 وهذا ليس المطلوب وانما المطلوب هو كتابة المواد التي تغيرت درجتها في الجدول الثاني بالنسبة للجدول الاول وقد قمت بتغير التنسيق الشرطي حتى يكون واضح انه المواد او الدرجات في الجدول الثاني لا تساوي درجات الجدول الاول بمعنى انه احمد1 يكون التغيير في اللغة الانكليزية والعلوم واحمد2 فقط اللغة الانكليزية واحمد3 و احمد4 واحمد5 واحمد6 واحمد7 لاتوجد مواد قرار شكرا جزيلاً لك استاذي الكريم سليم على اجاباتك الرائعة .. عسى ان يكون الشرح واضح ...... وعذرا قد اثقلت عليك بالكلام aamir_salim.xlsm1 point
-
السلام عليكم اهل المنتدى الكرام أقدم لكم اليوم شيت يقوم بترحيل الفواتير إلى شيت بإسم الشهر بناءاً على التاريخ الموجود فى صفحة Main أتمنى من الله أن ينال اعجابكم تقبل الله منكم سائر أعمالكم وبارك الله فيكم وجزيتم خيرا كثيراً ترحيل الفواتير حسب اسم الشهر.xlsm1 point
-
السلام عليكم ورحمة الله أخي الكريم، لم ألاحظ طلبك فيما يخص رسالة بعدد الصفوف التي تم حذفها وأضع بين يديك تعديلا جديدا للكود في الملف المرفق التالي يقوم بحذف الصفوف التي يتوفر فيها الشرط مع إعطاء رسالة بعدد الصفوف التي تم حذفها بعد الانتهاء من عملية الحذف... واعذرني على هذا السهو... أخوك بن علية حذف سطور بناء على شرط_2.rar1 point
-
اذن اخي من الاحسن ان تستعمل هذ الكود الذي طرحته في مشاركة سابقة Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select ElseIf Target.MergeCells = True And Target.HasFormula = True Then Target.Offset(0, 1).Select ElseIf ActiveCell.HasFormula = True And ActiveCell.MergeCells = True Then ActiveCell.Offset(0, 1).Select End If End Sub1 point
-
السلام عليكم سلمت الانامل استاذ احمد ابو عبدالله ولاكن استاذي الفاضل انا لم افهم كيفية صياغة اكواد الترحيل مثلا انا لدي ملف حضور موظفين بالوقت في ورقة واريد ترحيل البيانات الى ورقة اخرى وهيا عبارة عن جدول حساب الوقت ومكون من 30 يوم مثلا حضور صباحي وحضور مساء فترة الصباح تترحل لصف الموظف الاول وفترة المساء تترحل لصف الثالث بمعنى الترحيل كالاتي 1 - ترحيل فترتين (فترة صباحية - فترة مسائية) 2 - ترحيل حسب تاريخ اليوم يعني مثل هذا العمل يحتاج الى الغوص عميقا في اكواد الترحيل وانا مبتدئ جدا في مجال الاكواد وعلى العموم انا اذا طرحت الملف في المنتدى الكل بيفيدنا ماشاء الله عليهم نوابغ الله يزيدهم ومانريده فهم الية الكود بمعنى سطر الكود الاول والسطر الذي يليه شرح السطر السابق ارجو ان يكون كتابة الاكواد بهذا الشكل كي يستفيد الجميع استاذي الفاضل ابو عبدالله ارفق لك ملفي هنا وارجو الاطلاع عليه وكيف يمكن عمل كود للاليه التي تتناسب مع ملفي بمعنى المهم جدا هو الفكره المختصره كيف ستكون ارجو من الجميع التفاعل والعذر والسموحة على الاطاله ومنكم نستفيد ترحيل حضور يومية موظف.rar1 point