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

فورم اضافة ومسح وحذف وتعديل و بحث بعددة طرق مختلفة الفيديو الصور

فورم سرى الدخول لمجموعة من العاملين الفيديو

تفضل اخي التعديل على طريقة تحديد سجلات 37 سجل في كل صفحة test120 (1).mdb

تفضل التعديل اخي الكريم موظف.accdb

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

جرب هذل الملف أولاً الماكرو Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$C$1" Then Call filter_me(Range("A3").CurrentRegion, 6, Target.Value) End If Application.EnableEvents = True End Sub '=========================================== Sub Create_dat_val() Rem created By Salim Hasbaya On 17/9/2019 Dim s1 As Worksheet: Set s1 = Sheets("sheet1") Dim ro_n: ro_n = s1.Range("A3").CurrentRegion.Rows.Count Dim i% Dim dict As Object: Set dict = CreateObject("Scripting.Dictionary") With s1 For i = 4 To ro_n dict(.Range("F" & i).Value) = "" Next With .Range("c1").Validation .Delete .Add xlValidateList, Formula1:=Join(dict.keys, ",") End With End With dict.RemoveAll End Sub '=========================================== Sub filter_me(rg As Range, n, My_st) Rem created By Salim Hasbaya On 17/9/2019 If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData rg.AutoFilter End If rg.AutoFilter field:=n, Criteria1:=My_st End Sub '=========================================== Sub Show_Me_All() Rem created By Salim Hasbaya On 17/9/2019 If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData Range("A3").CurrentRegion.AutoFilter End If End Sub ثانياً الملف Filter_By_Select.xlsm

تفضل اخي الكريم هذه فكرة مبدئية بناء على جدول الاكسل في ما بعد تستطيع انشاء شهادات لحضور الدورات و امور كثير بإستطاعتك تنفيذها اسم المستخدم : Admin كلمة المرور : 123 ** مع العلم لقد تركت المصدر مفتوح لكي تستيطع التعديل عليها و طلب المساعدة تدريب.mdb

السلام عليكم ارجو الحصول على مساعدة في كيفية تطبيق نظام الوارد اولا صادر اولا في الاكسس امثلة او شروحات عملية تحياتي

و هذا حل آخر على طريقة مختلفة قيمه فى حقل اريدها تظهر فى اول سجل فقط.rar

الله يبارك فيك اخي واستاذي الفاضل ابو ياسين جزاك الله كل خير

اعتذر عن المشاركة

اعمل قاعده جديده واستور كل شي الى الجديد او حاول تعمل ضغط واصلاح

أخي انقل الامضاء من تذييل التقربر الى تذييل الصفحة و تنحل المشكلة ان شاء الله

طالما انك لم تقم برفع ملف -فكان لزاما عليك استخدام خاصية البحث فى المنتدى فهناك العديد من الموضوعات التى تخص طلبك ومنها https://www.officena.net/ib/topic/95467-فورم-اضافة-وتعديل-وحذف-وحفظ-الملف/

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

جازاكم الله بارك الله فيكم

الأخ الفاضل اسلام سيد فقط قم برفع الرصيد السابق من التفصيل الى رأس التقرير عسى أن يكون المطلوب قيمه فى حقل اريدها تظهر فى اول سجل فقط.zip

السادة الزملاء الأفاضل محتاج مساعدتكم لنسخة برنامج أكسس لمتابعه الأقساط يتم البيع بالتقسيط

مشكور يا استاذنا

قبل فترة نزلت برنامج بهذا الخصوص ابحث في المنتدى بتلاقيه

اخى الفاضل ابو زاهر هو للأسف صورة الباركود لم تكن واضحة تماما بحيث يتم قرائتها بذراع القارئ المتوفر لدى(Metrologic MS5145) .. ولكنى قمت بإنشاء نفس الباركود (60190-312300) عندى وطبعته سواء على الطابعة العادية او طابعة الباركود (Zebra TLP 2844) وتم قرائتهم بكفاءة .. وأرفق اليك صورة الباركود الذى قمت بطباعتة عندى .. جرب قرائته .. فإذا قرأه تمام ففى هذه الحالة يجب أن تعرف نوع خط الباركود المتوفر لديك حتى يتم تمكينة على قارئ الباركود الخاص بك .. وإذا لم يقرأه بصورة صحيحة أيضا .. فأعتقد والله أعلم أن السبب يرجع لإعدادات نظام الويندوز لديك. مرفق: 1-صورة PDF للباركود 2-تعليمات تمكين والغاء تمكين انواع الأكواد الخاصة بذراع قارئ الباركود وإن أمكن المحاولة مرة أخرى بإرسال صورة واضحة يا سلام لو بكاميرا ديجيتال 🤩😀 ودعنى أجرب معك والله الموفق BarCode.rar

الله يفتح عليك ممتاز والله العظيم ربنا يرفع قدركم وباقى الحقول جعلتها تساوى انفس الحقل فى النموذج الرئيسى (فى القيمه الافتراضيه )

السلام عليكم مجرد مشاركة الفكرة MsgBox DateSerial(Year(DT), IIf(Day(DT) <= 15, Month(DT), Month(DT) + 1), 1) [DT] اسم الحقل التاريخ

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

اتفضل Prog1 (2).mdb

عليكم السلام المشكلة اتك ربطت نموذج الرئيسي و الفرعي بثلاثة حقول منهم العميل و المورد و للحل تلك المشكلة اكتفاء على ربط حقلي السريال فقط من كل نموذج مشكله الحقل الفارغ.accdb

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

الف شكرا لك اخي الكريم على هذه الكلمات المحفزة و المشجعة و مرورك العطر

ماشاء الله دئما مبدع اخي حسن كمال

😃😃 غلطة الشاطر بعشرة

انظر الى هذا الاستعلام وأستاذى العزيز واخى الحبيب الاستاذ @kha9009lid اكتشفت شئ بمرفق اخونا الحبيب الاستاذ @مرحبا البي ماذا ان كان التاريخ >>----> 16/12/2019 لقد قمت بعمل الكود الاتى لحل هذه المشكلة Function RD(MyDate As Date) Select Case Nz(Month(MyDate), "") Case Is <= 11 Select Case Nz(Day(MyDate), "") Case Is <= 15 RD = Format("01" & "/" & Format(MyDate, "mm/yyyy"), "dd/mm/yyyy") Case Is > 15 RD = Format("01" & "/" & Format(MyDate, "mm") + 1 & Format(MyDate, "/yyyy"), "dd/mm/yyyy") End Select Case Is = 12 Select Case Nz(Day(MyDate), "") Case Is <= 15 RD = Format("01" & "/" & Format(MyDate, "mm/yyyy"), "dd/mm/yyyy") Case Is > 15 RD = Format("01/01/" & Format(MyDate, "yyyy") + 1, "dd/mm/yyyy") End Select End Select End Function ---------------------- test5.accdb

بارك الله بك استاذ علي و زيادة في توضيح الامور هذا الملف From To.xlsx

بارك الله فيك استاذ سليم وهذا يتم بمعادلة المصفوفة -فلابد من الضغط على Ctrl+Shift+Enter وليس Enter فقط كباقى المعادلات =IFERROR(INDEX($D:$D,SMALL(IF($A:$A=$G$5,IF($B:$B>=$H$5,IF($B:$B<=$H$6,ROW(B$6:B$7000)-ROW(B$6)+1))),ROWS($K$6:K6))),"") Book11.xlsx

جر ب هذا الشيء Evaluation _Salim.xlsx

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

أخي @ماجدجلال تفضل ..... 1200.mdb

وعليكم السلام-تفضل هذا الكود Option Explicit Sub opening_multiple_file() Dim i As Integer With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True .Filters.Clear .Filters.Add "Excel Files", "*.xls*" If .Show = True Then For i = 1 To .SelectedItems.Count Workbooks.Open .SelectedItems(i) Next i End If End With End Sub