Shivan Rekany

اعمل مربع نصی واعمل ھذا كمصدره ="pp" & Left([BarcodeNum];4) & "pp" & Right([BarcodeNum];4) & "pp" والنتيجة سيكون كالتالي

لکتابة قيمة حقل الاخر لكومبوبوكس فيه ... لكي نستخدمه في استعلام مصدر الكومبوبوكسين الاخرين اذن اليك هذا المخزن (1).rar هذا من لطفك اخي الحبيب

اعتذر منك بشدة لاننا مشغول في هذه الايام اتفضل القي نظرتا الى المرفق هل تريد هذا المخزن.rar

انا محتاج توضيح اكثر لكي اقدر اساعدك

ما رأیک بهذا Me.A1.BackColor = "9243047" Me.A2.BackColor = RGB(0, 183, 239) Me.A3.BackColor = RGB(0, 183, 239) GAPP.rar

من احدى الحلول هو ان تكتب كود للتحديث ذلك المربع

على الرغم ان استاذ جعفر عمل المطلوب لكن انا اريد ان اشرح قصدي كان قصدي في جملة استاذ جعفر اي يعني سيكون الكود كالتالي =IIf(IsError([تابع15]![نص13]);0;[تابع15]![نص13])

لانك تكتبه كمصدر المربع النصي لذلك تحصل على هذا الرسالة وما تكتبه في الاكواد لذا فقط عليك ان تتغير هذا "," بهذا ";" وکل شيء سيكون على ما يرام ان شاء الله

اخي .. انا عم استعمل واي فاي و انا عند اضغط على زر ايف12 ( لا يظهر اي شبكات ) اي يقطع الاتصال انا عند استخدام موديول بيعطيني ان الاتصال مقطوع لكن باستخدام هذا الكود لا يقول لي ان الاتصال مقطوع تحياتي

استاذي الحبيب القي نظرتا الى الصورة فی کلا الحالتین ای قطعت الاتصال من لابتوب و بعد بيقول لي انت متصل اي في حالة عدم النيت بيقول انت مصتل بالنيت

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

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

من عمل البرامج ؟ ھو بیعرف ما ھو السبب ... حسب فھمي هذه الرسالة متعلقة بالامان في البرامج اذا تريد ارفق او ارسل القاعدة لكي نعرف المزيد عنه تقبل تحياتي

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

مشاركة مع استاذنا @ابوخليل و @عبد الفتاح كيرة ھذا جيد اذن اليك هذا الكود بعد تحديث للحقل الاسم في نموذج Private Sub namst_AfterUpdate() Dim MyName MyName = Split(Me.namst, " ") If DLookup("[namm]", "TblMalomat", "[namm]='" & MyName(0) & "'") <> "" Then Me.sex = DLookup("[sex]", "TblMalomat", "[namm]='" & MyName(0) & "'") Else MsgBox (" الاسم " & " ( " & MyName(0) & " ) " & " ليس موجودا في الجدول المعلومات ") End If End Sub اذن اكتب احد الاسماء الموجودة في جدول المعلومات لكن ملاحظة يجب ان يكون هناك فراغ اي مسافة بين الاسماء ------------ واذا تريد تعمل كلها بدفعة واحدة بواسطة استعلام تحديث اليك هذا اولا اليك هذا فانكشن الصقها في وحدة نمطية Public Function BoyGirl(MyName) Dim MySex MyName = Split(MyName, " ") If DLookup("[namm]", "TblMalomat", "[namm]='" & MyName(0) & "'") <> "" Then MySex = DLookup("[sex]", "TblMalomat", "[namm]='" & MyName(0) & "'") End If BoyGirl = MySex End Function وفي استعلام التحديث اضف حقل الجنس وفي سطر تحديث اكتب اسم الفانكشن و بين قوسين اسم الحقل الاسماء BoyGirl([tel1]![namst]) فقط عليك ان تعمل تشغيل الاستعلام مرة واحدة فقط اتفضل اليك قاعدتك بعد التعديل الجنس --.rar

اذا كان رقم بيكون يساوي 19 او 23 بيكتب هكذا If [Forms]![namber_hsap_tmp]![nambr_mostkdam] = 19 Or [Forms]![namber_hsap_tmp]![nambr_mostkdam] = 23 Then لكن اذا تريد .. اذا الرقم بيكون بين الرقمين 19 الى 23 ستكتب هكذا If [Forms]![namber_hsap_tmp]![nambr_mostkdam] >= 19 and [Forms]![namber_hsap_tmp]![nambr_mostkdam] <= 23 then

Me.CCVV = DLookup("[ITEM_BARCODE]", "ITEM_BARCODES", "[ITEM_BARCODE]='" & Me.UBDET_TO & "'") الان جرب

اتفضل فقط انا غيرت مصدر كومبوبوكس اختيار اسم الموظف في النموذج كان مصدره رقم اي دي و اسمه انا غيرت باسم الموظف فقط اي غيرت الى هذا SELECT TabTeachers.TEACHER_NAME FROM TabTeachers ORDER BY TabTeachers.TEACHER_NAME; والان القي نظرتا الى المرفق lمعلمين.rar

انا جربت عندی .. حذفت معلم واضفت معلم اخر وما فيها مششكلة اذن ارفق القاعدة اللي بها المشكلة

اتفضل الي هذا الكود Private Sub TabCtl0_Change() If Me.TabCtl0 = 1 Then Me.Cmd4.Visible = True MsgBox "bbbbbbbbbbbbbbbb" Else Me.Cmd4.Visible = False End If End Sub Tapages.rar

وجزاك الله كل خير نعم اتفضل مع الشرح هذا هو استعلام تحديث للحقل UPDATE BASIC_DATE SET BASIC_DATE.crn = Replace([crn],Right([crn],4),"0" & Right([crn],4)); تحديث الجدول باسيك دات UPDATE BASIC_DATE حقل سي ار ان من جدول باسيك دات بيكون يساوي SET BASIC_DATE.crn = استبدل من الحقل سي ار ان Replace([crn], يبحث من اربع حروف (حروف او رقم او اي شي ) الاخيرة من حقل سي ار ان Right([crn],4), ويبدل اي يستبدل ب رقم صفر مع اربع حروف الاخير من الحقل سي ار ان "0" & Right([crn],4)); اتمنى ان اقدرت ان يوصل لك المفهوم

احذف هذا السطر من الكود في تقرير Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer) Rem ===كتابة عنوان في التقرير بناء على ما كتب في أمر فتح التقرير === ' Me.txt_Title = Me.OpenArgs End Sub واضف هذا الكود Private Sub Report_Load() If Forms!formteachers!OPTIONS_REPORTS = 2 Then Me.txt_Title = "ÊÞÑíÑ Úä ãÑÊÈÇÊ ÇáãæÙÝíä ááÔåÑ ( " & Forms!formteachers!COMBOX_MONTH & " ) " ElseIf Forms!formteachers!OPTIONS_REPORTS = 3 Then Me.txt_Title = "ÊÞÑíÑ Úä ãÑÊÈÇÊ ÇáãæÙÝíä ááãæÙÝ ( " & Forms!formteachers!COMBOX_TEACHER_NAME.Column(1) & " ) " End If End Sub اليك المرفق بعد تعديل معلمين.rar

وعید مبارک کل عام وانتم بالف خیر

اخی العزیز .. اھلا بک فی منتداک لكي لا يطول الامر ولا تنتظر كثير ارفق نسخة مصغرة من قاعدة بياناتك ووضح ماتريد بالتفصيل لكي نعمل لك التعديل المناسب عيد مبارك

اتفضل معلمين.rar