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

وتوضيحا لكود أخوي أبوخليل: ولمعرفة الرقم البرمجي (ascii) للزر f10 ، اطلب من الكود ان يخبرك بالرقم ، هكذا: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) msgbox KeyCode 'If KeyCode = 27 Then ' DoCmd.Close 'End If End Sub فعندما تضغط على الزر f10 ، سترى نافذة فيها الرقم ، ولما تعرف الرقم ، استيدله بالرقم 27 (الذي في كود اخوي ابوخليل) ، وافعل ما تشاء جعفر

السلام عليكم ضع هذا السطر في موديول جديد Public Abu_AhmedPrnt As Boolean ثم في حدث ThisWorkbook ضع هذا الاسطر Private Sub Workbook_BeforePrint(Cancel As Boolean) If Abu_AhmedPrnt Then Exit Sub MsgBox "لا يمكنك الطباعة بهذه الطريقة - أضغط زر الطباعة للطباعة" Cancel = True End Sub في زر الأمر الخاص بالطباعة ضع هذا السطور Abu_AhmedPrnt = True ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Abu_AhmedPrnt = False

السلام عليكم و رحمة الله تعالى وبركاته أساتذة و خبراء منتدانا الغالي حياكم الله أردت أن أنجز عمل بمعيتكم الكريمة . و هو إنجاز سلسلة دروس في vba الأكسس لتقوم إدارة المنتدى من بعد ذلك بتثبيت هذا الموضوع ليطلع عليه كل من يريد التعلم و يبقى صدقة جارية لكل من ساهم فيه و لو بحرف واحد. العمل سوف يقسم إلى مجموعة دروس مثلا : المتغيرات ,الجمل الإختيارية , الجمل التكرارية , الكائنات ......الخ. و سوف نحاول شرح جميع دوال و تعليمات VBA أكسس الموجودة مع إعطاء أمثلة في نهاية كل درس. على أن يتم تجميعه في الأخير مرتبا حسب تسلسل الدروس و لا يتم الإنتقال من درس لآخر حتى نستوفي كل ما نستطيع حول هذا الدرس. العمل المطلوب: كلما نبدأ في درس جديد. يقوم الأساتذة الكرام بتقديم الدوال و التعليمات التي تندرج تحت عنوان هذا الدرس و تقديم شرحها مع وضع مثال بسيط لإستعمال الدالة أو التعليمة على أن لا يتم تكرار الدوال و التعليمات الموجودة مسبقا في الدرس من قبل أحد الأعضاء. و قبل البدء أنتظر إقتراحاتكم فيما يخص طريقة العمل أو ترتيب دروس و عناوينها. و إن شاء الله غدا أو بعد غد سوف نبدأ بالعمل على بركة الله.

وعليكم السلام هذا يغلق النموذج عندما تنقر زر الهروب Esc ويمكنك تغيير اسم النموذج "Form" لأي كائن داخل النموذج ، كما يمكنك تغيير الاجراء Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 27 Then DoCmd.Close End If End Sub

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

دائما رائع اخى الفاضل سليم حاصبيا

جرب هذا الملف sum 31 32.rar

بإذن الله سنتطرق لشرح الكود لاحقاً

وعليكم السلام ماشاء الله عليك ، اشوفك مستعجل !! طريقتين: 1. لا تضع الشروط على نفس السطر ، ولاحظ تنسيق التاريخ: . والنتيجة: . . 2- ايش رايك في طريقة تبحث فيها في كل الحقول مرة واحدة (ولكنه ابطأ بعض الشئ ، والسبب ان هذا الحقل لن يكون مفهرس): نضيف كل الحقول مع بعض في حقل واحد (لاحظ تنسيق التاريخ) ، ونضع مسافة بين اسماء الحقول: . ثم نضع شرط واحد فقط: . والنتيجة: . جعفر 543.Emp_Data.mdb.zip

نم التعديل على الملف وتفادي الخطأ انظر الى التعديل الذي جرى في معادلات العامود الاول جمع للورقه salim2.rar

الحالة الأولى: إذا كانت البيانات (له-عليه-التاريخ-ملاحظات) تتكرر لكل عميل حسب الحاجة فهذا يعني أنه يجب عليك أن تضع إسم العميل و معلوماته الشخصية في جدول و البيانات (له-عليه-التاريخ-ملاحظات) في جدول آخر و تقوم بإنشاء علاقة واحد لكثير بين الجدولين. الحالة الثانية: و إذا كانت البيانات (له-عليه-التاريخ-ملاحظات) غير مكرر لجميع العملاء فهنا من الأفضل إنشاء جدول وحيد يشمل كل المعلومات.

جدول واحد يكفى تلك البيانات ما الفائده من جدولين

استاذ ابو حمزة ده امر الغاء الطباعة بالكيبورد Private Sub Workbook_Open() Application.OnKey "^p", "" End Sub

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

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

ربما ينفع هذا الكود (يجب ان يكون اول عامود مرقماً ) Sub my_sum_for_All() Dim Lr, Lc As Integer, My_sheet As Worksheet Set My_sheet = Sheets("ورقة1") If ActiveSheet.Name <> My_sheet.Name Then Exit Sub With My_sheet Lc = Cells(4, Columns.Count).End(xlToLeft).Column Lr = Application.Max(.Range("a:a")) + 4 Range(Cells(Lr + 2, 2), Cells(Lr + 2, Lc)).ClearContents .Cells(Lr + 2, 2) = "اجمالى الكشف" For i = 3 To Lc .Cells(Lr + 2, i) = Application.Sum(Range(Cells(3, i), Cells(Lr, i))) Next End With End Sub الملف جاهز تم التعديل جمع للورقه salim1.rar

ربما ينفع هذا الكود (يجب ان يكون اول عامود مرقماً ) Sub my_sum_for_All() Dim Lr, Lc As Integer, My_sheet As Worksheet Set My_sheet = Sheets("ورقة1") If ActiveSheet.Name <> My_sheet.Name Then Exit Sub With My_sheet Lc = Cells(4, Columns.Count).End(xlToLeft).Column Lr = Application.Max(.Range("a:a")) + 4 Range(Cells(Lr + 2, 2), Cells(Lr + 2, Lc)).ClearContents .Cells(Lr + 2, 2) = "اجمالى الكشف" For i = 3 To Lc .Cells(Lr + 2, i) = Application.Sum(Range(Cells(3, i), Cells(Lr, i))) Next End With End Sub الملف جاهز جمع للورقه salim.rar

جرب المرفق كود جمع salim.rar

السلام عليكم ورحمة الله بعد اذن الاستاذ سليم جرب اخى هذا الكود Sub SummCol() Lr = Range("B" & Rows.Count).End(xlUp).Row Range("B" & Lr & ":E" & Lr).ClearContents For R = 5 To Lr x = x + Cells(R, "C") y = y + Cells(R, "D") Z = Z + Cells(R, "E") Next LS = Range("B" & Rows.Count).End(xlUp).Row Cells(LS + 2, 2) = "اجمالى الكشف" Cells(LS + 2, 3) = x Cells(LS + 2, 4) = x Cells(LS + 2, 5) = x End Sub

جرب هذا الماكرو Sub my_sum() Dim Lr As Integer, My_sheet As Worksheet Set My_sheet = Sheets("ورقة1") With My_sheet Lr = Application.Max(.Range("a:a")) + 4 .Range("b" & Lr + 2 & ":" & "e" & Lr + 2 & "").ClearContents .Cells(Lr + 2, 2) = "اجمالى الكشف" .Cells(Lr + 2, 3) = Application.Sum(Range("c4:c" & Lr)) .Cells(Lr + 2, 4) = Application.Sum(Range("d4:d" & Lr)) .Cells(Lr + 2, 5) = Application.Sum(Range("e4:e" & Lr)) End With End Sub

اخي الكريم هناك طرق كثيره منها Private Sub Record_Click() Dim i As Integer, Lr As Long Lr = ورقة1.Range("A" & Rows.Count).End(xlUp).Row For i = 2 To Lr If CDate(ورقة1.Cells(i, 1).Value) = CDate(Me.ComboBox1.Value) Then ورقة1.Cells(i, 2).Value = Me.TextBox1.Value End If Next End Sub تقبل تحياتي

اثراءاً للموضوع اكتب في الخلية C7 هذه المعادلة =(B7-INT(B7))*100/60+INT(B7) و في الخلية D7 هذه الاخرى =INT(B7)*60+(B7-INT(B7))*100

اكتب في الخلية C7 هذه المعادلة =(QUOTIENT(B7,1)*60+MOD(B7,1)*100)/60 و في الخلية D7 هذه الاخرى =QUOTIENT(B7,1)*60+MOD(B7,1)*100

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

1. PopupSelectSourceDialog 2. TransferWithUI("d:\j.bmp") 3. TransferWithoutUI(300, rgb, 0, 0, 8.3, 11.7,"D:\jj2.bmp") لا تستعملهم كلهم مع بعض ، وانما: 1. اختار الاسكانر ، ثم اختار 2 او 3. اريد صورة منها ، وكذلك صورة من صفحة الكود والسطر ذو اللون الاصفر. في اعتقادي انه بعد ان اضفنا الدوال اعلاه الى برنامجك ، بعضها كان موجودة في الوحدة النمطية القديمة ، لذا يجب ان نوقفها !! جعفر حلللللوة ، وحنا قاعدين نضرب اخماس في اسداس لمعرفة المشكلة جعفر

استخدم نموذج بخاصية مجموع شوف الصورة db (5).rar

فورم تحريك كلمات داخل الفورم الدرس الحادى عشر حمل الملف كلام متحرك.rar

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