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

انت في منتدى كله خبراء وانا تلميذ لديهم انظر هل هذا جزء من اكوادك ..... Private Sub btnActivate_Click() Solved = CLng(Me.txtNum) If IsNumeric(Me.txtKey) = True Then If CLng(Nz(Me.txtKey, 0)) = 123456789 Then If Len(Me.txtCode) = 9 Then If Left(Me.txtCode, 1) = "i" Or Left(Me.txtCode, 1) = "c" Then If Right(Me.txtCode, 1) = "x" Or Right(Me.txtCode, 1) = "o" Then If IsNumeric(Mid(txtCode, 5, 1)) = True Then If IsNumeric(Mid(Me.txtCode, 3, 1)) = True Then If IsNumeric(Mid(Me.txtCode, 7, 1)) = True Then mNum = (Val(Mid(Me.txtCode, 3, 1)) + Val(Mid(txtCode, 5, 1)) + Val(Mid(Me.txtCode, 7, 1))) - 1 DLOldKey = Nz(DLookup("[OldKey]", "tblSetting"), 0) If Me.txtCode <> DLOldKey Then DoCmd.SetWarnings False DoCmd.RunSQL "Update tblSetting Set tblSetting.BaseDate=#" & Format(Date, "yyyy/mm/dd") & "#" DoCmd.RunSQL "Update tblSetting Set tblSetting.ActiveDate=#" & Format(DateAdd("m", mNum, Date), "yyyy/mm/dd") & "#" DoCmd.RunSQL "Update tblSetting Set tblSetting.OldKey='" & Me.txtCode & "'" DoCmd.SetWarnings True MB = MsgBox("Êã ÊÝÚíá ÇáäÙÇã ÈäÌÇÍ" & vbNewLine & "ÓÇÑí ÍÊì: " & DateAdd("m", mNum, Date), vbInformation, "Êã ÇáÊÝÚíá!") DoCmd.Close DoCmd.OpenForm "frmMainLogin" Else Me.txtCode = "" MB = MsgBox("ßæÏ ÊÝÚíá ãäÊåí ÇáÕáÇÍíÉ¡ ÈÑÌÇÁ ÇáÊæÇÕá ãÚ ÇáãØæÑ" & vbNewLine & vbNewLine & "01018877763 - 01201456588", vbCritical, "ÝÔá ÇáÊÝÚíá!") Me.txtCode.SetFocus End If Else Me.txtCode = "" MB = MsgBox("ßæÏ ÊÝÚíá ÛíÑ ÕÍíÍ¡ ÈÑÌÇÁ ÇáÊæÇÕá ãÚ ÇáãØæÑ" & vbNewLine & vbNewLine & "01018877763 - 01201456588", vbCritical, "ÝÔá ÇáÊÝÚíá!") Me.txtCode.SetFocus End If Else Me.txtCode = "" MB = MsgBox("ßæÏ ÊÝÚíá ÛíÑ ÕÍíÍ¡ ÈÑÌÇÁ ÇáÊæÇÕá ãÚ ÇáãØæÑ" & vbNewLine & vbNewLine & "01018877763 - 01201456588", vbCritical, "ÝÔá ÇáÊÝÚíá!") Me.txtCode.SetFocus End If Else Me.txtCode = "" MB = MsgBox("ßæÏ ÊÝÚíá ÛíÑ ÕÍíÍ¡ ÈÑÌÇÁ ÇáÊæÇÕá ãÚ ÇáãØæÑ" & vbNewLine & vbNewLine & "01018877763 - 01201456588", vbCritical, "ÝÔá ÇáÊÝÚíá!") Me.txtCode.SetFocus End If Else Me.txtCode = "" MB = MsgBox("ßæÏ ÊÝÚíá ÛíÑ ÕÍíÍ¡ ÈÑÌÇÁ ÇáÊæÇÕá ãÚ ÇáãØæÑ" & vbNewLine & vbNewLine & "01018877763 - 01201456588", vbCritical, "ÝÔá ÇáÊÝÚíá!") Me.txtCode.SetFocus End If Else Me.txtCode = "" MB = MsgBox("ßæÏ ÊÝÚíá ÛíÑ ÕÍíÍ¡ ÈÑÌÇÁ ÇáÊæÇÕá ãÚ ÇáãØæÑ" & vbNewLine & vbNewLine & "01018877763 - 01201456588", vbCritical, "ÝÔá ÇáÊÝÚíá!") Me.txtCode.SetFocus End If ElseIf Me.txtCode = "ÊÓÊ íÇ Úã" Then Me.txtCode = "" MB = MsgBox("Êã ÊÝÚíá ÇáäÙÇã ãÄÞÊÇ", vbInformation, "Êã ÇáÊÝÚíá!") DoCmd.Close DoCmd.OpenForm "frmMainLogin" Else Me.txtCode = "" MB = MsgBox("ßæÏ ÊÝÚíá ÛíÑ ÕÍíÍ¡ ÈÑÌÇÁ ÇáÊæÇÕá ãÚ ÇáãØæÑ" & vbNewLine & vbNewLine & "01018877763 - 01201456588", vbCritical, "ÝÔá ÇáÊÝÚíá!") Me.txtCode.SetFocus End If Else Me.txtKey = "" MB = MsgBox("ãÝÊÇÍ ÇáÊÝÚíá ÛíÑ ÕÍíÍ¡ ÈÑÌÇÁ ÇáÊæÇÕá ãÚ ÇáãØæÑ" & vbNewLine & vbNewLine & "01018877763 - 01201456588", vbCritical, "ÝÔá ÇáÊÝÚíá!") Me.txtKey.SetFocus End If Else Me.txtKey = "" MB = MsgBox("ãÝÊÇÍ ÇáÊÝÚíá ÛíÑ ÕÍíÍ¡ ÈÑÌÇÁ ÇáÊæÇÕá ãÚ ÇáãØæÑ" & vbNewLine & vbNewLine & "01018877763 - 01201456588", vbCritical, "ÝÔá ÇáÊÝÚíá!") Me.txtKey.SetFocus End If End Sub

لا نحب مثل هذه المواضيع مع شديد الاعتذار لاستاذي kanory

لتحديث ربط الجداول استخدم الكود التالي Dim strDbFile As String Dim strPassword As String Dim strConnect As String strDbFile = CurrentProject.Path & "\bb.MDB" strPassword = "19801213011" strConnect = "MS Access;PWD=" & strPassword & ";DATABASE=" & strDbFile Dim tdf As DAO.TableDef Dim db As DAO.Database Set db = CurrentDb For Each tdf In db.TableDefs ' ignore system and temp tables If Not (tdf.Name Like "MSys*" Or tdf.Name Like "~*" Or tdf.Name Like "exl*") Then tdf.Connect = strConnect tdf.RefreshLink End If Next لإخفاء جدول معين استخدم التالي Application.SetHiddenAttribute acTable,"Customers", True

مشاركة مع استاذي @د.كاف ياروهي لاخفاء الجداول عند المستخدم بوضع الكود التالي حين فتح النموذ الرئيسي عند المستخدم Dim db As DAO.Database Dim tdf As DAO.TableDef Set db = CurrentDb For Each tdf In db.TableDefs tdf.Attributes = acHidden Next tdf ولاعادة اضهار الجداول تستخدم acNormal بدلا من acHidden

تفضل التعديل Project2.zip

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

البرنامج يعمل عندي بدون اي مشاكل لان الويندوز والاوفيس 64bit

تفضل هذا الحل تم انشاء ملف Word و اضافة تصميم البطاقة لملف الوورد و اضافة اشارات مرجعية و تم تحديد حجم الصفحة حسب الحجم في البطاقة الموجودة في التقرير قم بالتجربة ستجد انك حققت الهدف 2New.zip 1-مصطفى (122146).docx

الرساله التي تظهر مثل الصوره السابقه The database you are trying to open requires a newer version of Microsoft Access

ماهو الحل لو اراد طباعة النموذج 7000 مرة ؟

اخي العزيز : نعم الملف فارغ من الكود . اردت معرفة هل بالامكان عمل تصفية وفرز على اليوزر فورم كما في ملف الاكسل العادي

بارك الله فيكم جميعا لقد اجبتو بأكثر من ماطلت بارك الله فيكم تستحقون كل فخر وتقدير هكذا عهدناكم سباقين للخير هكذا تعودنا وهكذا سنبقى إن شاء الله لكم مني كل فخر وتقدير وكل الاعجاب نشكر كل القائمين على هذا المنتدى الرائع ومن ساهم فى مساعدتي سابق وحاليا ومستقبلا وشكر لـ الاخ / محمد أبوعبد الله والأخ / أ / محمد صالح وكل عام والجميع بألف خير تقبلو خالص التحيه

تفضل اخي الكريم تم تعديل النموذج a1 وخصوصا زر توزيع المبلغ وتم تعديل النموذج a2 في مصدره ومصادر مربعات النصوص وتم تعديل جدول t_m الكود في زر التوزيع يراعي المبلغ المتبقي بعد عدد الاقساط اذا كان اكبر من قيمة القسط او لا لاحظ توزيع القسط والفائدة واجمالي القسط في السجل الأخير بالتوفيق ‫الأقساط ‫‬1.mdb

وعليكم السلام ورحمة الله وبركاته بما ان هذه الحقول غير موجودة في الجدول الاساسي اذن جرب هذا التعديل _الأقساط __1.mdb تحياتي

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

حينما تقسم القاعدة وتعمل لها share مع عدد من الاجهزة تقوم بعمل نموذج خاص بالشفت لقاعدة BE الخاصة بالجداوال وكذلك تعمل نموذج للشفت لقاعدة بقية المستخدمين FEحتى لايتمكن احدهم من الدخول للقاعدة

السلام عليكم ورحمة الله وبركاته تم فرمتة الكمبيوتر وتنزيل ويندوز 10 جديد وهو نفس الويتدوز قبل الفرمته ...المهم عند فتح قاعدة البيانات تفتح ولكن الايقونات الخاصة مثلا بفتح نموذج جديد او ايقونة الخروج او ايقونة التحديث لاتعمل .... قاعدة البيانات معمولة باكسس 2003 mdb والاوفيس المستخدم حاليا 2007 ....وكان شغال تمام قبل الفرمته مع العلم ان القاعدة شغالة تمام على الجهاز الاخر ويندوز7 وافيس 2003 انا اذكر قد سبق ومريت بهذى المشكلة قديما وكان التغيير عن طريق اعدادات اللغة ولكن حاولت الان ولايوجد فائدة..اتوقع ان اوامر الماكرو لاتعمل فهل من حل لديكم مع الشكر الجزيل مقدما

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

If MsgBox(" هل تريد حفظ السجل ؟ ", vbYesNo, " تنبيه ") -= vbNo Then Cancel = True SendKeys "{ESC}" Exit Sub End If

يمكن استعمال معادلة if إذا كانت الخلية فارغة تكون قيمة المعادلة فارغة يمكن وضع هذه المعادلة في i5 =IF(A5="", "", A5) ثم سحب المعادلة افقيا وراسيا بالتوفيق

كل شيء ممكن لما نفكر فيه بطريقة سليمة جرب هذه المعادلة في الخلية B2 =MID(A2, 1,FIND(CHAR(10),A2)-1) والمعادلة التالية في الخلية C2 =MID(A2, FIND(CHAR(10),A2)+1, 10) بالتوفيق

الله يرضى عليك .. ممكن رفع البيانات الزائدة كما موجود بالملف المرفق لانه عملت سابقا هكذا ولكن اكثر من الموظف يرجع ويستفسر لماذا هذه الاصفار موجودة هل توجد بيانات ناقصة كشفين في ورقة واحدة - رفع.xlsx

شكرا لك استاذي وبارك الله فيك هل يتم ذلك بدون vba عن طريق معادلات وانا شاكر لك عل الرغم اعلاه تم وبكل كفاءة وشكرا لكن اسال ان كان هناك حل عن طريق معادلة

هو ممكن لكن سيكون الشكل غير مقبول نهائيا لعمل ذلك يتم نسخ النطاق من A1:G20 ثم لصقه ابتداء من الخلية I1 مع تعديل منطقة الطباعة الى A1:O20 مرفق ملفك وبه التعديل راسي وافقي بالتوفيق كشفين في ورقة واحدة.xlsx

وعليكم السلام ,,, جربت عمودي - به صعوبة عليه .. ممكن تنفيذ يكون الطبع افقي كما في الصورة .. جزيت خيرا

تفضل التعديل Me.txtstatVacation = IIf(IsNull(Me.txtDateBack), IIf(Me.txtddateend + 1 > Date, "غياب", "اجازة"), "يعمل")

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

جزاكم الله خيراً اساتذتنا الكرام ... كما هو مطلوب

اتوقع الأوفيس غير مفعل

نفس الحال اسماء المتواجدين لا تظهر و اسمي لا يظر اتوقع بسبب المتصفح

استاذي ومعلمى @ابوخليل شكرا لك للتوضيح استاذى ومعلمنا الفاضل / محمد صالح اين اجد اعدادات الحساب ـ واين اجد الحماية والخصوصية الاستاذ/ @طلب اكسس اشكرك عرفتنى بانى ليس وحدى

بارك الله فيك اخي الكريم وجزاك الله خير الجزاء 😍

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

تفضل أخي الكريم تم اجراء بعض التعديلات حتى تتناسب مع الكود والتكرار بالتوفيق تكرار الخلايا بالكود.xlsm

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

الكود لا علاقة له بنت فريم وورك لكن له علاقة بسرعة خط الانترنت لديك ملفك يعمل عندي بدون مشاكل حتى باستخدام دوال vlookup لكن مع تعديل وهو تحديد الصفوف من 6 إلى كذا على العموم هذه آخر محاولة مني على ملفك: تم الاستغناء عن فتح برنامج الواتس آب عن طريق ارسال الرابط لمتصفح انترنت اكسبلوورر وفتحه عن طريق مستكشف الويندور windows explorer مع نقل التركيز الي البرنامج مباشرة (فلن تحتاج الي الضغط علي ايقونة البرنامج في شريط المهام) جرب هذا ملف يرسل لأرقامي للتجربة كل ما عليك فعله بالترتيب: * تشغيل برنامج الواتس للكمبيوتر وربطه بالموبايل وتجهيزه علي الارسال مع بقاء الموبايل مفتوحا * فتح ملفك المرفق في هذه المشاركة والضغط على ارسال الرسائل * ترك الكود يفتح البرنامج ويكتب نص الرسالة ويضغط انتر بدون تدخل منك بالتوفيق Send Via Whatsapp للتجربة.xlsm

يمكنك استعمال هذا الاجراء Sub twolines2columns() Range("A2:A21").TextToColumns Destination:=Range("B2"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, Other:=True, OtherChar:=Chr(10), FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True End Sub لاحظ ان رمز السطر الجديد هو chr(10) بالتوفيق

تفضل ... zaBarCode_Items.mdb

وهذا حل سهل عن طريق المعادلات ويوجد بالملف توضيح جمع أرقام العدد.xlsx

حسب فهمي للمطلوب جرب هذه الدالة المعرفة بنسخ هذا الكود في،موديول جديد Function sumparts(num As String) As Long Dim n As Long, a As Long a = 0 For n = 1 To Len(num) a = a + Val(Mid(num, n, 1)) Next n If Len(CStr(a)) > 1 Then sumparts = sumparts(CStr(a)) Else sumparts = a End If End Function وبعد البحث في الانترنت عن هذا الأمر يمكن اختصار هذه الدالة إلى Function sumparts(num As String) As Long sumparts = num - 9 * Int((num - 1) / 9) End Function وطريقة استدعائها داخل الخلية =sumparts(A1) حيث A1 هي الخلية التي تحتوي على العدد المراد معرفة مجموع أرقامه ويمكن الوصول لهذا الهدف مباشرة في معادلة اكسل بهذه الصورة =A1-9*INT((A1-1)/9) بالتوفيق

السلام عليكم ورحمة الله يمكن استعمال معادلة الصفيف التالية (في خلية غير مدمجة): =INDIRECT("C"&MATCH(1;SUBTOTAL(3;INDIRECT("C"&ROW($8:$100)));0)+7) وهي معادلة صفيف حيث يجب تأكيدها بالضغط على : CTRL+SHIFT+ENTER وفي الملف المرفق تطبيق مباشر لهذه المعادلة... أرجو أن تفي الغرض المطلوب... ملاحظة: المعادلة لا تعمل عند الفلترة بعدة شروط أو عند إلغاء الفلترة (وهي في هذه الحالات تعطي الكلمة في الصف الأعلى بداية من الخلية C8).. كيف ربط وتغيير محتوى الخلية بعد الفلترة.xlsx

قد تكون هناك خيارات اخرى و هذا احد الخيارات 1 - اعمل ملف اكسل اعطي اسم للعامود و قم بترقيمه حسب التسلسل المطلوب 2 - افتح الاستمار على الوورد، اختار mailing ثم select reciptions ثم use an exsiting list ثم اضف ملف الاكسل، ثم حدد مكان كتابة رقم الاستمارة واضغط add field و اختار اسم العامود في ملف الاكسل بعد ذلك يمكنك طباعة الاستمارات دفعة واحدة بالضغط على Finish&Merge ومن ثم طباعة الكل

يمكنك استعمال دالة الجمع المشروط sumif =SUMIF(A:A,D1,C:C) حيث d1 هي الخلية التي تحتوي على الاسم المراد جمع الأرقام المقابلة له بالتوفيق

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

أخي الكريم إليك بعض الاختصارات ربما تفيدك لكتابة تاريخ اليوم اضغط ctrl + ك لكتابة الوقت الحالي اضغط ctrl + shift + ك لكتابة نفس بيانات الحقل من السجل السابق اضغط ctrl + ط

ولا تنسى أن تعيد التحذيرات كما كانت DoCmd.OpenQuery "اسم الاستعلام لديك" docmd.setwarnings true

هل هذا هو المطلوب؟ مصدر سجل النموذج جدول أزون mas_sameh_1.rar

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

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

لعل هذا هو ما تريد mas_sameh.rar