Search results

  1. rio

    Search List box base on text box text....

    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 " * " &...
  2. rio

    button to open all or a few record

    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...
  3. rio

    select files/folders then compress

    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.
  4. rio

    filter the subform

    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...
  5. rio

    Replace last comma with "and"

    Hello. how to replace last comma with "and" in query: ID Name a1 adam, toni, richard, kamarul b1 rio, man, sarah to ID Name a1 adam, toni, richard and kamarul b1...
  6. rio

    Combine a record from few row into one row

    I have the table like this: Place code Name 12 Mania 13 Donia 12 Kamal 12 Manisa 13 Pato I want to make new table like this: Place code Name 12...
  7. rio

    subform filter

    hi. Need some help with subform filter. there is 1 table containing lab result data : 1. SAMPLE_NO 2. SAMPLING_DATE 3. DO 4. BOD 5. COD 6. PH 7. SS I used combobox to filter the subform. and the code are : Private Sub cmdCari_Click() Dim stDocName As String Dim stLinkCriteria2 As String Dim...
  8. rio

    save folder name to table

    hi.. I used this module to save the file directory in new created table. This code i got from searching in the google. so the problem is.... how to save the folder name to in that table. there is a few folder in (CurrentProject.Path & "\Kml Shape File\") : 1. lotname 2. place 3. Hotel...
  9. rio

    open all record file using hyperlink.

    I have a Query name tFiles Query. FileName FilePath FilePathName Logplace.doc c:\Database\ c:\Database\Logplace.doc Tanplace.doc c:\Database\ c:\Database\Tanplace.doc I used this code to open the database. Private Sub Command3_Click() Dim...
  10. rio

    Can we create new table base on subform query

    hi. in my form I used 2 combobox to show and hide column in subform. so can I make new table for this subform (only show column) This is my combo code : Private Sub hideColumn_Change() Select Case Me.hideColumn Case "Test 1" Me.Subform.Form.Test1.ColumnHidden = True Case...
  11. rio

    Continuous Button click

    Hi. this is my button code : Private Sub Command1_Click() On Error GoTo Err_Command1_Click Dim stDocName As String stDocName = "rptPthAsas" stLinkCriteria = "[StnName]=" & "'" & Me![StnName] & "'" DoCmd.GoToRecord , , acNext DoCmd.OpenReport stDocName, acPreview, ...
  12. rio

    Save graph as jpeg

    hi. I need some help with my database. here the problem: 1. I can't save all the graph for all record (StnName) by one click button cmd2PS01. here the code Private Sub cmd2PS01_Click() Dim objChart As Object Dim strDate As String Dim strFolder As String strDate = Format(Now(), "dd mmmm...
  13. rio

    Combo box and field problem

    hi... here my table : Table 1 : LabResult Sample Name COD BOD SS SA1 50 20 2 SA2 100 51 3 BA1 30 12 0 BA2...
  14. rio

    String Variant Problem

    Hi... Need some help... I used 2 combo box in my form (frmStnNo). I put this code at each combo box. The problem is this code for numbers string. how to change it to text string? coz [StnNo] and [SampleNo] is in text. Private Sub Combo4_AfterUpdate() ' Find the record that matches the control...
  15. rio

    Query help

    I make a query with enter the parameter value box (). I have to put complete word ( PKAS Petrol 1002 ) or ( PKAS Diesel 1002) to filter the data from table tblProInfo (). Is there any way that i can filter it .... by just insert Petrol or Diesel.
  16. rio

    dont run if network offline

    hi.. i got a problem with my database. i used odbc connection using oracle. sometime there is no connection. i used this code to open the connection. Private Sub Form_Open(Cancel As Integer) Dim db As DAO.Database Dim tdf As DAO.TableDef Set db = CurrentDb() Set tdf = db.TableDefs("TEST")...
  17. rio

    Oracle password!!

    hi. I need some help. i used oracle9i. every time, i need to put the password to extract the data. Question: 1. so is there any code that i can used to automatically insert the password and user name. 2. automatically update the table
  18. rio

    IIF: any suggestion?

    I have the following columns; ID, OPS, CO, HC. Example: ID OPS CO HC RESULT 1 Static 2 500 2 Static 5 400 5 3 Static 5 660 5 AND 660 4 Static 3 700 700 What I need is to...
  19. rio

    Search>check box

    I have a Table like Table.jpg and then I make form like Form.jpg. Can anyone help me how to make a search using check box. For example : If I check the soccer and badminton check box, it will show the name with that criteria in list box. here I attach the image and database....
  20. rio

    Change date format

    I make a query like this: SELECT Table1.Date, Table1.Place, Table1.Person, "I meet " & [Person] & " at " & [Place] & " on " & [Date] AS Story FROM Table1; for the date it come out with 2/11/2009 format... how to change it to 11/Feb/2009. Please... help me. I'm also attach the database.
Top Bottom