Recent content by rio

it's ok... I already find the way. I used this code "WHERE ((Name Like '*" & [Forms]![SearchStaff]![txtsearchbox] & "*')) OR ((Address Like '*" & [Forms]![SearchStaff]![txtsearchbox] & "*'));"

Sorry arnelgp... try to upgrade... can I used OR to filter base on Name and Address field?

yes.... it working... really great... thanks for your help arnelgp .

ok. i already have the text box name [txttblname] with this code ="Staff - " & Year(Now()). and in other form i already create new table also using this code. so now i got the new table name with that code. i used Me.[stafflist].RowSource = "SELECT ID, Name, Address, Age " & _ "FROM " &...

arnelgp... great... thanks for you help.. I used Me.[stafflist].RowSource = "SELECT [Staff - 2016].ID, [Staff - 2016].Name, [Staff - 2016].Address, [Staff - 2016].Age " & _ "FROM [Staff - 2016] " & _ "WHERE [Staff - 2016].ID = " & Val([Forms]![SearchStaff]![txtsearchbox] & "") & ";" and...

arnelgp... Still not working... Me.[stafflist].RowSource = "SELECT [Staff - 2016].ID, [Staff - 2016].Name, [Staff - 2016].Address, [Staff - 2016].Age" & _ "FROM [Staff - 2016]" & _ "WHERE ((([Staff - 2016].ID) Like '* " & [Forms]![SearchStaff]![txtsearchbox] & " * '"));"

Hi. I need some help to solve my problem. Error with this code Private Sub txtsearchbox_Change() Me.[stafflist].RowSource = "SELECT [txttblname].ID, [txttblname].Name, [txttblname].Address, [txttblname].Age" & _ "FROM [txttblname]" & _ "WHERE ((([txttblname].ID) Like " * " &...

Hi. i have a button to open url that i select from link list. this is the code Private Sub Command0_Click() Dim strUrl As String Dim browsertype As String strUrl = Me.ListLink browsertype = Me.ListBrowser.Column(1) Call Shell(browsertype & " " & strUrl, vbMaximizedFocus) End Sub what code should...

hi... got another problem... I used this code to check the internet connetion. Private Declare Function InternetGetConnectedState Lib "wininet" _ (ByRef dwFlags As Long, _ ByVal dwReserved As Long) As Long Private Function AmICOnnected() As Long Dim lReturn As Long AmICOnnected =...

hi... I need some help with the vba code. here is the ideas. Create browser button to search the files or folder then select files/folders. then click another button to compress (.zip) all this files/folders.

hi bob. Thanks. I already got it. I used this code on my query. Like Nz([Forms]![GEpost]![Location1],"*")

hi bob. thanks for advice. my query name is GEPematuhan. can i make my query permanently show filtering data. or i should create new query. can you help me with the code.

can i used this code to create new table??????

I try change my code.. it working perfect. this the code. Dim stLinkCriteria As String Dim stLinkCriteria2 As String stLinkCriteria = "[Year] =" & "'" & Me.Year1 & "'" & " " stLinkCriteria2 = "[Location] =" & "'" & Me.Location1 & "'" & "" If IsNull(Me.Year1) Then stLinkCriteria3 =...

Need some help!! I create this code to filter the subform. Private Sub cmdCari_Click() Dim stLinkCriteria As String Dim stLinkCriteria2 As String stLinkCriteria = "[Year] =" & "'" & Me.Year1 & "'" & " " stLinkCriteria2 = "[Location] =" & "'" & Me.Location1 & "'" & "" If stLinkCriteria .Value...