عبد الفتاح كيرة

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

بارك الله فيكم

جزاك الله خيرا على هذه الأكواد النافعة

أخى السائل المعادلة التى أوردتها لك أعطت الناتج 26 و هو ما طلبت

على عجالة a1 التاريخ الأصغر a2 التاريخ الأكبر المعادلة فى b1 =TEXT(A2-A1;"hh")+TEXT(A2-A1;"d")*24

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

هل تريده هكذا inventory22-kemas.rar

If TextBox3.TextLength < 14 Then MsgBox "أدخل الرقم بصورة صحيحة" Cancel = True End If الخاصية المستخدمة هى TextLength

If TextBox3.Text.MaxLength < 14 Then

رقم الحماية 123

نشكرك يا أستاذنا بارك الله فيك لو كان بالبرنامج بحث عن موظف يكون أفضل وشكرا

جزاكم الله خيرا جميعا الأكواد كلها تعمل الماكرو كان معطلا فى ملفى شكرا لكم

جزاك الله كل خير ما الفارق بين cancel = true , Cancel = -1

شكرا على النقل أستاذ منتصر و ننتظر الرد جزاك الله خيرا

أخى منتصر رجاء الرد على هذه المشاركة حيث وضعتها خطأ فى منتدى إكسل http://www.officena.net/ib/index.php?showtopic=36814&st=0&gopid=195634&#entry195634 وشكرا

رجاء من الإخوة المشرفين نقل الموضوع لمنتدى أكسيس وآسف لهذا الخطأ

أصل هذه بيانات مصدرة من إكسل و أسماء الحقول كلها كانت عربية ما الحل هل أعيد تسمية الحقول و أيضا أعيد بناء نموذج الإدخال؟

السلام عليكم لدى مربع نص فى نموذج إدخال اسمه الرقم القومى استخدمت الكود التالى للتحقق من كون الأرقام المدخلة فيه = 14 رقما Private Sub الرقم_القومى_BeforeUpdate(Cancel As Integer) If Not Len(Trim(الرقم_القومى)) = 14 Then MsgBox "أدخل الرقم القومى بصورة صحيحة" Cancel = True Exit Sub End If End Sub و هل سبب عدم تنفيذ الكود أن اسم مربع النص عربى؟ و جزاكم الله خيرا

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

لا أقول تم التصحيح أقول تم التعديل عدل كود مربعات النصوص إلى Private Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox12.Text = kh_count_y_m_d(TextBox10.Text, "1/10/2011", "D") TextBox13.Text = kh_count_y_m_d(TextBox10.Text, "1/10/2011", "M") TextBox14.Text = kh_count_y_m_d(TextBox10.Text, "1/10/2011", "Y") End Sub

جزاك الله خيرا أبا أحمد " ولد المجرب" شغل كبير

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

السلام عليكم لدى قاعدة بيانات فيها حقل تاريخ الميلاد يليه 3 حقول تحسب السن فى أول أكتوبر يوم شهر سنة كيف نجعل الحقول الثلاثة الأخيرة تحسب تلقائيا بدون تدخل المستخدم؟ بمثال لو سمحتم بارك الله فيكم

الكود بعد التعديل Private Sub CommandButton1_Click() Dim ws As Worksheet Set ws = Worksheets("Penalty") 'find first empty row in database iRow = ws.Cells(Rows.Count, 2) _ .End(xlUp).Offset(1, 0).Row 'check for a part number If Trim(Me.txtDate.Value) = "" Or Trim(Me.txtBadge.Value) = "" Then Me.txtDate.SetFocus MsgBox "Please enter a number and badge" Exit Sub End If 'copy the data to the database ws.Cells(iRow, 2).Value = Me.txtDate.Value ws.Cells(iRow, 3).Value = Me.txtBadge.Value ws.Cells(iRow, 4).Value = Me.txtBank.Value ws.Cells(iRow, 5).Value = Me.txtTransactionType.Value ws.Cells(iRow, 6).Value = Me.txtAmountSR.Value ws.Cells(iRow, 7).Value = Me.txtRemarks.Value 'clear the data Me.txtDate.Value = "" Me.txtBadge.Value = "" Me.txtBank.Value = "" Me.txtTransactionType.Value = "" Me.txtAmountSR.Value = "" Me.txtRemarks.Value = "" Me.txtDate.SetFocus End Sub Monthly-kemas.rar

الأخ أبا أحمد بارك الله فيك سعدت بمرورك هنا و ثنائك الطيب شكرا لك