use of variable
Sub SetFilter() Dim LSQL As String LSQL = "select * from tbl_not_data_010_notlar" LSQL = LSQL & " where madde = '" & cboShowCat & "'" Form_frm_not_data_010_notlar.RecordSource = LSQL End Sub
Popular posts from this blog
VBA - Fun - timer
The following code does not belong to me, comment at below if you know the coder name / link . I will happily edit to put the source . Private Sub Form_Timer() Dim CurTime As Date Dim ValHours As Integer Dim ValMinutes As Integer Dim ValSeconds As Integer CurTime = Time ValHours = Hour(CurTime) ValMinutes = Minute(CurTime) ValSeconds = Second(CurTime) pgrHours.Value = ValHours pgrMinutes.Value = ValMinutes pgrSeconds.Value = ValSeconds lblHours.Caption = CStr(ValHours) lblMinutes.Caption = ValMinutes lblSeconds.Caption = CStr(ValSeconds) End Sub
Comments
Post a Comment