[Necro PC]

السلام عليكم. انشأت برنامج بقاعدة بيانات Access 2013.أريد كود لجعل البرنامج ينفذ أمرا إذا لم يضغط المستخدم على زر حفظ و ضغط مباشرة على زر الخروج. و إذا ضغط على زر الحفظ فالبرنامج يحفظ ويخرج عادي دن تنفيذ أي أمر آخر. و آمل أني أوصلت الفكرة وشكرا مسبقا

[moahmed.abdelmohsen]

بعد استخدام كود الحفظ مثل ذالك 

كود :

  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()

[Necro PC]

أخي كود الحفظ عندي. فقط أريد كود لجعل البرنامج ينفذ أمرا معينا إذا لم يتم الضغط على زر ما. لكن إذا تم الضغط عليه ينفذ أمرا مغايرا و أرجو أن تكون فهمتني و شكرا على ردك

[Mahmoud41]

(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

و اتمني ان اكون استطعت المساعده