السلام عليكم. انشأت برنامج بقاعدة بيانات Access 2013.أريد كود لجعل البرنامج ينفذ أمرا إذا لم يضغط المستخدم على زر حفظ و ضغط مباشرة على زر الخروج. و إذا ضغط على زر الحفظ فالبرنامج يحفظ ويخرج عادي دن تنفيذ أي أمر آخر. و آمل أني أوصلت الفكرة وشكرا مسبقا
بعد استخدام كود الحفظ مثل ذالك
كود :
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()
أخي كود الحفظ عندي. فقط أريد كود لجعل البرنامج ينفذ أمرا معينا إذا لم يتم الضغط على زر ما. لكن إذا تم الضغط عليه ينفذ أمرا مغايرا و أرجو أن تكون فهمتني و شكرا على ردك
(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
و اتمني ان اكون استطعت المساعده 