ذخیره وویرایش

[moghadam1372]

با سلام

من قبلا برای اضافه کردن رکورد یک کلید ذخیره1 گذاشته بودم وبرای ذخیره اطلاعات ویرایش شده یک کلید دیگر ذخیره 2

حالا می شود با یک کلید ذخیره هر دو کاررا انجام داد یعنی اگر رکورد جدید بود رکورد اضافه کند واگر ویرایش بود ان را ویرایش کند بانک اطلاعاتی اکسس وبا adodc 1

[m.4.r.m]

شما موقع کلیک رو باتون Caption اون رو عوض کنید و بعد شرط رو بر روی Caption باتون بزارید اگر ویرایش بود یک عمل خاص اگر جدید بود یک عمل خاص دیگه رو انجام بده . همین

[moghadam1372]

با سلام وتشکر
من متوجه منظور شما نشده ام اگر میتوانید کد ان ویا اگر نمونه ای است ممنون میشوم ؟؟؟؟؟

[m.4.r.m]

در Caption باتون رو تو Properties بنویسید "جدید" سپس این کد رو هم تو برنامتون قرار بدید .

Private Sub Command1_Click()

If Command1.Caption = "جديد" Then
MsgBox "جديد"
Command1.Caption = "ويرايش"
ElseIf Command1.Caption = "ويرايش" Then
MsgBox "ويرايش"
Command1.Caption = "جديد"
End If

End Sub

[m.4.r.m]

در ضمن می تونی از Check هم استفاده کنید اول خاصیت Style مربوط به چک باکس رو بزارید روی Graphical و بعد این کد رو به برنامه اضافه کنید

Private Sub Check1_Click()
If Check1.Value = 1 Then
MsgBox "جديد"
Else
MsgBox "ويرايش"
End If
End Sub

Private Sub Form_Load()
Check1.Caption = "جديد / ويرايش"
End Sub