[mo93]

السلام عليكم
انا كتبت كود ادخال عن طريق inputbox فعند ادخال القيمة و الضغط على زر موافق يخزن البيانات و عند الضغط على زر الالغاء يتابع تنفيذ باقي الكود و ايضاً يخزن البيانات , اريد كود يلغي تنفيذ باقي الاسطر البرمجية عند الضغط على زر الالغاء الخاص بـــ inputbox .
شكراً

[حريف برمجة]

(26-08-17, 05:44 AM)mo93 كتب : السلام عليكم
انا كتبت كود ادخال عن طريق inputbox فعند ادخال القيمة و الضغط على زر موافق يخزن البيانات و عند الضغط على زر الالغاء يتابع تنفيذ باقي الكود و ايضاً يخزن البيانات , اريد كود يلغي تنفيذ باقي الاسطر البرمجية عند الضغط على زر الالغاء الخاص بـــ inputbox .
شكراً

وعليكم السلام ،،

كود :

Dim SName As String = InputBox("أدخل البيانات هنا", "Data", "")

'هنا اذا المستخدم ادخل بيانات ادخل الكود المطلوب تنفيذه
       If SName <> "" Then
           MessageBox.Show("يوجد بيانات" & vbCrLf & SName)

'هنا اذا المستخدم لم يدخل بيانات ادخل الكود المطلوب تنفيذه
       ElseIf SName = "" Then
           MessageBox.Show("لا يوجد بيانات")

       End If

[mo93]

السلام عليكم
كل عام و انتم بخير
شكراً على ردك اخي حريف برمجة لكن هذا ليس ما اريده الظاهر اني لم اشرح ما اريده بالشكل المطلوب كما تعرف ان صندوق الادخال يحتوي على زرين ok و cancel الان عندما اضغط على زر ok ينفذ باقي الاسطر و كذلك عندما اضغط على زر cancel ينفذ باقي الاسطر اريد كود يخرج من sub عند الضغط على زر cancel بغض النظر عما اذا كان المستخدم ادخل البيانات ام لا اتمنى ان اكون قد وضحت مبتغاي بشكل افضل.
ارجو ان تعذرونا فقد اثقلنا عليكم شكراً

[سعود]

اخي الكريم mo93
كلنا نريد هالشي لكن غير متوفر ...
فيه سؤال شبيه وجوابه شبيه ايضا
الحل ان تعمل فورم مخصص لما تريده او تقبل الوضع الراهن.
وكل عام و انتم بخير.
المرفق مثال بسيط ممكن تسوي افضل منه



موديول 

كود :

Module inp
   Public ok As Boolean = False
   Public Function inpts(ByVal title As String, ByVal lb As String, ByVal def As String) As Boolean
       myinputbox.Text = title
       myinputbox.lbl.Text = lb
       myinputbox.txtinput.Text = def
       myinputbox.ShowDialog()
       If ok = True Then
           Return True
       Else
           Return False
       End If
   End Function
End Module

فورم الـ Inputbox

كود :

Public Class myinputbox
   Private Sub btnok_Click(sender As Object, e As EventArgs) Handles btnok.Click
       ok = True
       Me.Close()
   End Sub

   Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click
       ok = False
       Me.Close()
   End Sub
End Class

فورم الاستخدام

كود :

Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If inpts("هلا بيكم", "فضلا اكتب نص", "هنا رسالتك") = True Then
           ListBox1.Items.Add(myinputbox.txtinput.Text)
       End If
   End Sub
End Class

[mo93]

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

[سعود]

التسلسلي ام الوطني

---

الوطني نص عدل على الكود ليكون هكذا

كود :

               da = New OleDbDataAdapter("SELECT * FROM ba WHERE id_nu='" & ts.Text & "'", con)