ehsanocx
شنبه 02 اردیبهشت 1391, 17:22 عصر
سلام دوستان
من یکسری کد دارم برای محدود کردن کاربر که این کد ها توی تمام فرم هام استفاده کردم. نزدیک 40 تا 50 خط میشه می خوام این کد ها رو توی ماژول بنویسم و توی فرم هام این کد هارو فرا خوانی کنم میشه چنین کاری کرد؟
اگر میشه میشه راهنماییم کنید؟
این کد های منه:
Dim db6 As New Connection
Dim Adodc6 As New Recordset
'******************************
For I = 1 To Adodc6.RecordCount
If Adodc6.Fields("User1") = FormShams.txtUser Then
txtEdit.Text = Adodc6.Fields("edit")
Else
Adodc6.MoveNext
End If
Next I
If txtEdit.Text = 1 Then
cmdEdit.Enabled = False
Exit Sub
end if
'**********************************************
For I = 1 To Adodc6.RecordCount
If Adodc6.Fields("User1") = FormShams.txtUser Then
txtPrint.Text = Adodc6.Fields("print1")
Else
Adodc6.MoveNext
End If
Next I
If txtPrint.Text = 1 Then
cmdPrint.Enabled = False
Exit Sub
end if
'************************************************* ******
For I = 1 To Adodc6.RecordCount
If Adodc6.Fields("User1") = FormShams.txtUser Then
txtSabt.Text = Adodc6.Fields("sabt")
Else
Adodc6.MoveNext
End If
Next I
'************************************************* ***
If txtSabt.Text = 1 Then
cmdSave.Enabled = False
Exit Sub
end if
'************************************************* ***
For I = 1 To Adodc6.RecordCount
If Adodc6.Fields("User1") = FormShams.txtUser Then
txtDelete.Text = Adodc6.Fields("delete1")
Else
Adodc6.MoveNext
End If
Next I
If txtDelete.Text = 1 Then
CmdDelete.Enabled = False
Exit Sub
ElseIf Delete = 0 Then
MsgBox "áØÝÇ Ñ˜æÑÏ ãæÑÏ äÙÑ ÑÇ ÇäÊÎÇÈ ˜äíÏ", vbExclamation, "ÎØÇ"
Exit Sub
end if
من این کد هارو توی 40 تا فرم استفاده می کنم و توی این 40 تا فرم تکرار میشه.
چطوری می تونم از ماژول استفاده کنم و خروجی این کد هارو توی فرمم هام فراخوانی کنم؟
من یکسری کد دارم برای محدود کردن کاربر که این کد ها توی تمام فرم هام استفاده کردم. نزدیک 40 تا 50 خط میشه می خوام این کد ها رو توی ماژول بنویسم و توی فرم هام این کد هارو فرا خوانی کنم میشه چنین کاری کرد؟
اگر میشه میشه راهنماییم کنید؟
این کد های منه:
Dim db6 As New Connection
Dim Adodc6 As New Recordset
'******************************
For I = 1 To Adodc6.RecordCount
If Adodc6.Fields("User1") = FormShams.txtUser Then
txtEdit.Text = Adodc6.Fields("edit")
Else
Adodc6.MoveNext
End If
Next I
If txtEdit.Text = 1 Then
cmdEdit.Enabled = False
Exit Sub
end if
'**********************************************
For I = 1 To Adodc6.RecordCount
If Adodc6.Fields("User1") = FormShams.txtUser Then
txtPrint.Text = Adodc6.Fields("print1")
Else
Adodc6.MoveNext
End If
Next I
If txtPrint.Text = 1 Then
cmdPrint.Enabled = False
Exit Sub
end if
'************************************************* ******
For I = 1 To Adodc6.RecordCount
If Adodc6.Fields("User1") = FormShams.txtUser Then
txtSabt.Text = Adodc6.Fields("sabt")
Else
Adodc6.MoveNext
End If
Next I
'************************************************* ***
If txtSabt.Text = 1 Then
cmdSave.Enabled = False
Exit Sub
end if
'************************************************* ***
For I = 1 To Adodc6.RecordCount
If Adodc6.Fields("User1") = FormShams.txtUser Then
txtDelete.Text = Adodc6.Fields("delete1")
Else
Adodc6.MoveNext
End If
Next I
If txtDelete.Text = 1 Then
CmdDelete.Enabled = False
Exit Sub
ElseIf Delete = 0 Then
MsgBox "áØÝÇ Ñ˜æÑÏ ãæÑÏ äÙÑ ÑÇ ÇäÊÎÇÈ ˜äíÏ", vbExclamation, "ÎØÇ"
Exit Sub
end if
من این کد هارو توی 40 تا فرم استفاده می کنم و توی این 40 تا فرم تکرار میشه.
چطوری می تونم از ماژول استفاده کنم و خروجی این کد هارو توی فرمم هام فراخوانی کنم؟