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

اتفضل Dim db As Database Dim tdfNew As TableDef Dim fldLoop As Field On Error GoTo Err_Command0_Click: Set db = DAO.OpenDatabase(CurrentDb().Name) Set tdfNew = db.TableDefs!basic With tdfNew .Fields.Append .CreateField(Me.[id mon], dbText, 50) End With MsgBox "تمت عملية إنشاء الحقول المحددة بنجاح!!!", vbOKOnly, "رسالة توضيح" Exit_Command0_Click: Exit Sub Err_Command0_Click: MsgBox "إما أن الحقول المراد إنشاؤها موجودة مسبقاً ، أو أن قاعدة البيانات غير موجودة في المكان المحدد!!!", vbOKOnly, "رسالة توضيح" Resume Exit_Command0_Click try.accdb

من أفضل البرامج لتصوير الشروحات بصيغة GIf ويدعم اللغة العربية على الرابط : https://www.screentogif.com/ https://www.screentogif.com/downloads.html

مشاركه مع أخي صالح بريكان هناك طريقة اخرى لاستخراج الاسبوع بدقة دون دخول الاسبوع السابق ولا اللاحق : اما طريقة الأخ الغالي /صالح بريكان تظهر جميع أيام اسابع ماضية و لاحقة ما يصادف ايامها يوم اسبوع الحالي مثلا اليوم يوم السبت تظهر تواريخ جميع أيام السبت سواء ماضية اولاحقة 10/8 24/8...... xx.accdb

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

اتفضل DoCmd.OpenForm "Teb22", , , "[a1] = '" & Me.a1 & "'" & "And [a2] = '" & Me.a2 & "'" ماشاء الله كلنا بتوقيت واحد هههههههههههههه

تفضل اخي الكريم teest.accdb

اتفضل اليك هذا teest.zip

لعل هذا ما تريده الصفحة Salim من هذا الملف Example_Salim_Updated.xlsx

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

فورم بحث عن اى حرف او كلمة فى اى مكان فى العمود المحدد الفيديو الصور

برنامج مساقات للمحاسبة للأستاذ الكبير : محمد أجول قام بشرح البرنامج خطوة بخطوة في عدة دروس في قناته على اليوتيوب التالية :- ملفات العمل لبرنامج المساقات المحاسبي : https://goo.gl/My9F7x ملفات العمل للبرنامج الثاني مساقات أولاين : https://drive.google.com/drive/u/2/fo... ما يميز البرنامج مساقات المحاسبي "المرفق" اعتماده في الغالب على الحقول غير المنضمه ولا يتعمد على الحفظ التلقائي من الأكسس يستخدم مكتبة DAO يمكننا تنزل البرنامج واستعراض الأكواد للاستفادة منها في أعمالنا . مساقات_للمحاسبة,_نسخة_قابلة_للتعديل.accdb

استاذي العين لا تعلى على الحاجب

السجلات الثلاث الاخيرة يوجد بها رموز غير مفهومة ولكن يمكن تعديلها وليس كما اشرت انت في بداية الموضوع (و حتى عند تعديل كمال احمد : الى كمال احمد بدون الرمز لا يتم التعديل و لا يخرج الماوس من الخلية )

استاذ يا ابا محمد 😎

لا توجد اي مشكلة تعديل واستعلام 2019 و2016

السلام عليكم إليك الكود قم بوضعه في حدث مفتاح للأسفل للنموذج و لا تنسى تعيين خاصية مفتاح المعاينة إلى نعم If KeyCode <> vbKeyShift Then KeyCode = 0 End If

نفس الامر يعمل بشكل طبيعي

نعم

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

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

اخي محمد ليس في الملف مشكله ... لاحظ سجلت سجل وبه رمز واخرجت الماوس ... انظر

أخي الكريم يجب ان تأخذ بالحسبان البيئة التي بني عليها البرنامج قبل التعميم بيئة Vb.net تستخدم الاتصال المنفصل وهذا الكلام يعرفه من عمل على هذه البيئة بيئة اوراكل هذا موضوع ثاني بالكامل فخاصيتها لايتم الاضافة أو التعديل قبل النقر على زر الأمر حفظ وإذا قلت لي ان البرامج تم تصميمها بالاكسس سأجيبك ممكن ولكن ليس بطريقة تصميمك فالطريقة تكون عن طريق نماذج غير منضمه كما أشار إليك الاستاذ @kha9009lid الليلة أو غداً إن أسعفني الوقت سأضع مثال ممكن تستفيد منه وتطبق الفكرة على برنامجك ::بالتوفيق::

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

هو نفس الكلام اللي انا قصدت تعتبر ورقة بيانات فرعية وليست نموذج فرعي

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

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

السلام عليكم جرب الملف اوفسينا.xlsx

وعليكم السلام-تفضل هذا الكود 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

اشكركم جميعا الاخ ( شفان ريكاني ) والاخ ( حسين كمال ) والاخ ( محمد ياسين ) كلكم وفيتو وكفيتو جزاكم الله كل خير لكن حل الاخ حسيني صدمني بصراحه لانه بدون شرط وشغال هذا الكود الذي كتبه الاخ حسين DoCmd.OpenForm "Teb22", acNormal الاخ القدير ( كاسر ) اكن لك كل تقدير واحترام واحب ان اوضح ان المثال ليس له علاقه بالواقع وانما لتوضيح السؤال فقط وانا احد الناس الذي استفاد كثير من مشاركاتك اكرر شكري وتقديري للجميع

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

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

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

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

اخي حاول ان تستخدم طرق بسيطه بناء على الصورة اعلاه إن اسهل طريقه هي ان تضع في معيار الاستعلام للنموذج full [forms]![search]![empnumper] بناء عليه لن يتم عرض اي سجل سوى المتوافق مع السجل في صفحة البحث و حتى تضبط الأمور اكثر في تبويب الخصائص > غير ذلك > دورة السجل = السجل الحالي

جرب هذا او افتح موضوع جديد وارفق ملف نص DoCmd.OpenForm "DEC_D_Cont", acNormal, , "[Nem_1] ='" & "'" & Me.Nem_1 & "'" And "[Nem_2] ='" & "'" & Me.Nem_2 & "'" رقم DoCmd.OpenForm "DEC_D_Cont", acNormal, , "[Nem_1] = & " & Me.Nem_1 & " " And "[Nem_2] = & " & Me.Nem_2 & ""

اظن عندما عندما تسنخ اسم العضوء ثم تكتب فتلقائي يتلون

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

المعذرة اخي د.كاف يار لم اشوفك ردك

العفو و تحت امرك و امر الجميع و الأمر كله لله وحده

الكلي =Abs(Nz(DSum("[sup_depit]";"[ديون الموردين]"))) المورد المحدد =Abs(Nz(DSum("[sup_depit]";"[ديون الموردين]";"[Cus_id]=[Forms]![صرف شيكات]![txtcom]");0))

وعليكم السلام لا يمكن هذا فلا يمكن عمل افضل مما قمت به انت

انظر لهذا التعديل لعله يفى بالغرض نسخة من 1111.xlsx

مجهود عظيم ورائع أستاذ / عبد اللطيف وبنتعلم من حضرتك الكثير وليا سؤال بسيط في عمل سابق لك وهو المطعم ماهو المقصود ( مرحلات ) وما فائدته في البرنامج .. شكراً لكرم حضرتك

وعليكم السلام ورحمة الله وبركاتة حسب ما أراه أمامي في الصورة لايوجد تكرار ضع مرفق ووضح اكثر ما هو التكرار الذي تقصده ::بالتوفيق::

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

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

تم تعديل الكود ليتناسب مع ما تريد Option Explicit Sub My_Sum_New_With_Empty() Dim i%, s#, j%, m%, k% k = Cells(1, Columns.Count).End(1).Column - 2 Range(Cells(2, k + 1), Cells(1, k + 1).End(4)).ClearContents Range(Cells(2, 1), Cells(1, k).End(4)).Interior.ColorIndex = xlNone i = 2 Do Until Range("A" & i) = vbNullString For j = 2 To k If Cells(i, j) = "" Or _ Not IsNumeric(Cells(i, j)) Or _ Cells(i, j) = 0 Then GoTo Next_J s = s + Cells(i, j) m = m + 1 Cells(i, j).Interior.ColorIndex = 6 If m = Cells(i, k + 2) Then Exit For Next_J: Next Cells(i, k + 1) = s: s = 0: m = 0 i = i + 1 Loop End Sub الملفق من جديد Matlob_2_with_empty .xlsm

تفضل يمكنك استخدام هذا الكود Option Explicit Sub page_endings() Dim i As Long Dim searchvalue_for_break_after searchvalue_for_break_after = "الشهود" For i = 1 To Range("A" & Rows.Count).End(xlUp).Row If Range("A" & i).Value = searchvalue_for_break_after Then ActiveWindow.SelectedSheets.HPageBreaks.Add before:=Range("A" & i).Offset(1) End If Next i End Sub الشهود - 1.xlsm

تفضل المصنف2.xlsm

بالتصور و التطبيق برزت لنا حاجة بضرورة وجود وحدة نمطية لفحص الجداول المرتبطة ومعرفة عددها فكان لنا حاجة بهذه الوحدة الجديدة صممتها وسميتها ModCountLinks وخلفها نكتب : 'By Nart Lebzo for Officena.net Public Function CountLinks() Dim TblCount As Integer TblCount = 0 For Each tdf In CurrentDb.TableDefs ' If the table has a connect string, it's a linked table. If Len(tdf.Connect) > 0 Then TblCount = TblCount + 1 End If Next tdf CountLinks = TblCount 'MsgBox " عدد الجداول المرتبطة بقاعدة البيانات " & vbCrLf & CountLinks, vbExclamation, "Linked with Back End" End Function وهذه تقوم بالتعرف على الجداول المرتبطة و تمر عليها وتعدها كي نتمكن من التعرف على العدد و استخدامه لاحقاً وطبعاً يظهر لكم أنني عطلت ظهور الرسالة لبيان الخيار فقد تحتاج ظهور رسالة و قد لاتحتاجه ضمن الوحدة ، وقد تضمنه لأي كود ضمن النموذج مثلاً. و للحديث بقية ...... .............