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

تفضل 🙂 اضف المعيار الجديد الى استعلامك : . اعمل زر تحديث على النموذج الرئيسي ، وضع هذا الكود فيه: Dim rst As DAO.Recordset DoCmd.Hourglass True Set rst = Me.invdetails_Subform.Form.Recordset rst.MoveFirst Do Until rst.EOF DoCmd.SetWarnings False DoCmd.OpenQuery "updateStoretransaction" DoCmd.SetWarnings True rst.MoveNext Loop DoCmd.Hourglass False rst.MoveFirst . جعفر 1393.Update_From_SubForm.accdb.zip

قاعدة البيانات للمستخدمين.accdb

ماشاء الله رائع يا استاذ عبد الفتاح جزاك الله كل خير

جرب هذا الكود بمجرد كتابة الرقم سيتم الفرز تلقائيا Private Sub Worksheet_Change(ByVal Target As Range) Dim SR As Long If Intersect(Target, Range("F:F")) Is Nothing Then Exit Sub With Worksheets("Sheet1") SR = .Cells(.Rows.Count, "F").End(xlUp).Row .Range("B4:F" & SR).Sort Key1:=.Range("F4"), Order1:=xlDescending, Header:=xlYes End With End Sub SORT.xlsm

جرب هذا الماكرو عليك بوضع ملفاتك في مجلد محدد يقوم الماكرو بفتح المستعرض حدد المجلد الذي به الملفات ثم قم يتحديد كامل الملفات وسيقوم بدمجها في ملفك مع مراعاة اسم الورقة بالانجليزي في ملف التجميع Worksheet Sub Consolidation() Dim CurrentBook As Workbook Dim WS As Worksheet Set WS = ThisWorkbook.Sheets("Worksheet") Dim IndvFiles As FileDialog Dim FileIdx As Long Dim i As Integer, x As Integer With WS If Len(.Range("a2")) Then Intersect(.UsedRange, .UsedRange.Offset(0)).Clear 'removes old data End If End With Set IndvFiles = Application.FileDialog(msoFileDialogOpen) With IndvFiles .AllowMultiSelect = True .Title = "Multi-select target data files:" .ButtonName = "" .Filters.Clear .Filters.Add ".xlsx files", "*.xlsx" .Show End With Application.DisplayAlerts = False Application.ScreenUpdating = False For FileIdx = 1 To IndvFiles.SelectedItems.Count Set CurrentBook = Workbooks.Open(IndvFiles.SelectedItems(FileIdx)) For Each Sheet In CurrentBook.Sheets Dim LRow1 As Long LRow1 = WS.Range("A" & WS.Rows.Count).End(xlUp).Row + 2 Dim LRow2 As Long LRow2 = CurrentBook.ActiveSheet.Range("A" & CurrentBook.ActiveSheet.Rows.Count).End(xlUp).Row Dim ImportRange As Range Set ImportRange = CurrentBook.ActiveSheet.Range("A2:F" & LRow2) ImportRange.Copy WS.Range("A" & LRow1 + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Next CurrentBook.Close False Next FileIdx Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

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

وعليكم السلام 🙂 استعلامك صحيح ، وعندك حاليا شرط رقم الفاتورة ، واذا اردت ان تضيف الشروط / المعايير ، فتقدر تحت كل حقل ان تكتبه 🙂 اما اذا اردت تشغيل الاستعلام من النموذج ، فضع الكود التالي على اي حدث يناسبك: if me.dirty then me.dirty = false docmd.setwarnings false docmd.openquery "updateStoretransaction" docmd.setwarnings true ملاحظة: من الخطورة ان تضع On error Resume Next في كل حدث في الكود ، فاذا حدث خطأ معين ، فلن تعرف اين الخطأ وما هو الخطأ ، لذا يجب عليك اصطياد الخطأ ، ثم عمل كود لمراعاة هذا الخطأ فقط !! جعفر

و عليكم السلام و رحمة الله وبركاته اتوقع ان المشكلة في انك بتترك خلايا فارغة في العمود B حاول تعبيها باي قيمة ولو صفر جرب و ياليت تغير الصورة الشخصية لو تكرمت

مرفق الملف مع الاكواد كود لمسح كامل النموذج اضغط على الفرشاة للتنظيف Range("J2:M2").ClearContents Range("A8") = "" Range("B8") = "" Range("C8") = "" Range("E8") = "" Range("B11:H319").ClearContents ActiveWindow.LargeScroll Down:=-99 كود للبحث اضغط على البحث تم اضافة خلايا جانبيه مع بعض الدوال لعمل الكود للبحث Dim TC, RN1 As Range, RN2 As Range, RN3 As Range Range("J2:M2").ClearContents For TC = 10 To 13 If Cells(3, TC) = "" Then GoTo 9 Else Cells(2, TC) = Cells(3, TC).Value End If 9 Next 'tr Set RN1 = Sheets("DATA").Range("B5:J55555") Set RN2 = Sheets("Dates").Range("J1:M2") Set RN3 = Sheets("Dates").Range("B10:H555") RN1.AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=RN2, CopyToRange:=RN3, Unique:=False انظر المرفق N BANK.xlsm

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

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

السلام عليكم و رحمة الله وبركاته اولا: العنوان مخالف الطلب لم افهمه هل تريد ان تظهر البيانات في ورقة المستفيدين او في ورقة data و لو توضح بمثال يكون افضل

أخي حسين 🙂 لك مجموعة من المواضيع تتكلم فيها عن الحجم الكبير لقاعدة البيانات ، أما آن الاوان ان تحل المشكلة من اصلها !! اخونا @Shivan Rekany عنده موضوع لهذا: جعفر

تفضل التعديل استاذ abouelhassan ارجو ان يكون طلبك حسب فهمي DATA14-1.rar

اي نعم تتاثر بس ممكن اعمل لك ملف اذا حددت اكبر عدد من الادخالات تتوقعها شوف المرفق عدلت المدى الى 3000 عملية Export.xls

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

بسم الله الرحمن الرحيم اخوتي الافاضل سلام الله عليكم ورحمتة وبركاتة اما بعــد... لدي ملف اكسيل او Text متغير الاسم في Folder واريد ان اعمل ربط معه في الاكسيس فهل يمكن عمل ذلك دون الحاجة الى عمل ربط جديد كل يوم بسبب تغير الاسم وشكرا.

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

المواضيع المتشابهة 1) 04/03/2005 تحويل عناصر النموذج للعربية 2) 26/02/2005 التعامل مع عنصر تحكم علامة جدولة 3) 13/01/2005 عمل نموذج بدون إطار 4) 29/12/2004 ما معنى كلمة Tag بالعربي 5) 14/12/2004 لا أريد أزرار مربعة رمادية ! 6) 14/09/2004 تخصيص أيقونة لكل نموذج 7) 12/07/2004 استخراج كائن ole الى طبيعته الاساسية 8) 06/05/2004 تثبيت النموذج - كيف اجعل النموذج لا يتحرك 9) 29/04/2004 حل تنسيق ضبط كلي لحقل المذكرة في أكسس 10) 06/04/2004 التحكم في أعمدة وصفوف النموذج الفرعي 11) 06/03/2004 مشكلة في تكبير النموذج

كيف يمكنني عمل ترقيم تلقائي بحيث لا يكون نوع الحقل ترقيم تلقائي ولكن يكون رقم بحيث إذا أضفت سجل جديد يعطيني الرقم التالي وإذا حذفت لا يحذف رقماً وإنما يعطي ترتيب الرقم الذي يليه؟؟؟؟؟؟؟؟؟ بعكس الترقيم التلقائي الذي إذا حذفنا منه أي سجل يحذف الرقم نهائياً هل يمكنني عمل زر أوامر جديد بحيث عند إضافة السجل يعطيني قيمة الحقل +1 ولكن كيف يتم إذا حذف سجل

لدي في التقرير ارقام اريد جمعها على النحو التالي 1905+137.12 -63.5 =1979 عند اخفاء الكسر بعد الفاصله اي عندما اجعل التنسيق للارقام قياسي يكون الناتج 1905 + 137 -64 = 1979 وهنا واضح ان الدالة اخذت في الجمع الكسور ايضا كيف اجعل الجمع للاعداد الصحيحة فقط اي يكون الناتج 1978

السلام عليكم ورحمة الله وبركاته في أكسيس عند عمل نموذج للبحث نجعل مصدر النموذج استعلام وفي معايير تحت اسم الحقل الذي نبحث فيه نضع اسم النموذج واسم مربع النص هكذا: [forms]![frm1]![txt1] ولكن مشروع أكسيس لا يقبل ذلك كذلك التصفية حيث تضهر رسالة تتطالب بالتحقق من أداة التصفية للملقم . فضلاً شرح عمليات البحث والتصفية في مشروع أكسيس . وفق الله .

السلام عليكم ورحمة الله لدى إستفسار لست أدرى إن كان بسيطا أم غير ذلك كيف اجعل مربع النص (عند طباعة تقرير) أن يُظهر إتجاه النص من اليمن إذا كانت الكتابة بالعربى وأن يُظهر إتجاه النص من اليسار إذا كانت الكتابة إنجليزية؟. ولدى استفسار آخر بعد إذنكم حيث ان لا استطيع التواجد يوميا فى هذا المنتدى الموقر (نظراً لعدة أسباب منها ارتفاع قيمة فاتورة الهاتف). أين أستاذنا الكبير أ.م محمد طاهر ؟؟ .. ارجو ممن يراه ان يهديه سلامى. شكرا لكم جميعا.

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

السلام عليكم كيف اقوم في برنامجي بإلغاء عمل كافة مفاتيح الإختصارات , وإستبدالها بأخري مثل مفتاح start و مجموعة F والتاب وغيرها من كافة المفاتيح حيث اريد ان لايتم اي معاملة مع الوندوز ولا معرفة الوصول لأي شيء غير البرنامج المحدد فقط وشكرا لكم

أضع في الجامعة هذا المثال الصغير أبين فيه كيفية تعطيل مفتاح الشيفت بواسطة الكود, و هو موضوع يتعلق بمجال تأمين قاعدة بيانات أكسس أو تأمين التطبيق في حد ذاته. في المثال المرفق وضعت اٍمكانية تفعيل مفتاح الشيفت بواسطة الضغط على تسمية, و يمكن ارنشاء زر للقيام بالعملية, فعند النقر فوق "أنقر هنا لتفعيل مفتاح الشيفت" تظهر لك نافذة لاٍدخال كلمة السر و هي biskra فاٍذا كانت كلمة المرورصحيحة فاٍن مفتاح الشيفت يصبح مفعل و اٍن لم تتمكن من اٍدخال كلمة المرور الصحيحة فاٍن مفتاح الشيفت سوف يتعطل و لا يمكن اٍستعماله حتى في الحالة التي يكون فيها مفتاح الشيفت مفعل http://montada.hiarab.net/attachment.php?a...ttachmentid=682 Shift_Password_biskara.rar