مشکل با accept button

[majidsoft]

با سلام
من در برنامه در چند فرمم از accept button و cancel button استفاده مي كنم و لي در بعضي فرمها فعال نمي شود
با تشكر

[sh2007]

توي رويداد keydown فرمت اون دكمه ها رو فرخواني كن

[majidsoft]

با سلام
اگه می شه بیشتر توضیح بدین فرمت را چگونه فراخوانی کنم
با تشکر

[sh2007]

مثلا شما يه دكمه داري براي هر كاري اون دكمه شما با كليد انتر مي خواي حساس كني توي رويداد keydown فرمت اين كد رو مي نويسي
If e.KeyCode = Keys.Enter Then Button1.PerformClick
بعدش بجاي اون كليدهاي ديگه هم هست
راستي بايد رويداد كي پرويو فرم رو ترو كني

[majidsoft]

مثلا شما يه دكمه داري براي هر كاري اون دكمه شما با كليد انتر مي خواي حساس كني توي رويداد keydown فرمت اين كد رو مي نويسي
If e.KeyCode = Keys.Enter Then Button1.PerformClick
بعدش بجاي اون كليدهاي ديگه هم هست
راستي بايد رويداد كي پرويو فرم رو ترو كني


با سلام
با تشكر از شما
من براي اين BUTTON مقاديري گذاشتم كه مثلا اگر تكست باكسها خالي باشند پيغام بدهد هنگامي كه تكست باكسها خالي باشد دوبار فرمان BUTTON اجرا مي شود ولي هنگامي كه درست است يكبار
راستي دليلش چيست كه در بعضي فرمها ACCEPT button اجرا مي شود و در بعضي ديگر نه
با تشكر

[sh2007]

خب بايد خاصيت يا پروپرتي اون باتن براي اكسپت رو فعال كني يعني true

[majidsoft]

خب بايد خاصيت يا پروپرتي اون باتن براي اكسپت رو فعال كني يعني true

با سلام
اگه منظورت accept button مربوط به فرم است اونرو هم انجام دادم
ببين كد در پايينه اونجايي كه مربوط به خطاست وقتي اجرا مي شه اينجوريه ولي اگه تكه اول رد شد دوبار پيام نمي ده
با تشكر


Private Sub cmdrequest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdrequest.Click
If txtadd.Text = "" Or txtfamily.Text = "" Or txtname.Text = "" Or txttel.Text = "" Or cmbman.Text = "" Then
MsgBox(" ") : Exit Sub : End If
'******************* ****************************
Dim cnn As SqlConnection = Fn_Get_SqlConnection() : cmbtest.Items.Clear()
Dim Cmd1 As New SqlCommand("Select * from moshtarak where (fname like @fname) and (lname like @lname) or (id like @id)", cnn)
Cmd1.Parameters.AddWithValue("@fname", Trim(txtname.Text))
Cmd1.Parameters.AddWithValue("@lname", Trim(txtfamily.Text))
Cmd1.Parameters.AddWithValue("@id", Val(txtesh.Text))
cnn.Open() : Dim ww As SqlDataReader
ww = Cmd1.ExecuteReader()
While ww.Read() : cmbtest.Items.Add(ww("lname")) : End While
cnn.Close()
If cmbtest.Items.Count > 0 Then
MsgBox(" ") : Exit Sub
End If
'*************** *************************
Dim Cmd As New SqlCommand("spinsert_moshtarak", cnn)
Dim param As SqlParameter
Cmd.CommandType = Data.CommandType.StoredProcedure
param = Cmd.Parameters.Add("@id", Data.SqlDbType.BigInt)
param.Value = Val(txtesh.Text)
param = Cmd.Parameters.Add("@fname", Data.SqlDbType.NVarChar, 50)
param.Value = Trim(txtname.Text)
param = Cmd.Parameters.Add("@lname", Data.SqlDbType.NVarChar, 50)
param.Value = Trim(txtfamily.Text)
param = Cmd.Parameters.Add("@adres", Data.SqlDbType.Text)
param.Value = Trim(txtadd.Text)
param = Cmd.Parameters.Add("@mantag", Data.SqlDbType.NVarChar, 50)
param.Value = Trim(cmbman.Text)
param = Cmd.Parameters.Add("@tel", Data.SqlDbType.BigInt)
param.Value = txttel.Text
param = Cmd.Parameters.Add("@tel2", Data.SqlDbType.BigInt)
param.Value = txttel2.Text
cnn.Open() : Cmd.ExecuteNonQuery() : cnn.Close()
MsgBox(" ") : S_clear()
txtesh.Text = Val(txtesh.Text) + 1
txtname.Select()
End Sub