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

انت في منتدى كله خبراء وانا تلميذ لديهم انظر هل هذا جزء من اكوادك ..... 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

لدي اوفيس 365 الحديث بعد 2019 نسخة 64bit

من الواضح أن البرنامج تم تصميمه وتحويله الي accde باكسس 2016 او 2019

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

لدي اوفيس 2013 والوندوز والافيس 64 بت .. ولم يفتح عندي .. الضاهر انه على اوفيس احدث من 2013

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

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

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

السلام عليكم ا/ صالح انت عندى ويندوز 64 bit ولكن اوفيس 10 هل يعمل على هذا النوع وشكرا لحضرتك

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

احسنت و تربت يداك ورحم الله والديك يا طيب

شكرا وبارك الله فيكم واسعدكم وجزاكم الله خير

هذا هو المطلوب جزيت خير

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

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

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

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

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

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

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

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

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

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

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

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

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

هذا بسبب التحديث الأخير سوف يتم معالجة الأمر

استاذى ومعلمى الفاضل / @محمد أبوعبدالله والله انت اللى بتنور بمشاركتك وانا فعلا استفيد منك كثيرا لانك معلم بمعنى الكلمة خالص التحية والاحترام لحضرتك استاذي ومعلمى / @kanory طمنتنى الله يطمن قلبك دائما كل الاحترام لحضرتك استاذنا الكبير قوى @Eng.Qassim اولا : انا ملاحظ نشاط القوى جدا واتوقع لك مقام خبير عن قريب ثانيا : كلمة حلبى ليس لها علاقة بمصر لان اسمى "محمد حلبى" وانا طلعت الدنيا لقيت اسم جدى حلبى لم اعرف سبب تسميته بهذا الاسم مع اننا من صعيد مصر لك كل احترام وتقدير

تمام شكرا جزيلا لحضرتك

يمكنك استعمال هذا الاجراء 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

اتفضل التعديل الحاق بشرط.accdb

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

جرب ترحيل قيمة مربع النص بدلا من النص Range("a1").value = me.textbox1.value مع التأكد من تنسيق الخلية التي يتم الترحيل إليها عام او رقم وبالنسبة لموضوع تسريع التنفيذ فيجب معرفة الكود المستعمل اولا بالتوفيق

اتفضل هذا مثال لاحد الاخوه هنا بالمنتدى لا اذكر من هو حاليا بالتوفيق myPic.rar

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

شكرا أخي أبو أسامة

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

ولمزيد من التوضيح ضع هذا الكود في حدث عند الإغلاق للنموذج docmd.quit

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

بارك الله فيك أخي عمار ولن يضر إضافتنا لهذا الكود أيضا كود Private Sub Form_Error(DataErr As Integer, Response As Integer) Dim DATAERRCONTINUE Select Case DataErr Case Is = 3022 MsgBox " نص الرسالة ", vbInformation, " عنوان الرسالة " Response = DATAERRCONTINUE Undo الرقم.setfocus End Select End Sub

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