fateme_shourabi
شنبه 16 اردیبهشت 1385, 10:47 صبح
سلام خسته نباشید.
هنگام اضافه کردن در adodc داده ى اضافه شده جایگزین اولین داده در data grid مى شوند.
Private Sub C2_Click()
flag = 0
Do While (Adodc1.Recordset.EOF = False)
Adodc1.Recordset.MoveNext
If (Adodc1.Recordset.Fields("نام دارو") = T1.Text) Then
j = MsgBox("داده تکرارى مى باشد.", vbOKOnly + vbDefaultButton1 + vbCritical, "توجه")
T1.Text = ""
T2.Text = ""
T3.Text = ""
T4.Text = ""
T5.Text = ""
T6.Text = ""
T7.Text = ""
T8.Text = ""
T9.Text = ""
flag = 1
End If
Loop
If flag = 0 Then
i = MsgBox("آیا مطمئن هستید که مى خواهید داده را ذخیره کنید؟", vbYesNo + vbDefaultButton1 + vbQuestion, "توجه")
If i = vbYes Then
Adodc1.Recordset.MoveLast
Adodc1.Recordset.AddNew
End If
Else
T1.SetFocus
End If
End sub
.
هنگام اضافه کردن در adodc داده ى اضافه شده جایگزین اولین داده در data grid مى شوند.
Private Sub C2_Click()
flag = 0
Do While (Adodc1.Recordset.EOF = False)
Adodc1.Recordset.MoveNext
If (Adodc1.Recordset.Fields("نام دارو") = T1.Text) Then
j = MsgBox("داده تکرارى مى باشد.", vbOKOnly + vbDefaultButton1 + vbCritical, "توجه")
T1.Text = ""
T2.Text = ""
T3.Text = ""
T4.Text = ""
T5.Text = ""
T6.Text = ""
T7.Text = ""
T8.Text = ""
T9.Text = ""
flag = 1
End If
Loop
If flag = 0 Then
i = MsgBox("آیا مطمئن هستید که مى خواهید داده را ذخیره کنید؟", vbYesNo + vbDefaultButton1 + vbQuestion, "توجه")
If i = vbYes Then
Adodc1.Recordset.MoveLast
Adodc1.Recordset.AddNew
End If
Else
T1.SetFocus
End If
End sub
.