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

اتفضل 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

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

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

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

نعم

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

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

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

واسمحو لي بمداخله تعودت عند اجاباتي توضيح الخطأ للسائل كنت أتمنى ارشادكم للاخ السائل عن الخطأ في الطريقة قبل أن يتقدم في برنامجه ويذهب بعيدا ماذا لو تكرر اسم محمد مكة في الجدول 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 & ""

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

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

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

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

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

جزاك الله خيرا و نفع بك و زادك الله علما "هذا هو المطلوب"

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

@عبد اللطيف سلوم تسلم بارك الله فيك .

اخي الكريم من وجهة نظري بأنه يوجد خلل في التصميم بشكل عام لكي تنفذ الفكرة بالشكل الصحيح فأنت بحاجة الى التالي - جدول مالي ( لتسجيل القيود المالية ( تسديد / اضافة ) + نوع القيد ( اضافة دفعة / اضافة رسوم / .... الخ ) ) مرفق التعديل New Microsoft Access قاعدة بيانات.rar

عاشت ايدك

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

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

اخي العزيز اقصد بالناقصة بمعنى انها غير مؤشر عليها ابحث عليها في القائمة في الصورة ثم اشر عليها شاهد هذه المواضيع ويمكنك البحث في المنتدى https://www.officena.net/ib/topic/29748-كيف-طريقة-ارسال-الايميل-بكود-معين-عند-انقضاء-فترة-معينة/?tab=comments#comment-148114

تم تعديل الكود ليتناسب مع ما تريد 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

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

بارك الله فيك استاذ سليم دالة ممتازة

تفضل Split Text.xlsm

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

عليك بعمل باسورد لمحرر الأكواد وذلك عن طريق الضغط على Alt F11 ثم بعد ذلك الدخول لقائمة Tools واختار منها VBAprojectproperites ثم نختار Protection ونقوم بعد ذلك بكتابة كلمة السر التى تريدها على هذان السطران

الملف الذى ارسلنه اليك سابقا بالفعل به كل ما تريد

تفضل دليل الهاتف - Copy.xlsm

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

يمكنك متابعة هذا الرابط فمثل هذه البرامج تكون بمقابل وليس مجانية https://www.officena.net/ib/topic/76248-برنامج-شركة-ايجار-سيارات/?tab=comments#comment-488293 او عليك استخدام خاصية البحث فى المنتدى ولكن اكثر فى قسم الأكسيس بارك الله فيك وشرفتنا فى المنتدى

وعليكم السلام الرابط لا يعمل كما ترى File Not Found The file you were looking for could not be found, sorry for any inconvenience Possible causes of this error could be: The file expired The file was deleted by its owner The file was deleted by administration because it didn't comply with our Terms of Use

عليك برفع الملف للعمل عليه

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

تفضل ترتيب.xlsm

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

السلام عليكم ورحمة الله أعرف أن إخواني لم يبخلوا بما عندهم من فوائد... وأقدم أيضا عملا بواسطة كود يقوم بنسخ كل القائمة (الموجودة في العمود A) في العمود B ثم يرتبها ترتيبا تصاعديا وبعدها يقوم بحذف كل الأسماء المكررة في هذا العمود ثم يعاود الترتيب التصاعدي للأسماء التي بقيت وباستعمال الخاصية "التحقق من الصحة" واستعمال الدالة OFFSET فيها نقوم بتشكيل القائمة المنسدلة من العمود B انطلاقا من السطر 5... وإليكم المثال في الملف المرفق (وهو يعمل على 2007 و على 2003)... أخوكم بن علية قائمة منسدلة دون تكرار.rar