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

أخي @ابو زاهر السلام عليكم ورحمة الله وبركاته دوخني موضوعك السبع دوخات .... ههههههه

تفضل رسالة بثلاث احتمالات Dim rs As DAO.Recordset Dim rst As DAO.Recordset Dim i, ii As Integer Dim r As Boolean Dim rr As Boolean Set rs = CurrentDb.OpenRecordset("data") Set rst = CurrentDb.OpenRecordset("out") rs.MoveLast rs.MoveFirst For i = 1 To rs.RecordCount r = Nz(DLookup("crn", "data", "name1 ='" & Me.txtsearch & "'"), 0) Next i rst.MoveLast rst.MoveFirst For ii = 1 To rst.RecordCount rr = Nz(DLookup("crn", "out", "name1 ='" & Me.txtsearch & "'"), 0) Next ii If r = True And rr = True Then MsgBox "العميل موجود ضمن الحاليين والسابقين" ElseIf r = True And rr = False Then MsgBox "العميل موجود ضمن الحاليين فقط" ElseIf r = False And rr = True Then MsgBox "العميل موجود ضمن السابقين فقط" End If Set rs = Nothing Set rst = Nothing البحث في جدولين.mdb

تفضل فصل كلمات من سلسلة نصية بدلالة رمز-1.xlsm

كيف نعرف اذا كان رقم ما هو أوّلي او لا واذا لم يكن أولياً ما هي قواسمه و ما هو عددها? (ما عدا الواحد والعدد نفسه) Prime Or Not Prime.xlsx

السلام عليكم ورحمة الله وبركاتة برنامج بسيط لطباعة الباركود على ورق a4 لتحميل البرنامج رابط الفيديو

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

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

تفضل أخي @king5star

تفضل أخي @عاشق الرقي اسف لم ارى مثالك .... لذلك عملت لك مثال أخر طبقه على مثالك ... او اطلب أن أطبقة لك على المثال ... بارك الله فيك Ka_n.accdb

ما هو الباسورد واسم المستخدم

الله يسعدك لكن لم اتمكن من ارفاق الملف مابعرف فين المشكلة لاحظ اني وضعت الكود هذا في حدث عند التحميل If Me.admin = "admin" Then Me.Page366.ControlType [أمر173] = True Else Me.Page366.Enabled "أمر173" = False End If ويكذا منعت التمكين لجميع الازرار في الصفحة اللي اسمها Page366 فهل يوجد كود اتحكم في احد الازرار على حدة بدل من الكل في الصفحة كيف ارفع المرفق الحمدلله هذا المرفق وشكرا التحكم في زر أمر في صفحات النموذج المتعددة.rar

اخي @عاشق الرقي هذا من كرمك . هذا المنتدى لطالما استفدنا منه .. يجب ان نعطى قدر استطاعتنا لاننا لازلنا نتعلم منكم جميعا ...

اخي Kanory تستاهل عضوية التميز على مبادراتك السريعة واجتهاداتك وفقك الله والجميع

ان شاء الله سوف اقوم بشرح الكود في الساعات القليلة القادمة وعزرا للتاخير

جاري التجربة .....

وعليكم السلام ورحمة الله وبركاته ...... أذا كان تصغير الصورة داخل النموذج ... جرب هذا الكود Dim intWidth As Integer Dim intHeight As Integer With Me![FormSub].Form![formsubsub].Form![Image3] intWidth = .Width intHeight = .Height .Width = intWidth / 1.05 .Height = intHeight / 1.05 .SizeMode = acOLESizeZoom End With DoEvents

thank you,it's very nice

أولاً عذرًا كان الملف شئون العاملين2 كان يحتاج تعديلات في أوامر الطباعة فقمت بإصلاحها ففكرت أنك تريد إصلاح هذه المشكلات ثانيًا تفضل المرفق المطلوب وبالنسبة للخطوات سوف أكتبها لك لاحقًا برنامج شئون عاملين 2020.rar

وعليكم السلام ورحمة الله وبركاته اخي الكريم @انس المنصوري بحث لشاشة مكتب واحد صحيح ...

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

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

trans.xlsm