fshadh1
سه شنبه 22 دی 1394, 20:18 عصر
موقع اجرا برنامه از adokarbar.refresh ایراد میگیره اینم کدا مشکل از کجاست هر کاری کردم هر جا گذاشتم ارور داد
Option Explicit
Sub cmfalse()
tuserold.Enabled = True
tusernew.Enabled = False
End Sub
Private Sub cmexit_Click()
Unload Me
End Sub
Private Sub Bexit_Click()
Unload Me
End Sub
Private Sub Bsabtuser_Click()
If Combo1.Text = "äÇã ˜ÇÑÈÑí" Then
If (tuserold.Text <> "") And (tusernew.Text <> "") Then
Adokarbar.Recordset.Find " user like '" & tuserold.Text & "'"
If Adokarbar.Recordset.EOF = False Then
Adokarbar.Recordset.Fields("user") = tusernew.Text
MsgBox "äÇã ˜ÇÑÈÑí ÔãÇ ÊÛííÑ íÇÝÊ", vbInformation, ""
ElseIf Adokarbar.Recordset.EOF = True Then
MsgBox "ãÔÎÕÇÊ ÈÏÑÓÊí æÇÑÏ äÔÏå ÇÓÊ", vbCritical, "ÎØÇ"
End If
Else
MsgBox "ãÔÎÕÇÊ ÎæÇÓÊå ÔÏå ÑÇ ˜Çãá ˜äíÏ"
End If
End If
If Combo1.Text = "ÑãÒ æÑæÏ" Then
If (tuserold.Text <> "") And (tusernew.Text <> "") Then
Adokarbar.Recordset.Find " pass like '" & tuserold.Text & "'"
If Adokarbar.Recordset.EOF = False Then
Adokarbar.Recordset.Fields("pass") = tusernew.Text
MsgBox "äÇã ˜ÇÑÈÑí ÔãÇ ÊÛííÑ íÇÝÊ", vbInformation, ""
ElseIf Adokarbar.Recordset.EOF = True Then
Adokarbar.Refresh
MsgBox "ãÔÎÕÇÊ ÈÏÑÓÊí æÇÑÏ äÔÏå ÇÓÊ", vbCritical, "ÎØÇ"
End If
Else
MsgBox "ãÔÎÕÇÊ ÎæÇÓÊå ÔÏå ÑÇ ˜Çãá ˜äíÏ"
End If
End If
End Sub
Private Sub Form_Load()
Adokarbar.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " + App.Path + "\login.mdb"
Adokarbar.RecordSource = "login"
Adokarbar.CommandType = adCmdTable
Adokarbar.Refresh
End Sub
ینم فایل ضمیمش
138348
امکان داره رویه کامپیوتر شما بدون ارور باز بشه ولی مال من ارور رفرش میده
در واقع من یه فرم لاگین دارم که دو نوع کاربر داریم نوع اول ارشد نوع دوم عادی که اگه با نوع دوم وارد شی از رفرش توی این صفحه ایراد میگیره ولی اگه از نوع اول وارد شی ایرادی نداره
Option Explicit
Sub cmfalse()
tuserold.Enabled = True
tusernew.Enabled = False
End Sub
Private Sub cmexit_Click()
Unload Me
End Sub
Private Sub Bexit_Click()
Unload Me
End Sub
Private Sub Bsabtuser_Click()
If Combo1.Text = "äÇã ˜ÇÑÈÑí" Then
If (tuserold.Text <> "") And (tusernew.Text <> "") Then
Adokarbar.Recordset.Find " user like '" & tuserold.Text & "'"
If Adokarbar.Recordset.EOF = False Then
Adokarbar.Recordset.Fields("user") = tusernew.Text
MsgBox "äÇã ˜ÇÑÈÑí ÔãÇ ÊÛííÑ íÇÝÊ", vbInformation, ""
ElseIf Adokarbar.Recordset.EOF = True Then
MsgBox "ãÔÎÕÇÊ ÈÏÑÓÊí æÇÑÏ äÔÏå ÇÓÊ", vbCritical, "ÎØÇ"
End If
Else
MsgBox "ãÔÎÕÇÊ ÎæÇÓÊå ÔÏå ÑÇ ˜Çãá ˜äíÏ"
End If
End If
If Combo1.Text = "ÑãÒ æÑæÏ" Then
If (tuserold.Text <> "") And (tusernew.Text <> "") Then
Adokarbar.Recordset.Find " pass like '" & tuserold.Text & "'"
If Adokarbar.Recordset.EOF = False Then
Adokarbar.Recordset.Fields("pass") = tusernew.Text
MsgBox "äÇã ˜ÇÑÈÑí ÔãÇ ÊÛííÑ íÇÝÊ", vbInformation, ""
ElseIf Adokarbar.Recordset.EOF = True Then
Adokarbar.Refresh
MsgBox "ãÔÎÕÇÊ ÈÏÑÓÊí æÇÑÏ äÔÏå ÇÓÊ", vbCritical, "ÎØÇ"
End If
Else
MsgBox "ãÔÎÕÇÊ ÎæÇÓÊå ÔÏå ÑÇ ˜Çãá ˜äíÏ"
End If
End If
End Sub
Private Sub Form_Load()
Adokarbar.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " + App.Path + "\login.mdb"
Adokarbar.RecordSource = "login"
Adokarbar.CommandType = adCmdTable
Adokarbar.Refresh
End Sub
ینم فایل ضمیمش
138348
امکان داره رویه کامپیوتر شما بدون ارور باز بشه ولی مال من ارور رفرش میده
در واقع من یه فرم لاگین دارم که دو نوع کاربر داریم نوع اول ارشد نوع دوم عادی که اگه با نوع دوم وارد شی از رفرش توی این صفحه ایراد میگیره ولی اگه از نوع اول وارد شی ایرادی نداره