أبوبسمله

استعمل 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

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

وده تعديل بدون المتغير العام فالوحده النمطيه Private Sub btnRun_Click() Dim strSQL As String Dim xYesNo As Boolean xYesNo = 0 strSQL = "[OMT]=" & xYesNo strSQL = strSQL & " And [nfous]='" & Me.Taslimsub_Subform!nfous & "'" strSQL = strSQL & " And [date_maha]=#" & Format(Me.date_taslim, "mm/dd/yyyy") & "#" Me.Taslimsub_Subform!dossiers = DCount("*", "farez", strSQL) End Sub farezup(2).accdb

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

صدقنى لحد الان لم افهم وعالعموم خلينا نمشى خطوه خطوه وان شاء الله نصل لما تريد قمت باضافه وحده نمطيه ووضع فيها متغير عام لياخذ قيمه الحقل نفوس من الصب فورم بعد اختياره وذلك لتمريرها عبر داله دكونت لجلب القيمه ووضعها في حقل DOSSIERS قم بوضع التاريخ ثم اضغط الزر تنفيذ لجلب القيمه Dim strSQL As String Dim xYesNo As Boolean xYesNo = 0 strSQL = "[OMT]=" & xYesNo strSQL = strSQL & " And [nfous]='" & xNfous & "'" strSQL = strSQL & " And [date_maha]=#" & Format(Me.date_taslim, "mm/dd/yyyy") & "#" Me.Taslimsub_Subform!dossiers = DCount("*", "farez", strSQL) جرب ووافنا بالنتيجه farezup(2).accdb

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