codenew

لأنك وضعت التاريخ الأول أكبر من الثاني ، هنا يظهر بالسالب الصحيح التاريخ الأول يكون أقل من التاريخ الثاني تأكد من تكست1 يحمل التاريخ الأول وتكست2 يحمل التاريخ الثاني أي يكون هو الأكبر لأني مجرب الكود أخوي وهو شغال تمام التمام

اكتب الكود التالي في الكوماند tb1 اسم الجدول fname يتم استبداله باسم الحقل المراد عرض بياناته في الدروب داون لست cn كود الاتصال لديك Dim dataadapter1 As New OleDbDataAdapter("select fname from tb1", cn) Dim dataset1 As New DataSet dataadapter1.Fill(dataset1) D…

التاريخ الأول في تكست1 التاريخ الثاني في تكست2 لمعرفة عدد الأيام MsgBox DateDiff("d",Text1,Text2) لمعرفة عدد الأشهر MsgBox DateDiff("m",Text1,Text2) لمعرفة عدد السنوات MsgBox DateDiff("yyyy",Text1,Text2)

العفو اخي

الواضح من الرسالة بأن الملف مفتوح للقراءة فقط أي لا يمكن التعديل عليه حاول فتح الملف بكامل الصلاحية أي للقراءة والتعديل ...،،،

يعني تعمل أو لا ما فهمت عليك أخي

في الكوماند بوتن ضع الكود التالي DataGridView1.Rows.Add(ComboBox1.Text, ComboBox2.Text, TextBox1.Text, TextBox2.Text, TextBox3.Text)

مرحبا من جديد في حدث CellEndEdit للداتا قريد Private Sub DetailDataGridView_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DetailDataGridView.CellEndEdit DetailDataGridView.Rows(e.RowIndex).Cells(2).Value…

العفو اخي جواد بالتوفيق للجميع

أخي سمير أنصحك انك تبتعد عن البرمجة عن طريق المعالج صدقني امكانياتها محدودة ولا تستطيع التحكم بها بشكل أكبر البرمجة بالكود تمكنك من عمل كل شي تريده ولو صعب عليك شي وقمت بالبحث أو طرح سوال هنا أو هناك فستجد الإجابة فوراً لأن جميع المبرمجين يشتغلون بالكود ......…

If val(Text1) <= 10 Then MsgBox "ضعيف" End If If val(Text1) >= 11 and val(Text1) < 20 Then MsgBox "مقبول" End If If val(Text1) >= 21 and val(Text1) < 30 Then MsgBox "جيد" End If If val(Text1) >= 31 and val(Text1) < 40 Then MsgBox "جيد جدا" End If If val(Text1)…

آمين وياك والمسلمين يارب العالمين

العفو المشكلة اسم الحقل في الجدول p_w وفي جملة SQLs مكتوب Password يجب تعديل Password إلى p_w أيضاً يجب عدم وضع مسافات مثال Where User_n = ' " & Text1 & " ' And p_w = ' " & Text2 & " ' " الجملة العلوية خطا الصحيح كالتالي Where User_n = '" & Text1 & "' And p_w …

وعليكم السلام ورحمة الله وبركاته المثال يسهل العملية ، إرفق المثال !

تصفح الموقع تمام وعيش مع نفسك

وعليكم السلام ورحمة الله وبركاته أخي الأفضل ترفق مثال وابشر بالخير والسبب لا اعلم ما هي طريقتك بالاتصال بالداتا بيز هل بالكود او بالمعالج ارفق مثالك اعدله لك .. بالتوفيق للجميع

هلا اخوي اكتب الأكواد كما هي موضحه وستقوم بالملطوب أكواد السجل الأول والتالي والسابق والأخير كوماند 1 If Not Rss.BOF Then Rss.MoveFirst If Rss.BOF And Rss.RecordCount > 0 Then Beep End If Call Catogary '''''''''''''''''''''''''''''''''''''''''''''''''' Dim rs2…

وعليكم السلام ورحمة الله وبركاته نعم يمكن نقل سجل من جدول إلى جدول آخر الكود كالتالي : sql ="Insert into Table2 Select * from Table1"

المعذرة تغيير كلمة المرور - تدريب2.rar

تمام الآن فهمت عليك . اخي الأداة (Datagrid) امكانياتها محدوده يوجد اداه افضل منها بكثير وبها امكانيات افضل منها اسمها (VSFlexgrid 8) وضعتها في مشروعك بدلاً من الداتاقريد وقمت بعمل المطلوب .. تحياتي formnew.rar