Search results

  1. O

    Listbox multiselect and move to another listbox

    Hi Guys, Appreciate if you could help me out. I have listbox4 and listbox5, when i select multiple row from the listbox4 and click next, the issuetbl suppose to update 'Check' in complete column. So that listbox5 have the item which i selected. Unfortunately, it only show the last item that i...
  2. O

    Select all the frame and update

    Hi Guys, I have roughly 20frames in my forms. Any idea how to select all the 20frames in shot and update? Like .... Private Sub All20frames_AfterUpdate() coding.... End Sub
  3. O

    How to execute many buttons using a single button?

    Hi Guys, May i know how to execute many buttons using a single buttons? I have a tag all the buttons with "Step1" My code like below but not works. Private Sub CheckPass_Click() Click.ctrl.Tag = "Step 1" And Click.ctrl.Value = 1 End Sub
  4. O

    Update table with incremental

    Hi Guys, Any clue to update the table with incremental number? With rst Do Until .EOF If (![Remark] = "Rework") Then Rework = Rework + 1 Else End If .MoveNext Loop End With For R = 1 To 19 CurrentDb.Execute "INSERT INTO Issuetbl (Part_Number, Serial_Number, Job_Number , Step...
  5. O

    If FAIL then update FAIL.

    Hi All, Appreciate if you could help me out. Below is the result i wish to get. SN Step Result Summary_Result 1 1 Pass Fail 1 2 Fail Fail 1 3 Pass Fail 1 4 Pass Fail 1 5 Pass Fail 1 6 Pass Fail But with using code below. sSQL =...
  6. O

    Where ...and .....and

    Hi All, Appreciate if you could help me out of this. I've no issue on below code. If Forms!Checklist!Frame102!.Value = 1 Then sSQL = "Update Issuetbl Set [Issuetbl].[Result] = 'Pass' WHERE [Issuetbl].[Serial_Number] = '" & Forms!Checklist!txtSN & "' AND [Issuetbl].[Character_ID] =2"...
  7. O

    If no fill then msgbox...

    Hi Guys, Appreciate if you could help me out. Objective: My forms have lot of radio button and i want it to come out msgbox if the user not selected the radio button. Issue i'm facing: i try to tag all the radio button with STEP1. then use tag to control them. Below is my code. NA = 3 But...
  8. O

    Issue on condition WHERE ...AND

    Hi Guess, Appreciate if you could give some hint to me on this. sSQL2 = "Update Issuetbl Set [Issuetbl].[Result] = 'Pass' WHERE ([Issuetbl].[Serial_Number] = '" & Forms!Checklist!txtSN & "') And ([Issuetbl].[Character_ID] = '1')" CurrentDb.Execute (sSQL2)
  9. O

    Loop issue

    Hi Guys, Appreciate if you could help me to solve this out. For i = 1 To 5 CurrentDb.Execute "INSERT INTO Issuetbl (Part_Number, Serial_Number, Job_Number , Step, Character_ID) " & _ " VALUES ('" & Me.txtPN & "' , '" & Me.txtSN & " ', ' " & Me.txtJN & "', '1' , i )" Next Expectation...
  10. O

    Email with table

    Hi Guys, Appreciate if you are able to give some advise on below issue: What i'm getting now is Part Number : 54 Received Qty: 54 Rejected Qty: 1 QN : 2 Supplier : 3 Rejection : 4 What i wish to get is in table form (Not able to draw a table here) Part Number 54...
  11. O

    Automatically split database yearly

    Hi Guys, I was wondering if my database is FULL and need to split it automatically. I have no idea where to start. Any suggestion? 1) It will help to protect my data as well. If i lost my data , it will only affect maximum one year.
  12. O

    Listbox color change for selected item

    Hi, Appreciate if anyone can give a hand on the issue im facing. Example: There are 3 items and if the remark is "YES" then listbox highlighted in red for item 1. Item Cost Remark 1 1 Yes 2 2 No 3 3 No
  13. O

    Search function within listbox

    Hi, I'm facing an issue to find the text in the listbox. Could anyone help me on this? Below coding is find the text in the table. Private Sub txtfind_Change() Dim strSource As String strSource = "SELECT * " & _ "FROM Guests " & _ "Where...
  14. O

    EXPORT TO EXCEL - time become date?

    Hi All, Appreciate if you could help me out of this . Excel time column should have the time exactly with the access table but it doesn't turn up to be the same. Dim db As Database Dim qdf As TableDef Dim rs As Recordset Dim oApp As Excel.Application Dim oBook As...
  15. O

    Search function on listbox.

    Hi, Am having issue on search function on the listbox. Anyone can advise? Private Sub txtfind_Change() Dim strSource As String strSource = "SELECT FirstName" & _ "FROM Guests " & _ "Where FirstName Like '*" & Me.txtfind.Text & "*' "...
  16. O

    Select listbox and open form

    Hi Guys, Need help on this. I have a listbox and i want it to open a form with all the data when i select particular item in the listbox. P/S: I'm able to open a form but is without the information. I wish to pull all the information from the table and fill into the form. Advice and help...
  17. O

    Access Bugs? Refresh All returned to old records?

    Hi All, I'm new to access. When i click "Refresh All" from the ribbon, it turns the "ID" to "1" instead of "New". When i click "Add button" the initial record in "ID = 1" will be replaced. :banghead::banghead: Any advice? Please view attachment.
Top Bottom