تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] ممكن مساعدة عاجلة
#1
السلام عليكم. انشأت برنامج بقاعدة بيانات Access 2013.أريد كود لجعل البرنامج ينفذ أمرا إذا لم يضغط المستخدم على زر حفظ و ضغط مباشرة على زر الخروج. و إذا ضغط على زر الحفظ فالبرنامج يحفظ ويخرج عادي دن تنفيذ أي أمر آخر. و آمل أني أوصلت الفكرة وشكرا مسبقا
الرد
تم الشكر بواسطة:
#2
بعد استخدام كود الحفظ مثل ذالك 
كود :
  Public Sub Save_expiredDate_InDirect(colName As String, colNametxt As String)
       ' check if this ColumnName is already exist in database
       Dim dt As New DataTable
       Dim da As New OleDbDataAdapter
       dt.Clear()
       da = New OleDbDataAdapter("Select * FROM expiredDate where " & colName & " = '" & colNametxt & "'", con)
       da.Fill(dt)
       ' if Column present give msgbox to alert & Dont save
       If dt.Rows.Count > 0 Then
           Exit Sub
           'MsgBox("هذا الاسم موجود من قبل ", MsgBoxStyle.Critical, "بيانات مكررة")
       Else
           dt.Rows.Add()
           Dim last As Integer = dt.Rows.Count - 1
           'DT.Rows(last).Item("id") = id.Text
           dt.Rows(last).Item("expiredDate") = Label1.Text
           Dim Save As New OleDbCommandBuilder(da)
           da.Update(dt)
           dt.AcceptChanges()
           'give msgbox to sure save
           MsgBox("تم الحفظ بنجاح ", MsgBoxStyle.Information, "تاكيد الحفظ")

       End If
   End Sub


يجب عليك استدعاء Sub الخاصة بالحفظ خلف زر الامر 

وبعد ذلك الامر ضف
        Me.Close()
الرد
تم الشكر بواسطة:
#3
أخي كود الحفظ عندي. فقط أريد كود لجعل البرنامج ينفذ أمرا معينا إذا لم يتم الضغط على زر ما. لكن إذا تم الضغط عليه ينفذ أمرا مغايرا و أرجو أن تكون فهمتني و شكرا على ردك
الرد
تم الشكر بواسطة:
#4
(01-01-21, 12:20 AM)Necro PC كتب : أخي كود الحفظ عندي. فقط أريد كود لجعل البرنامج ينفذ أمرا معينا إذا لم يتم الضغط على زر ما. لكن إذا تم الضغط عليه ينفذ أمرا مغايرا و أرجو أن تكون فهمتني و شكرا على ردك




لقد واجهتني هذه المشكله من قبل و حللتها ب ...

انشأ متغير مثال


dim n as byte = 0
وعند الضعط علي الزر يجعل قيمه N = 1


وعند الضغط علي زر الحفظ

if n = 0 then

الكود

Else if n = 1 then

الكود الاخر 

End if

و اتمني ان اكون استطعت المساعده  Heart
الرد
تم الشكر بواسطة: bidaya


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن التعديل في كود البحث المرفق أبووسم 1 249 08-04-21, 10:32 PM
آخر رد: messry
  ممكن مساعدة فى كود البحث محمد فوزى محمد 1 197 08-04-21, 10:28 PM
آخر رد: messry
  [VB.NET] ممكن كود يعطي انذار عند انتهاء موعد تسليم كتب Nena 2 217 30-03-21, 08:53 AM
آخر رد: Nena
  [سؤال] ممكن رد علي سؤال حسن الجلب 2 170 28-03-21, 03:39 AM
آخر رد: حسن الجلب
Sad [كود] ممكن حد يقلي الخطى فين . رضوان الجماعي 10 392 28-03-21, 02:34 AM
آخر رد: العتيق
  [VB.NET] اريد مساعدة في حل الكود asrar 6 743 27-03-21, 11:08 PM
آخر رد: asrar
Question [VB.NET] مساعدة ضرورية ارجوكم saqaf 1 92 27-03-21, 04:54 AM
آخر رد: علي بنيان
  [VB.NET] مساعدة: مع اداة print document الارقام تطبع انجليزى مع ويندز 8 أو 10 فقط هل من حل؟ ym_a11 3 172 24-03-21, 11:07 PM
آخر رد: أبو عبدالله الحلواني
  ممكن سؤال في ال for اليوم السابع 3 239 23-03-21, 04:03 PM
آخر رد: رضوان الجماعي
  [سؤال] ممكن حد يساعدني سويت الخطوات كلها كامله ومار رضوان الجماعي 0 184 22-03-21, 05:57 PM
آخر رد: رضوان الجماعي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم