codenew

وعليكم السلام ورحمة الله وبركاته اكيد اخي ممكن احنا هنا نتعاون شوف اخوي كود Save الموجود في فورم 3 امسح الكود الموجود فيه وألصق الكود التالي : If Text1 = "" Then MsgBox " Sorry,Add All Data ", vbCritical = vbMsgBoxleft, "Cheque Printing System " Text1.SetFocus…

مرحبا جربتها الآن وهي شغالة تمام اكتب الكود التالي : If Not IsNull(RS!SupplierID) Then Form3.Text1 = RS!SupplierID Else Form3.Text1 = "" If Not IsNull(RS!SupplierName) Then Form3.Text2 = RS!SupplierName Else Form3.Text2 = "" If Not IsNull(RS!discraption) Then …

وياك يارب

انا فاهم عليك ولكن انتي مش فاهمة عليه احنا وضعنا في جملة فتح الجدول شرط ماهو الشرط : الاسم يتساوى مع النص الموجود في تكست1 لو وجد السجل يقوم بالتعديل لو السجل غير موجود يقوم بحفظ السجل كسجل جديد والسيناريو اللي حضرتك تعمليه هو كالتالي مثال : لدينا سجل بأسم احم…

فورم 4 كوماند سيليكت الكود الموجود لديك كالتالي : Form3.Text1 = Rss.Fields("SupplierID").Value Form3.Text2 = Rss.Fields("SupplierName").Value Form3.Text3 = Rss.Fields("DISCRAPTION").Value Unload Me Form3.Command7.Enabled = True اسمحه كامل ، وألصق الكود التالي …

السبب : هناك حقل يحمل قيمه null اي فارغ الجواب : If Rss.Fields("DISCRAPTION").Value <> Null Then Form3.Text3 = Rss.Fields("DISCRAPTION").Value ## ملاحظه ## يمكن استبدال هذا Rss.Fields("DISCRAPTION").Value بهذا Rss!DISCRAPTION عادي لن يؤثر على العمل

راجعي الكود الأخير يوجد به الشرح ================================ كود الحفظ لوحده If Text1.Text = "" Or Text2.Text = "" Then MsgBox "يجب كتابة الاسم والعنوان على الاقل ", vbCritical, "تنبيــه" Exit Sub End If If rs.State = adStateOpen Then rs.Close rs.Open "se…

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

نعم صحيح انظر الصورة لتتضح الفكرة ، بالتوفيق مثال آخر

many-to-many

عفواً هناك خطأ بالفعل زيادة حرف وتم تعديلها في المشاركة الأولى Text3.Text = DateDioff("d", Text1.Text, Text2.Text) تكون هكذا Text3.Text = DateDiff("d", Text1.Text, Text2.Text)

Text3.Text = DateDiff("d", Text1.Text, Text2.Text) تكست1 = يحمل التاريخ الأول تكست2 = يحمل التاريخ الثاني تكست3 = الفرق بين التاريخين بالأيام "d" = day يعني يوم لو نبي الفرق بالشهور نضع بدل d m لو نبي الفرق بالسنوات نضع بدل d yyyy

آخر خلية في نفس الصف أو في آخر صف في الأسفل على العموم هذا الكود والناتج حطيه في اي مكان تبيه بإفتراض ان الحقل الثاني اللي يحمل اداة الشك بوكس Dim total As Integer = 0 For i = 0 To DataGridView1.Rows.Count - 2 If DataGridView1.Rows(i).Cells(1).Value = True The…

تم عمل المثال بقاعدة بيانات نوع اكسس 2007 تم تحويل قاعدة البيانات على 2003 وتم عمل المطلوب من انه يميز اللي معمول عليه صح او بدون في المرفقات datagridchecked.rar

مرحبا لتحديد صف في اللست فيو كالتالي : ListView1.SelectedItem = ListView1.ListItems(2) رقم 2 يعبر عن الصف الثاني وهكذا

مرحبا ، المطلوب في المرفقات test1.rar

وعليكم السلام مرحبا اخي مثل ايه يعني ممكن اساعدك

مش مهم يكون شيك بوكس في الداتا قريد انظري المثال في المرفقات datagridchecked.rar

كيف مجاني ، وخمسين دولار ؟

مرحبا المثال جديد في المرفقات به كل ما طلبتي ان شاء الله دعواتك test11new-new.rar