أبوبسمله

اممممممممممم كده بقى المشكله هتكون ايه عندى وعند استاذ محمد الحلوانى ؟

للاسف معلمنا العزيز لم يعمل ايضا معى ولكن هناك امل طالما اشتغل مع اخى واستاذى خالد ع 2019 يتبقى ان نعرف اى نواه وكذلك اشتغل معى على 2003 فان شاء الله نصل عما قريب للحل باذن الله اخى واستاذى العزيز @kha9009lid اوفيس 2019 اى نواه ؟

نسختان 2019 ؛ 2003 لا نعم وأوقفت عمل الايرور حتى يقف ع السطر ووقف على هذا الجزء إذا كان هناك أي شيء آخر اقوم به وضحلي وساقوم بعمله معلمنا العزيز

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

استعمل 32 بت وعلى ذكر البت ربنا يرزقك 🙂

السلام عليكم اخوانى واساتذتى اخى ومعلمنا العزيز @jjafferr تجربتى على ويندوز 10 32 بت اوفيس 2019 التجربه تمت على Decompile_4.accdb تمت التجربه على برنامجى معمول ع اوفيس 2003 وتمام زى الفل قمت بالتجربه على برنامج اعمل عليه حاليا معمول ع اوفيس 2019 و ع آخر معمول 2016 نتج هذا الخطأ الموضح بالصوره وملحوظه اخرى فانه يظهر عند هذه الخطوه فتح قاعدة البيانات على اوفيس 2003

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

مثل هذه الصوره معلمنا العزيز جعفر

اتفضل اخى ان شاء الله يكون ما تريد If Me.Label5.Caption > 0 Then Me.wag_men.SetFocus DoCmd.GoToRecord , , acNewRec Me.wag_men!wazen = Me.Label5.Caption DoCmd.RunCommand acCmdSaveRecord comPort10.rar

حسنا معلمنا العزيز إن شاء الله عند عودتي من العمل ويارب النت يكون رجع بس لأن الإنترنت منقطع بالمنطقه بقاله ٣ ايام وبستعمل المحمول

برجاء ارفاق مثال لما تريد

وعليكم السلام ع ما اعتقد الرابط التالى به ما تريد قم بمراجعته

اخى ومعلمى العزيز @jjafferr هل ممكن عمل التفاف للنص بهذا الحقل مثل الاكسيل بزاويه 90 درجه ؟

جزاك الله خيرا اخى واستاذى العزيز د حسنين 💐

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

شهاده اعتز بها اخي واستاذي العزيز @kha9009lid وهذا مما تعلمنا منكم ومن اساتذتنا الأفاضل جزاكم الله عنا كل خير 💐

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

جزاك الله خيرا اخي واستاذي د حسنين جعله الله في ميزان حسناتك سأقوم بالتجربه وموافاتك بالتيجه إن شاء الله عند عودتي من العمل بإذن الله تقبل تحياتي اخوك الصغير احمد

العفو اخى ماهى المشكله التى واجهتك ؟ بالتوفيق

السلام عليكم جرب ووافنا بالنتيجه Private Sub btn_search_Click() Set db = CurrentDb Set rs = db.OpenRecordset("select * from tbl_company ") Dim ser As String Me.txt_search.SetFocus ser = "*" & Me.txt_search.Text & "*" If IsNull(Trim(Me.txt_search.Value)) Then MsgBox "ادخل اسم الشركة للبحث عنها ", vbCritical, "البحث" Me.txt_search.SetFocus Exit Sub ElseIf IsNull(DLookup("[company_name]", "tbl_company", "company_name like '" & ser & "'")) Then MsgBox "هذه الشركة غير موجودة", 16, "بحث" ElseIf Not (Me.txt_search.Text = "") Then Me.sub_company.Form.Filter = "company_name like '" & ser & "'" Me.sub_company.Form.FilterOn = True Else Me.sub_company.Form.FilterOn = False Me.sub_company.Form.Refresh Me.txt_search = Null End If rs.Close Set rs = Nothing Set db = Nothing End Sub بالتوفيق

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

جزاك الله خيرا اخى واستاذى وشيخنا الجليل @ابوخليل 💐 لم اطلع عالمرفقات بعد هل ستعتمد ع هذه الجداول معلمنا العزيز ام سوف تختصرها جدول واحد يضم الموردين والعملاء معا وكذلك 3 جداول للحركات ؟ متابع لاتعلم معكم اخوانى واساتذتى ووفقكم الله لما يحبه ويرضاه

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

وعليكم السلام انظر الى الاستعلام query1 DATE_TASLIM_NFOUS = Is Null SELECT farez.bar AS CountOfbar, farez.nfous, farez.date_maha, farez.DATE_TASLIM_NFOUS, farez.OMT FROM farez WHERE (((farez.nfous)="بيروت") AND ((farez.DATE_TASLIM_NFOUS) Is Null) AND ((farez.OMT)=False)); 818713633_farezup3.accdb

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