Search results

  1. O

    If no fill then msgbox...

    Same error but move to .value.
  2. O

    If no fill then msgbox...

    There is an error on the code. Refer to attachment.
  3. 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...
  4. 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)
  5. 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...
  6. O

    Email with table

    I've tried but not success. It still the same as previous.
  7. O

    Email with table

    I've figured out the way to do that. But can anyone teach me how to limit the width of the column? I tried to put Table width = 50mm, but still not able to get it. Function Email() Dim oApp As Outlook.Application 'Dim g As MailItem Dim oMail As MailItem Set oApp =...
  8. O

    Email with table

    Hi All, I've tried to use HTML method. The method that you have provide is get the data from recordsource. I wish to get the data from input instead of database. May i know how to get it? For example below code, i wish to get (Part number) (12345) < in a table Function BuildHtmlBody()...
  9. O

    Email with table

    Hi Sir, Thank you for your reply. What i wish to get is the data in a table. Example as attached.
  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

    Objective: I need to get a textbox to filter the Part Number i want in listbox. Listbox only will show up "OPEN" item in the table. For example: When i typing "2" in the textbox. I wish to filter PartNumber 2 in the listbox.
  14. 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...
  15. O

    EXPORT TO EXCEL - time become date?

    Thanks Paul / Mark. Mark you are right. Instead of putting the time why don't I put a text and export it out? LOL. Thanks for the idea.
  16. O

    EXPORT TO EXCEL - time become date?

    HI Paul, In excel it showing 1/0/1900 4.12.37pm But is there a way to directly change it to time without put the formating in excel? Example amend the code so that it can pull the data (TIME) from the table.
  17. 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...
  18. O

    Search function on listbox.

    Not sure why still not able to use the find function. May need your help to download the attachment and take a look on it.
  19. 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 & "*' "...
  20. O

    Select listbox and open form

    Thanks Ranman256 and arnelgp !!! Appreciate your help on this
Back
Top Bottom