msf_2008
دوشنبه 10 خرداد 1389, 12:01 عصر
سلام
در اكسس
يه فرم براي ورود اطلاعات مدارس دارم كه شامل 3 فيلد كد مدرسه، نام مدرسه و ناحيه است...
فعلا اين فرم 6 تا دكمه داره شامل: درج( بعد از كليك روي دكمه ي درج مي شه اطلاعات رو وارد كرد) ثبت (ثبت اطلاعات در جدول)، اولين ركورد، آخرين ركورد، ركورد قبلي و ركورد بعدي (پيمايش بين ركوردها)
كد درج رو اين طور نوشتم:
Private Sub cmdnew_Click()
Me.Recordset.AddNew
s_id.SetFocus
Me.s_id.Locked = False
Me.s_name.Locked = False
Me.s_area.Locked = False
cmdnew.Enabled = False
cmdsabt.Enabled = True
End Sub
كد ثبت:
Private Sub cmdsabt_Click()
cmdnext.Enabled = True
cmdprevious.Enabled = True
cmdlast.Enabled = True
cmdfirst.Enabled = True
On Error GoTo p
Me.Recordset.Update
p:
If Err.Number = 2110 Then
MsgBox ("فيلد ها را پر كنيد")
cmdnext.Enabled = False
cmdprevious.Enabled = False
cmdlast.Enabled = False
cmdfirst.Enabled = False
cmdnew.Enabled = False
cmdsabt.Enabled = False
Else
cmdnew.Enabled = True
cmdnew.SetFocus
cmdsabt.Enabled = False
End If
Me.s_id.Locked = True
Me.s_name.Locked = True
Me.s_area.Locked = True
Me.s_id.Enabled = False
Me.s_name.Enabled = False
Me.s_area.Enabled = False
End Sub
ولي كار نمي كنه...
كلا برنامه ام كار نمي كنه حتي دكمه هاي ويرايش
در اكسس
يه فرم براي ورود اطلاعات مدارس دارم كه شامل 3 فيلد كد مدرسه، نام مدرسه و ناحيه است...
فعلا اين فرم 6 تا دكمه داره شامل: درج( بعد از كليك روي دكمه ي درج مي شه اطلاعات رو وارد كرد) ثبت (ثبت اطلاعات در جدول)، اولين ركورد، آخرين ركورد، ركورد قبلي و ركورد بعدي (پيمايش بين ركوردها)
كد درج رو اين طور نوشتم:
Private Sub cmdnew_Click()
Me.Recordset.AddNew
s_id.SetFocus
Me.s_id.Locked = False
Me.s_name.Locked = False
Me.s_area.Locked = False
cmdnew.Enabled = False
cmdsabt.Enabled = True
End Sub
كد ثبت:
Private Sub cmdsabt_Click()
cmdnext.Enabled = True
cmdprevious.Enabled = True
cmdlast.Enabled = True
cmdfirst.Enabled = True
On Error GoTo p
Me.Recordset.Update
p:
If Err.Number = 2110 Then
MsgBox ("فيلد ها را پر كنيد")
cmdnext.Enabled = False
cmdprevious.Enabled = False
cmdlast.Enabled = False
cmdfirst.Enabled = False
cmdnew.Enabled = False
cmdsabt.Enabled = False
Else
cmdnew.Enabled = True
cmdnew.SetFocus
cmdsabt.Enabled = False
End If
Me.s_id.Locked = True
Me.s_name.Locked = True
Me.s_area.Locked = True
Me.s_id.Enabled = False
Me.s_name.Enabled = False
Me.s_area.Enabled = False
End Sub
ولي كار نمي كنه...
كلا برنامه ام كار نمي كنه حتي دكمه هاي ويرايش