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

تفضل if left(me.activecontrol,1)="*" and right(me.activecontrol,1)="*" then me.Barcode_Field_Name = me.activecontrol cancel=true exit sub endif جعفر

تفضل Dim x x = SearchList.Column(0) If Not IsNull(x) Then Me.RecordsetClone.FindFirst "[id] = " & x Me.Bookmark = Me.RecordsetClone.Bookmark End If ‏‏دليل ارقام التحويلات2.rar

بعد اذن استاذنا sandanet نعم هذا احد الاسباب التي تسبب تلف قاعدة البيانات يفضل اجراء هذه العملية يدويا ، ويفضل اخذ نسخة احتياطية قبلها بالنسبة للبيانات الموجودة داخل القاعدة التالفة فيوجد برامج تمكنك من سحب الجداول

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

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

جرب هذا الماكرو Sub salim() Dim Sh1, Sh2 As Worksheet Dim lr1%, ro%, i% Set Sh1 = Sheets("Sheet1"): Set Sh2 = Sheets("Sheet2") lr1 = Sh1.Cells(Rows.Count, "a").End(3).Row ro = 3 Sh2.Range("C" & ro & ":i" & 500).ClearContents For i = 2 To lr1 With Sh2.Cells(ro, 3) .Value = Sh1.Cells(i, 2) .Offset(0, 2) = Sh1.Cells(i, 2).Offset(0, 4) .Offset(0, 6) = Sh1.Cells(i, 2).Offset(0, 8) End With ro = ro + 2 Next End Sub

لا بأس عليك استاذ ياسر - نساله تعالى لك العفو والعافية في الدنيا والاخرة

اللهم رب الناس اذهب الباس اشف انت الشافي لا شفاء إلا شفاؤك شفاءا لا يغادر سقما اللهم اشف اخي ياسر و بارك له في عمره وقه كل شر

تفضل accessfix.rar

اتفضل =IIf([نص582]>[نص580];"+" & ([نص580]/[نص582]);IIf([نص582]<[نص580];"-" & ([نص580]/[نص582]);([نص580]/[نص582]))) لكن هناك اريد اسألك هل تريد ان تعرف نسبة الفرق بين الرقمين بالنسبة المؤية او نسبة المؤوية بين الرقمين ؟ لان الجوابي هو لنسبة المؤيو بين الرقمين وليس نسبة الفرق بين الرقمين بالنسبة المؤوية نسبة الفرق بين رقمين متغيرين.rar

یا ترى ... هل انا فهمت الموضوع خطأ 1 / هل تريد ان تدخل الرقم الباركود في حقل الباركود فقد ؟ 2 / ام تريد ان لا تقدر ان تدخل الرقم الباركود الا بواسطة قارئ الباركود انا ردت على الموضوع لاني كان فهمت المطلوب كانقطة الثانية ممكن توضيح اكثر لكي نفهم لعل وعسى ان يكون هناك شيء لدى من يحب المساعدة

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

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

شكرا اخي حامد ، عندما تُدخل رقم/حرف/اشارة/رمز في الكمبيوتر ، فهي قيمة تراها انت ، ولكن الكمبيوتر يرى هذه الارقام ، وكنت اتمنى ان ارى رقم (رقم + انتر) ، ولكنه ليس هناك في هذه الحالة الافضل لك ان جعفر

كود الاستاذ جعفر الاخير شغال 100% الصق هذه في اعلى الكود Dim mySQL انظر المرفق حيث الغيت خاصية الانتقال بين الحقول في الرئيسي حتى يبقى التغيير ظاهرا test20.rar

الأستاذ هشام ارجو ان اكون وفقت فى فهم طلبك وأسألك الدعاء حصور وإنصراف.rar

=============== يوجد بالملف كود اخر اردت ان اضع الاضواء عليه لفائدته الهدف من الكود : الوصول لاي ورقه في الشيت بسهوله ' كود التنقل بين الاوراق Sub ShowSheetLists() Application.CommandBars("Workbook tabs").ShowPopup End Sub

السلام عليكم مشاركة مع اخي ابوخليل ضع هذا الكود في حدث عند الضغط المزدوج على مربع القائمة DoCmd.SearchForRecord acDataForm, "Tahwela", acFirst, "[id] =" & Me.SearchList ‏‏دليل ارقام التحويلات.rar

======= الكود الرائع المستخدم ' Sub CopyRow(sSheet As String, sRow As Long, LC As Long) 'هذا الكود للنابغه ياسر خليل 'الهدف من الكود نسخ صف بتنسيقاته ومعادلاته الى صفوف اخرى بالعدد '=*=*==*=*=*=*=*=*=*=* 'إلغاء تحديث الشاشة ' (الغاء مشاهدة تنفيذ الماكرو) Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim ws As Worksheet Dim cnt As Long 'سطر لتفادي حدوث خطأ في حالةأن الخلايا ' التي سيتم مسحها أي الخلايا الثابتة كانت فارغة On Error Resume Next Set ws = Sheets(sSheet) On Error GoTo 0 If ws Is Nothing Then MsgBox "ورقة " & sSheet & " غير موجودة.", vbExclamation, "Sheet Not Found!" Exit Sub End If '[B10] تعيين قيمة للمتغير ليساوي قيمة الخلية 'من صفحة بيانات المدرسة cnt = Sheets("إدخال بيانات أساسية").Range("C2").Value ws.Range(ws.Cells(sRow, 1), ws.Cells(sRow, LC)).Copy ws.Range("A" & sRow).Resize(cnt).PasteSpecial xlPasteAll On Error Resume Next ' يقوم بمسح الخلايا الثابتة في النطاق المنسوخ بحيث ' يبقى على المعادلات والتنسيق فقط ويزيل ما دون ذلك ws.Range("A" & sRow).Resize(cnt, LC).SpecialCells(xlCellTypeConstants, 3).ClearContents Application.CutCopyMode = False End Sub Sub DoIt() CopyRow "إدخال بيانات أساسية", 9, 20 CopyRow " ملف الإنجاز ف 1", 9, 16 CopyRow "تحريرى ف 1", 9, 19 CopyRow " شيت نصف العام", 9, 19 CopyRow "نتيجة الطلبة نصف العام", 9, 18 CopyRow " ملف الإنجاز فصل 2", 9, 22 CopyRow "تحريرى ف 2", 9, 15 CopyRow "الشيت الرئيسي", 9, 189 CopyRow "نتيجة الطلبة أخر العام ", 9, 19 CopyRow "نتيجة بالمجموع أخر", 9, 30 CopyRow "نتيجة بالمجموع نصف", 9, 16 'CopyRow "نتيجة الطلبة أخر العام ", 9, 12 Range("A1").Activate ' تحديث الشاشة Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

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

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

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

قم بتعديل الكود الى هذا الشكل Private Sub ComboBox1_Change() Dim ws As Worksheet, lr As Integer, i As Long, Col% Set ws = Sheets("feuil1") lr = Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To lr If ComboBox1.Text = Cells(i, 1) Then ws.Cells(i, 1).Activate Me.TextBox1.Value = Cells(i, 2) Me.TextBox2.Value = Cells(i, 3) Me.TextBox3.Value = Cells(i, 4) Me.TextBox4.Value = Cells(i, 5) Me.TextBox5.Value = Cells(i, 6) Col = Cells(i, Columns.Count).End(1).Column Me.TextBox7.Value = Cells(i, Col) End If Next End Sub

اتفضل غيرت حقل اي دي من نوع ترقيم تلقائي الى الرقم وبعدين في نموذج الفرعي في حدث بعد تحديث لحقل سنة كتبت هذا الكود Private Sub elyear_AfterUpdate() Me.id = Nz(DMax("[id]", "raseed", "[nationalty]=" & [Forms]![person]![nationalty]), 0) + 1 End Sub واليك مرفقك بعد تعديل اكتب رقم قومي جديد و اكتب السنة في نموذج فرعي راح تجد التغيير بعد تحديث الاجازات - Copy_2.rar

السلام عليكم ورحمة الله وبركاته اخي الكريم اذا استخدمت خاصية فورمات Percent لا يحتاج ان تضرب النتيجة في 100 فقط عليك ان تعمل تقسيم الحقل الاول على الثاني ويعطيك النتيجة =[نص580]/[نص582] لكن اذا ما تستخدم الخاصية فورمات Percent واستخدمت مثلا كينرال نمبر حينئذ يجب عليك ان تعمل تقسيم الحقل الاول على الثاني بين قوسين وتضربه في 100 =([Text585]/[Text587])*100 نسبة الفرق بين رقمين متغيرين.rar

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

اخي الكريم // إبراهيم أبوليلة لتقسيم الخلية الي أسطر عليك أولا ان تجعل تنسيق الخلية (التفاف نص ) وتستخدم المعادلة CHAR(10) مثال علي ذلك فرضا في الخلية (D9) عبدالله والخلية (D10) إبراهيم والخلية (D11) أحمد واريد ان تظهر الأسماء في الخلية (D14) اسفل بعضها في خلية واحدة بالخلية اكتب المعادلة كالتالي =D9&CHAR(10)&D10&CHAR(10)&D11 وسوف تكون النتيجة بالخلية (D14) بالشكل التالي عبدالله إبراهيم أحمد ((مع ملاحظة لابد ان يكون تنسيق الخلية التفاف النص)

أخي العزيز / abusarah73 بالمرفق 3 أوراق بها أكواد للضبط التلقائي لعرض الخلية وإرتفاعها وللإثنين معاً مع شرح بسيط بكل ورقة أرجو أن يكون مناسب لطلبك والأكواد كلها من نوع الأكواد الحدثية التي تعمل على الورقة من خلال حدث التغيير بمحتوى الخلية أو ما سيمى بال EVENT CODES من نوع WORKSHEET_CHANGE إنسخ الكود المناسب لك إلى الورقة التي تريد تفعيل الكود عليها ليعمل الكود معك على كامل خلايا الورقة . تحياتي أبو عبدالله AUTO FIT ROW HEIGHT AND COLUMN WIDTH.rar