1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158
| Option Compare Database
Private Sub chkSPECIFICATION_Click()
If Me.chkSPECIFICATION Then
Me.txtRechSPECIFICATION.Visible = False
Else
Me.txtRechSPECIFICATION.Visible = True
End If
RefreshQuery
End Sub
Private Sub chkREP_Click()
If Me.chkREP Then
Me.cmbRechREP.Visible = False
Else
Me.cmbRechREP.Visible = True
End If
RefreshQuery
End Sub
Private Sub chkIDENTNR_Click()
If Me.chkIDENTNR Then
Me.txtRechIDENTNR.Visible = False
Else
Me.txtRechIDENTNR.Visible = True
End If
RefreshQuery
End Sub
Private Sub chkTEXSPR1_Click()
If Me.chkTEXSPR1 Then
Me.txtRechTEXSPR1.Visible = False
Else
Me.txtRechTEXSPR1.Visible = True
End If
RefreshQuery
End Sub
Private Sub chkTC_Click()
If Me.chkTC Then
Me.cmbRechTC.Visible = False
Else
Me.cmbRechTC.Visible = True
End If
RefreshQuery
End Sub
Private Sub cmbRechREP_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub cmbRechTC_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub Form_Load()
Dim ctl As Control
For Each ctl In Me.Controls
Select Case Left(ctl.Name, 3)
Case "chk"
ctl.Value = -1
Case "lbl"
ctl.Caption = "- * - * -"
Case "txt"
ctl.Visible = False
ctl.Value = ""
Case "cmb"
ctl.Visible = False
End Select
Next ctl
Me.lstResults.RowSource = "SELECT NUM, TC, REP, IDENTNR, SPECIFICATION, TEXSPR1 FROM PRICELIST;"
Me.lstResults.Requery
End Sub
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
SQL = "SELECT NUM, TC, REP, IDENTNR, SPECIFICATION, TEXSPR1 FROM PRICELIST Where PRICELIST!NUM <> 0 "
If Not Me.chkSPECIFICATION Then
SQL = SQL & "And PRICELIST!SPECIFICATION like '*" & Me.txtRechSPECIFICATION & "*' "
End If
If Not Me.chkREP Then
SQL = SQL & "And PRICELIST!REP '*" & Me.cmbRechREP & "*' "
End If
If Not Me.chkIDENTNR Then
SQL = SQL & "And PRICELIST!IDENTNR like '*" & Me.txtRechIDENTNR & "*' "
End If
If Not Me.chkTC Then
SQL = SQL & "And PRICELIST!TEXSPR1 like '*" & Me.txtRechTEXSPR1 & "*' "
End If
If Not Me.chkTC Then
SQL = SQL & "And PRICELIST!TC '*" & Me.cmbRechTC & "'* "
End If
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
SQL = SQL & ";"
Me.lblStats.Caption = DCount("*", "PRICELIST", SQLWhere) & " / " & DCount("*", "PRICELIST")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
End Sub
Private Sub lstResults_DblClick(Cancel As Integer)
DoCmd.OpenForm "RECHERCHE PRICELIST", acNormal, , "[NUM] = " & Me.lstResults
End Sub
Private Sub txtRechSPECIFICATION_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub txtRechIDENTNR_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub txtRechTEXSPR1_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub |
Partager