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

2- عرض الرسالة مع مربع نص صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 02- Msgbox With Input Box.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني . انه لتطبيق ثري فعلاً ويحتاج لدراستة ثم تحليلة وعرضة فى المنتدى مع شرحة وان شاء الله عند انتهاء هذه السلسلة سوف احلله وانشأ له سلسله ايضاً .

هذه يسهل ما تشاء من شروط .... استخدم هذا Dim myCriteria As String myCriteria = "[نوع المستند] = '" & Me.نوع_المستند & "'" myCriteria = myCriteria & " AND " myCriteria = myCriteria & "[كود الدعوي] =" & Me.كود_الدعوي Me.n = DCount("[كود الحركة]", "harka", myCriteria)

السلام عليكم ورحمة الله وبركاته . كما وعدتكم الاصدارالثاني لبرنامج صانع القوائم فى البداية هذا العمل مجاني لوجة الله ولكن اتمنى مزيد من التفاعل لارتقاء العمل وحس المساعدة بيننا فالصدار الاول تخطي 550 مشاهدة و 7 ردود فقط فأذا تخطي هذا المشروع 100 رد يكون المشروع الثاني مفاجأه وهو ارسال رسائل SMS مجاناً معتمداً على الباقة المتوفرة من شركة جوالك دون تكلفة اضافية او وسيط والان فيديو شرح البرنامج : لتحميل البرنامج : https://www.mediafire.com/file/z17cd3rpjtikyxi/ARM.exe مساعدة من الخبراء ان أمكن هل من الممكن تشغيل سكريبتك بالاكسس دون الحجة لتفعيله يدوياً كما موضح بأخر الفيديو مع العلم باننى قمت بمحاولات لا تحصي ولكن لا يعمل بالجودة المطلوبة . ثانياً تشغيل زر تصدير الدوال حتى يقوم الصانع بتصدير الدوال والجدول المخصص للشريط دون الحاجة لاستردادهم يدوياً . ولكم جزيل الشكر .

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

ليس ما يدعو للاسف اخي الكريم ... حياك الله .. بالنوفيق

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

عفوا ، كان لازم اكتب هذه الجملة في مشاركتي السابقة ، ونسيت 😁 انتبه للعلاقة الجديدة التي عملناها ، فقد تؤثر على اشياء اخرى في برنامجك ، وتذكّر ، ان تجربتي كانت لهذه الجزئية لبرنامجك ، بعيدا عن بقية البرنامج 🙂 جعفر

تم دمج الموضوعين 🙂

أضف +1 Me.n = DCount("[harka_Num]", "harka", myCriteria)+1

بصراحة كود ممتاز جدا بارك اله فيك

لا يوجد أي مشكلة تم التحويل بدون اي أخطاء D.zip

3- عرض الرسالة مع مربع نص بقيمة افتراضية صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 03- Msgbox With Input Box With a default Value - Copy.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني . 4- عرض الرسالة مع مربع نص بقيمة افتراضية سطري مع الازرار صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 04- Msgbox With Input Box With a default Value Line with buttons.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني . 5- عرض الرسالة مع مربع نص بقيمة افتراضية أسفل الازرار صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 05- Msgbox With Input Box With a default Value In Footer.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني . 6- عرض الرسالة مع مربع نص بقيمة افتراضية مع تغير عرض المربع صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 06- Msgbox With Input Box Resize Width.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني . 7- عرض الرسالة مع مربع نص مع ملحوظة داخل مربع النص صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 07- Msgbox With Input Box Cue.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني . 8- عرض الرسالة مع مربع نص لادخال الرقم السري مع ملحوظة صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 08- Msgbox With Input Password.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني .

أخي هذا ملف قم بفتحه واذهب في sheet transaction للأخير وأضف بالItem Code أي iTEM فيضع لك المعلومات عن هذا الكود (باستخدام vLOOKUP وورقة STOCK2021-2022) والآن قم بعملية بيع مثلا SELL و ضع العدد 1 - سينقص QUANTITY IN STOCK 1 وسيتمّ وضعه في NEW STOCK حيث سينقل الى ورقة الSTOCK TestStock21-22.xlsm

وعليكم السلام 🙂 1. مرحلة التحليل: بما ان العلاقة بين الجدولين . اذن خلينا نشوف القيم كما هي بين الجدولين: . اذن هذه هي قيم MNO التي نريدها من مجاميع الحقل MUSNAD ، اي ان مجاميع الحقل MUSNAD ويقابلها اقل قيمة للحقل MNO . 2. مرحلة التطبيق: في الجدول TAB ، يجب تجميع الحقل MUSNAD ، واخذ اقل قيمة من الحقل MNO لكل MUSNAD . وهذه هي النتيجة ، وللتأكد (تطابق البيانات كما في الصورة اعلاه) : . نريد جملة SQL الاستعلام (نفس الاستعلام ، ولكننا نريد الحقل MNO فقط) . نضع جملة SQL الاستعلام السابق كمعيار للحقل (هذه يسمى استعلام فرعي) : . هذا يصير فقط اذا كان فيه علاقة بين الحقلين : بسبب وجود علاقة بين الجدولين TAB و Tab_Msaneed ، فنستطيع اضافة حقل آخر في العلاقة ، ولكن الاكسس لا يقبل بسبب عدم وجود فهرسة للحقل MNO في الجدول Tab_Msaneed الطريقة الاخرى لعمل هذه العلاقة: 1. نضيف الجدول TAB مرة اخرى في العلاقات ، فقام الاكسس بتسميته TAB_1 ، 2. نسحب الحل MNO من الجدول TAB_1 الى الحقل MNO في الجدول Tab_Msaneed (او العكس) ، فتظهر لنا هذه النافذة ، نختار الاختيارات الثلاث: Enforce : يتأكد من ان القيم صحيحة في الجدولين ، ولا يسمح بعمل قيمة في جدول غير موجودة في الجدول الآخر (الحقل الرأس) ، Update : عند تبديل القيمة في الحقل الرأس ، تلقائيا تتغير القيمة في الحقل الآخر (سواء كان سجل او مجموعة سجلات) ، Delete : عند حذف لقيمة في الحقل الرأس ، يتم حذف القيمة في الحقل الآخر (سواء كان سجل او مجموعة سجلات) . . جعفر 1418.Musnad.accdb.zip

صحيح تم حل المشكلة لم افهم المقصود نعم صحيح و السبب لكي يكون لك مطلق الحرية في تصميم الملف تفضل التعديل الدائن و المدين.zip

اعتقد ان هذا الماكرو يفي بمتطلباتك اكتبي رقم العمود الذي تريدينه ان يقوم بترحيل بياناته Sub parse_data() Dim lr As Long Dim ws As Worksheet Dim vcol, i As Integer Dim icol As Long Dim myarr As Variant Dim title As String Dim titlerow As Integer Application.ScreenUpdating = False vcol = Application.InputBox(Prompt:=" اي العمود الذي تريد فرزه", title:="فلترة عمود", Default:="3", Type:=1) Set ws = ActiveSheet lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row title = "A1" titlerow = ws.Range(title).Cells(1).Row icol = ws.Columns.Count ws.Cells(1, icol) = "Unique" For i = 2 To lr On Error Resume Next If ws.Cells(i, vcol) <> "" And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol) End If Next myarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants)) ws.Columns(icol).Clear For i = 2 To UBound(myarr) ws.Range(title).AutoFilter field:=vcol, Criteria1:=myarr(i) & "" If Not Evaluate("=ISREF('" & myarr(i) & "'!A1)") Then Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = myarr(i) & "" Else Sheets(myarr(i) & "").Move after:=Worksheets(Worksheets.Count) End If ws.Range("A" & titlerow & ":A" & lr).EntireRow.Copy Sheets(myarr(i) & "").Range("A1") 'Sheets(myarr(i) & "").Columns.AutoFit Next ws.AutoFilterMode = False ws.Activate Application.ScreenUpdating = True End Sub

هذا مثال اخي الكريم فيه عده صور واستخدامات عديدة للرسائل وبطرق متعددة .... يمكن ان يثري الموضوع .... ناقل.rar

للرفع

ارفق مثال حتي يستطيع اساتذنا مساعدتك

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

ادخل ارقام اللزوجة في الخلايا الصفراء ولاحظ النتيجة جرب المرفق اللزوجة.xlsx

السلام عليكم ورحمة الله استخدمى هذا الكود Sub CrNewSheets() Dim dic As Object, arr As Variant, Itm Dim i As Long, ws As Worksheet Set ws = Sheets("مخازن رقم 1") Set dic = CreateObject("scripting.dictionary") arr = ws.Range("J2:J" & ws.Range("J" & Rows.Count).End(3).Row).Value For i = 1 To UBound(arr) dic(arr(i, 1) & "") = "" Next On Error Resume Next ws.Range("A1:K1").Copy For Each Itm In dic.keys If Len(Trim(Itm)) > 0 Then If Len(Worksheets(Itm).Name) = 0 Then Sheets.Add(after:=Sheets(Sheets.Count)).Name = Itm Sheets(Itm).Range("A1").PasteSpecial xlPasteAll End If End If Next Application.CutCopyMode = False End Sub

السلام عليكم ورحمة الله وبركاته لو سمحت ياريت التعديل على الكود بحيث يكون اللصق في شيت التقرير من العمود الاول اي A6 كما في الشيت المرفقتقارير.xlsm

تفضل هذا التعديل بكود واحد فقط ... - لن يستطيع المستخدم الإدخال الا بعد اختيار نوع الفاتورة - جميع الحقول متاحة لكن لن يستطيع المستخدم ادخال البيانات الا بعد اختيار نوع الفاتورة امكانية التسجيل.accdb

بارك الله في استاذ عبدالله على هذه المحاولة

استخدم هذا الكود .... DoCmd.TransferDatabase acLink, "Microsoft Access", Me.txtPath, acTable, "MSysObjects", "oo", False If DCount("[Name]", "oo", "[Name] = '" & Me.ObjName & "'") = 1 Then MsgBox "الجدول موجود مسبقا" Else MsgBox "الجدول غير موجود" End If

حفظك الله اخي الفاضل ولك كل تقديري واحترامي

حبيبي التقارير المرفقة كل تقرير على حده هذه الجداول جميعها أريد طريقة أضعها في تقرير واحد فقط