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

السلام عليكم Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 46 Then ' your msg exit sub End If End Sub

في الملف المرفق عندنا جدول من A1 الى F8 وعلى المستخدم ان يملؤه بالترتيب (في كل صف) مثلا اذا قمت بالكتابة في الخلية D4 و كان ما قبلها فارغاً (C4) يقوم الدكتور اكسل بمسح ما قمت بكتابته بعد الخروج من الخلية دون انذار و اذا حذفت اول خلية بالصف يتم حذف كامل الصف الكود Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Range("A1:F8")) Is Nothing Then If Target.Count = 1 Then del_to_Column (Target.Row) End If End If Application.EnableEvents = True End Sub '================================ Sub del_to_Column(R) Dim My_rg As Range, R_Empty As Range Dim Col% Set My_rg = Cells(R, 1).Resize(, 6) Col = My_rg.Columns.Count Set R_Empty = My_rg.Find(vbNullString, After:=Cells(R, 6)) If Not R_Empty Is Nothing Then R_Empty.Resize(, Col - R_Empty.Column + 1) = vbNullString End If End Sub الملف مرفق write_by_order.xlsm

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

على اعتبار ان حقل المجموع اسمه = txtQuantity ضع هذا الكود على زر الامر جديد Select Case Nz(txtQuantity, "") Case "" MsgBox "Quantity is empty, include the Quantity please" Case Is <= 0 MsgBox "Quantity is zero or less, include the Quantity please" Case Is > 0 DoCmd.GoToRecord , , acNewRec End Select

في مربع نص الكمية وفي حدث عند الخروج ضع هذا الكود ... مع تعديل ما يلزم If IsNull(Me.Namex) Then ' Namex هو اسم مربع نص الكمية MsgBox "ادخل بيانات", vbCritical, "dATA" DoCmd.CancelEvent End If

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

وعليكم السلام Total.xlsm

أحسنت استاذ سليم كود ممتاز بارك الله فيك وجزاك الله كل خير

وذلك بهذا الكود Sub InsertPageBreaksByKeyphrase() Dim rangeSelection As Range Dim cellCurrent As Range Set rangeSelection = Application.Selection ActiveSheet.ResetAllPageBreaks For Each cellCurrent In rangeSelection If cellCurrent.Value = "رقم البطاقة التموينية" Then ActiveSheet.Rows(cellCurrent.Row + 1).PageBreak = _ xlPageBreakManual End If Next cellCurrent End Sub

وعليكم السلام-وذلك كما بالصورة

وعليكم السلام-جرب هذا 1.xlsm

تفضل جرب هذا الفيديو https://www.youtube.com/watch?v=0NBrHj5Ca4E

تفضل لك ما طلبت Date1.xlsx

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

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

جرب هذا الماكرو بالنسبة للملفات HR_test Option Explicit Sub copy_data() Dim S As Worksheet: Set S = Sheets("Shift Schedule") Dim O As Worksheet: Set O = Sheets("Overtime") Dim A As Worksheet: Set A = Sheets("Attendance") Dim Final_S: Final_S = S.Cells(Rows.Count, 1).End(3).Row Dim Final_O: Final_O = O.Cells(Rows.Count, 1).End(3).Row Dim Final_A: Final_A = A.Cells(Rows.Count, 1).End(3).Row Dim Rs As Range: Set Rs = S.Range("A8:AG" & Final_S) Dim RO As Range: Set RO = O.Range("A8:AG" & Final_O) Dim RA As Range: Set RA = A.Range("A8:AG" & Final_A) Dim i%, xO%, XA%, xx% xO = RO.Rows.Count: XA = RA.Rows.Count Rs.ClearContents i = 1: xx = 8 Do Until i > xO S.Cells(xx, 1) = RO.Cells(i, 1) S.Cells(xx, 3).Resize(, RO.Columns.Count - 2).Value = _ RO.Cells(i, 3).Resize(, RO.Columns.Count - 2).Value i = i + 1: xx = xx + 2 Loop i = 1: xx = 9 Do Until i > XA S.Cells(xx, 1) = RA.Cells(i, 1) S.Cells(xx, 3).Resize(, RA.Columns.Count - 2).Value = _ RA.Cells(i, 3).Resize(, RA.Columns.Count - 2).Value i = i + 1: xx = xx + 2 Loop End Sub الملف مرفق Salim_TEST3.xlsm

تفضل هذا الاقتراح الضريبة.accdb

شكرا أستاذ Barna وشكرا لك أستاذ ابا جودى الطريقتين تعملان و بفعلية شكرا جزيلا

اخي الكريم لنفترض انه لديك جدول للمستخدمين (UserId , UserName , Password , UserTayb, Additions (Yeas / No), Deletions (Yeas / No), Edits (Yeas / No)) ففي شاشة الدخول LOGIN نحتاج لتعريف متغيرات عامة من نوع Global حسب جدول المستخدمين ففي حال تطابق اسم المستخدم مع كلمة المرور يتم جلب بيانات المستخدم و تخزينها في المتغييرات اذا فالفكرة العامة بأن نقوم بجلب صلاحيات المستخدم و تطبيقها على جميع النماذج من خلال الاتصال بالموديل Call ففي جميع الأحوال يتم التطبيق حسب حاجة التصميم لديك

تفضل التعديل اخي الكريم ==>> بالماكرو Database2.accdb

اذا تفضل هذا التعديل Database2.accdb

تحياتي الخالصة تفضل المطلوب في الملف المرفق... بن علية حاجي تقرير (1).xlsx

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

تفضل اخي الكريم هذا الكود لانشاء نسخة احتياطية مماثلة في ازرار النسخة الاحتياطية ضع في حدث عند الضغط الكود التالي كما انصحك بأن تضع هذا كود ضمن امر الحفظ Dim MyFile, DstFile As String Dim Syso As Object On Error GoTo ErrH MyFile = CurrentProject.FullName DstFile = CurrentProject.Path & "\Backup-" & Format(Date, "dd-mm-yyyy") & ".accdb" DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing Name DstFile As DstFile & ".ptc" DBEngine.CompactDatabase DstFile & ".ptc", DstFile Kill DstFile & ".ptc" MsgBox "تم انشاء قاعدة البيانات بنجاح" & vbNewLine & "Database successfully created" & vbNewLine & vbNewLine & "" & "اسم قاعدة البيانات" & vbNewLine & "The name of the database" & vbNewLine & "" & vbNewLine & "Backup-" & Format(Date, "dd-mm-yyyy") & vbNewLine & vbNewLine & "" & "مسار القاعدة الجديدة" & vbNewLine & "Path of the new rule" & vbNewLine & "" & vbNewLine & DstFile, vbMsgBoxRight + vbOKOnly, "emphasis" & "/" & "تاكيد" Exit Sub ErrH: Select Case Err.Number End Select

اخي الكريم ضع في حدث عند الفتح الكود التالي لمنع الحذف Me.AllowDeletions = False =================================== خيارات اخرى يمكن وضعها مع صلاحيات المستخدمين لمنع التعديل Me.AllowEdits = False لمنع الاضافة Me.AllowAdditions = False

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 46 Then KeyCode = 0 MsgBox "يمكنك الحذف من النموذج فقط" End If End Sub

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

أحسنت استاذ مجدى عمل رائع بارك الله فيك ورحم الله والديك

السلام عليكم إخواني/أخواتي البرنامج الاصل هنا: http://www.officena.net/ib/index.php?showtopic=60235&p=386739 ولكن الظاهر ان بعض الشباب رأى بأن البرنامج اصبح معقد ، لذلك ، الغيت جميع النماذج والجداول التي لا علاقة لها بالماسح الضوئي scanner ولشرح اضافي لعمل البرنامج: الهدف من البرنامج هو سرعة العمل ، بحيث انك تضبط الاعدادات مرة واحدة ، وتحفظ كل اعداد بإسم Profile مختلف ، وفي عملية المسح ، كل ما عليك عمله هو اختيار Profile من القائمة المنسدلة ، وتضغط على الزر Scan 1. تستطيع ان تستعمل اكثر من ماسح ضوئي ، 2. لكل ماسح تستطيع ان تعمل اكثر من Profile واحد ، وكما تلاحظ في الصورة المرفقة ، فقد عملت 4 Profiles للماسح HP Officejet Pro 8500: أ- للمسح من زجاج Glass الماسح (لمسح ورقة واحدة) ، ب- للمسح من الملقم Feeder (لمسح اكثر من ورقة واحدة) ، (هناك بعض البرامج تسألك مسبقاُ عن عدد الاوراق التي تريد سحبها ، ولكن برنامجي لا يسأل ) ، ج- للمسح من الملقم Feeder ، Duplex (لمسح اكثر من ورقة واحدة ، من جانبي الورقة ، طبعا اذا كان الماسح يحمل هذه الميزة) ، . 3. لكل Profile ، تستطيع ان تضبط مجموعة اعدادات ، ومنها صيغة حفظ الصورة كـ pdf او jpg او png او tif ، والسبب ان عندي عدد 2 Profile للملقم Feeder ، هو ان احدها يمسح الاوراق ويحفظها جميعا في ملف بصيغة pdf ، بينما الـ Profile الاخر يحفظ كل ورقة بصيغة jpg متسلسلة ، (هناك بعض البرامج التي تقول بأنها تحفظ الصورة بصيغة jpg ، ولكن الصورة في الواقع بصيغة Bmp ، فمجرد تغيير اسم صيغة الملف لا يغير صيغة الملف نفسه) ، ملاحظة هامة: البرنامج لا يتأكد من وجود صور سابقة في مجلد الحفظ ، فإنه يحذف الصور السابقة ويستبدلها بصور جديدة. 4. الميزة في عمل اكثر من Profile لكل ماسح ، هو انه ، عند المسح ، فانك لا ترجع وتختار الاعدادات في كل مرة تريد المسح ، وانما تختار اسم Profile ، وتضغط على زر المسح (البرامج الاخرى ، إما انها لا تعطيك خيارات تضبيط الاعدادات ، او انك تضطر الى تضبيط الاعدادات في كل مرة تريد المسح) ، لاحظ في الصورة التالية ، الاعدادات التي تم حفظها مسبقا للـ Profile HP8500_Duplex ، فكل الذي تعمله هنا هو اختيار Profile من الرقم 1 ، ثم تضغط على الرقم 9 للمسح : . 5. العيب الذي يُوجه الى البرنامج ، انه يستخدم وسيط خارجي وهو NAPS2 ، بينما جميع البرامج الاخرى تستخدم وسيط خارجي ايضا مثل مكتبة wia جعفر Scan_Link_Images_pdf_Files2.zip

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

هل جربت فيه ملفك و نجح حسب المطلوب؟ اذا جواب نعم ممكن رفع مثال توضيحي او صورة عنه؟

طريقة اخرى بدون الحاجة الى جدول رقم2 عن طريق منشئ التعبير ودالة Switch الضريبة2.accdb

اليوزر والباسورد 1 1 2 2 هذا المثال يا استاذ @محمد صلاح1 فى ابسط حالاته بعد التعديل البسيط حسب طلبك الكود الذى يتم وضعه على النماذج للتاكد من الصلاحيات المعطاه FrmAbilities (Me.Name) If ContinueCode = False Then Exit Sub والتقرير ReportAbilities (Me.Name) If ContinueCode = False Then Exit Sub مثال صلاحيات.mdb

هذا على حسب عدد اعمدة كومبوبوكس مثلاً عمود 1 و مصدره نفس حقل في جدول ، كما هو اما اذا عدد أعمدة أكثر من 1 هنا يكن اول عمود رقمي و هذا يعتبر قيمة كومبو بوكس وفي جدول يكن حقل رقمي مصدره ايضا رغم عرض قيمة نصية في كومبو بوكس وفي الحالة يتطلب تغير في الكود. باختصار انشيء مربع نص في نموذج ثم اكتب بداخلها =[ComboboxName] كمصدر تلك المربع اذا عرض نفس نص كما هو في كومبوبوكس ، عادي لا فرق بين كومبوبوكس او غير كومبوبوكس اما اذا عرض رقم، يجب تعديل الكود كي يتعامل مع كومبوبو كحقل رقمي.

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

شرح طريقة ادراج خريطة من قوقل ايرث تعمل داخل ملف البوربوينت بناء على طلب من زميل من العراق الفيديو الصورة الملف خريطة مصر.rar

مسابقات دينية سؤال وجواب الصور مسابقات دينية سؤال وجواب.rar

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

ساجرب الفورم الجديد غدا بمشيئة الله واخبرك

أحسنتما استاذ حسين كمال والأستاذ محمد عصام أعمال ومعلومات ممتازة بارك الله فيكما وجعله فى ميزان حسناتكما

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

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

تفضل هذا اخى الكريم -1التقرير.xlsm

أهلا بك اخ كريم فى المنتدى تفضل لك ما طلبت sum k9 numbers.xls

تفضل لك ما طلبت -1التقرير.xlsm

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

من فضلك قم برفع الملف نفسه وليس صورة منه وان شاء الله ستلقى الحل والمساعدة بارك الله فيك

بعد اذن استاذنا الكبير بن علية حاجى جرب هذا تقريب الرقم العشري.xls

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

تفضل هذا بالمعادلة -1استدعاء الاسماء من عمودين وجعلها في عمود واحد بدون فراغات.xlsx