Blacky
03-08-2006, 07:56 PM
این دستور فکر میکنم یه چیزایی رو فیلتر میکنه اگه درست باشه این پایینی ها چرا با وی بی 6 فرق مییکنن
'Protector : SS
'Last Update : 1382/08/25
'Tables : -
'Queries : Sfrm25_3 , Ap_frm25_3 , upfrm25_3a , upfrm25_3b , upfrm25_3
'Forms : -
'Reports : -
'--------------------------------------------------------------------'
Option Compare Database
Private Sub F_Form_No_Enter()
End Sub
Private Sub Command117_Click()
SetFilter False
End Sub
Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
End Sub
Private Sub Form_Timer()
End Sub
Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
End Sub
Private Sub F_Form_No_AfterUpdate()
End Sub
Private Sub F_Form_Date_AfterUpdate()
End Sub
Private Sub F_Tel_No_AfterUpdate()
End Sub
Private Sub Button01_Click()
SetFilter True
Me.Command117.SetFocus
End Sub
Private Sub Button03_Click()
End Sub
Private Sub Button02_Click()
DoCmd.Close
End Sub
Private Sub Form_Close()
End Sub
Private Sub SetFilter(HowFilter As Boolean)
Dim StrFilter As String
If HowFilter Then
StrFilter = "1=1 "
If Not IsNull(fnam) And Len(Trim(fnam)) > 0 Then
StrFilter = StrFilter & " and [fname]=forms!f1!fnam "
End If
If Not IsNull(lnam) And Len(Trim(lnam)) > 0 Then
StrFilter = StrFilter & " and [lname]=forms!f1!lnam "
End If
If Not IsNull(TelNo) And Len(Trim(TelNo)) > 0 Then
StrFilter = StrFilter & " and [tel_no]=forms!f1!telNo "
End If
If Not IsNull(sen_k) And Len(Trim(sen_k)) > 0 Then
StrFilter = StrFilter & " and [Centeries1_kafo]=forms!f1!sen_k "
End If
If Not IsNull(sen_p) And Len(Trim(sen_p)) > 0 Then
StrFilter = StrFilter & " and [Centeries1_Post]=forms!f1!sen_p "
End If
If Not IsNull(pcm_k) And Len(Trim(pcm_k)) > 0 Then
StrFilter = StrFilter & " and [PCM_n1_kafo]=forms!f1!pcm_k"
End If
If Not IsNull(pcm_p) And Len(Trim(pcm_p)) > 0 Then
StrFilter = StrFilter & " and [PCM_n1_Post ]=forms!f1!pcm_p "
End If
DoCmd.ApplyFilter , StrFilter
Else
With Me
.TelNo = Null
.lnam = Null
.fnam = Null
.sen_k = Null
.sen_p = Null
.pcm_k = Null
.pcm_p = Null
End With
DoCmd.ShowAllRecords
End If
Me.Refresh
End Sub
Private Sub pcm_k_AfterUpdate()
Me.pcm_p.SetFocus
End Sub
Private Sub pcm_p_AfterUpdate()
Me.Button01.SetFocus
End Sub
Private Sub sen_k_AfterUpdate()
Me.sen_p.SetFocus
End Sub
Private Sub sen_p_AfterUpdate()
Me.Button01.SetFocus
End Sub
Private Sub TelNo_BeforeUpdate(Cancel As Integer)
End Sub
'Protector : SS
'Last Update : 1382/08/25
'Tables : -
'Queries : Sfrm25_3 , Ap_frm25_3 , upfrm25_3a , upfrm25_3b , upfrm25_3
'Forms : -
'Reports : -
'--------------------------------------------------------------------'
Option Compare Database
Private Sub F_Form_No_Enter()
End Sub
Private Sub Command117_Click()
SetFilter False
End Sub
Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
End Sub
Private Sub Form_Timer()
End Sub
Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
End Sub
Private Sub F_Form_No_AfterUpdate()
End Sub
Private Sub F_Form_Date_AfterUpdate()
End Sub
Private Sub F_Tel_No_AfterUpdate()
End Sub
Private Sub Button01_Click()
SetFilter True
Me.Command117.SetFocus
End Sub
Private Sub Button03_Click()
End Sub
Private Sub Button02_Click()
DoCmd.Close
End Sub
Private Sub Form_Close()
End Sub
Private Sub SetFilter(HowFilter As Boolean)
Dim StrFilter As String
If HowFilter Then
StrFilter = "1=1 "
If Not IsNull(fnam) And Len(Trim(fnam)) > 0 Then
StrFilter = StrFilter & " and [fname]=forms!f1!fnam "
End If
If Not IsNull(lnam) And Len(Trim(lnam)) > 0 Then
StrFilter = StrFilter & " and [lname]=forms!f1!lnam "
End If
If Not IsNull(TelNo) And Len(Trim(TelNo)) > 0 Then
StrFilter = StrFilter & " and [tel_no]=forms!f1!telNo "
End If
If Not IsNull(sen_k) And Len(Trim(sen_k)) > 0 Then
StrFilter = StrFilter & " and [Centeries1_kafo]=forms!f1!sen_k "
End If
If Not IsNull(sen_p) And Len(Trim(sen_p)) > 0 Then
StrFilter = StrFilter & " and [Centeries1_Post]=forms!f1!sen_p "
End If
If Not IsNull(pcm_k) And Len(Trim(pcm_k)) > 0 Then
StrFilter = StrFilter & " and [PCM_n1_kafo]=forms!f1!pcm_k"
End If
If Not IsNull(pcm_p) And Len(Trim(pcm_p)) > 0 Then
StrFilter = StrFilter & " and [PCM_n1_Post ]=forms!f1!pcm_p "
End If
DoCmd.ApplyFilter , StrFilter
Else
With Me
.TelNo = Null
.lnam = Null
.fnam = Null
.sen_k = Null
.sen_p = Null
.pcm_k = Null
.pcm_p = Null
End With
DoCmd.ShowAllRecords
End If
Me.Refresh
End Sub
Private Sub pcm_k_AfterUpdate()
Me.pcm_p.SetFocus
End Sub
Private Sub pcm_p_AfterUpdate()
Me.Button01.SetFocus
End Sub
Private Sub sen_k_AfterUpdate()
Me.sen_p.SetFocus
End Sub
Private Sub sen_p_AfterUpdate()
Me.Button01.SetFocus
End Sub
Private Sub TelNo_BeforeUpdate(Cancel As Integer)
End Sub