it's ok... I already find the way. I used this code
"WHERE ((Name Like '*" & [Forms]![SearchStaff]![txtsearchbox] & "*')) OR ((Address Like '*" & [Forms]![SearchStaff]![txtsearchbox] & "*'));"
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 " &...
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 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.
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...