با سلام.پس از عوض کردن ویندوز به این مشکل برخوردم که پس از اجرای برنامه اکسس هنگام استفاده از Table ها این ارور رو میده که permission ندارید .به این صورت:
records cant be read,no read permission on propose.
و وقتي debug رو می زنيم به اينجا ميرسه که:
Private Sub SearchWord_KeyPress(KeyAscii As Integer)
Dim pn As Integer
On Error GoTo 1000
If KeyAscii = 13 Then
pn = Me![ProposeNo]
DoCmd.OpenForm "ProposeMainForm"
DoCmd.FindRecord pn
ElseIf KeyAscii = 27 Then
DoCmd.Close acForm, "ProposeEnter"
End If
GoTo 2000
1000:
DoCmd.OpenForm "ProposeMainForm"
2000:
End Sub
لطفا کمک کنيد چون شديد کارهاي انجام شده ام به اين بستگي داره
records cant be read,no read permission on propose.
و وقتي debug رو می زنيم به اينجا ميرسه که:
Private Sub SearchWord_KeyPress(KeyAscii As Integer)
Dim pn As Integer
On Error GoTo 1000
If KeyAscii = 13 Then
pn = Me![ProposeNo]
DoCmd.OpenForm "ProposeMainForm"
DoCmd.FindRecord pn
ElseIf KeyAscii = 27 Then
DoCmd.Close acForm, "ProposeEnter"
End If
GoTo 2000
1000:
DoCmd.OpenForm "ProposeMainForm"
2000:
End Sub
لطفا کمک کنيد چون شديد کارهاي انجام شده ام به اين بستگي داره
