Search results

Spikepl thanks for the explanation, yes, I found another way, but going to try select method :)

Thanks for those who comments my thread I solved this one :D .MoveFirst Do Until .Fields("Barcode").Value = StrBarcode .MoveNext Loop Cheers.. what a relief

I used "SELECT * FROM Inventory WHERE [ID] = " & dblID and Got; Compile Error, Expected: line number or label or statement or end of statement

Jdraw Forgot to mention, I only know access 2007, and in access 2007 Me.oBarcode is a way to call what ever inside a form. In this case a combo box named oBarcode instead of Forms!Inventory!oBarcode (I know I got the wrong order hehe but you got the idea right?)

Boblarson, this meant to be for equipment tracking program. Job number is stored in a table, and equipment in another, when ever an equipment is out, it will be sent to a location with certain job number, I need to attach that job number to that equipment and date as well. That's why it's done...

Guys I appreciate all helps, I am using Access 2007, here's my full routine Private Sub Command37_Click() If Me.oBarcode = "" Then MsgBox "Please Enter Barcode Input" Exit Sub End If Dim StrBarcode As String Dim Counter As Long Dim StrJob_No As String Dim RstInv As DAO.Recordset2 Dim RstMan...

I tried to use .FindFirst but got some error. Can someone guide me how to use findfirst? Thanks

Hi, I have written this code for a search in inventory using recordset. It does work but it got bug and sometimes return the wrong lines Set RstInv = CurrentDb.OpenRecordset("Inventory") With RstInv .GetRows ([StrBarcode]) .MovePrevious .Edit .Fields("Job_No").Value = StrJob_No...

I've been doing something else these few days and put this on hold until today. I tried IsNull() function. work like a charm. Thanks rural Guys :D:D:D

Hi, I want to find empty field (Null/ "") but did'nt work. When I tried this code with for example "t", and put "t" in the field, the code does work. Here's the code, Set RstInv = dbInv.OpenRecordset("DateRecord") Counter = 4 With RstInv .GetRows ([StrBarcode]) .MovePrevious...

One more thing that bother me, I want to find a new line that's empty and add value to it (in this case date) Set RstInv = dbInv.OpenRecordset("DateRecord") With RstInv .FindLast 'I got error here why???? .AddNew .Fields(BarcodeL).Value = Forms!IN_OUT.oInOut & Date .Update End...

I use this code Set RstInv = dbInv.OpenRecordset("Inventory") With RstInv .GetRows ([StrBarcode]) .Edit 'Put the field you update and the data you want to enter .Fields("Job_No").Value = StrJob_No 'Updates the newly added record .Update End With Only 1...

I see, so have to use DAO StrBarcode value is the Primary key for the lines that I want to edit for examples line "9" With DAO how do I go to line 9 for example? and then Edit Job_No field. I don't want to AddNew. Thank you very much. Yes I am noob in VBA :)

Hi, Private Sub Toggle21_Click() Dim StrBarcode As String Dim StrJob_No As String StrBarcode = Forms!Outgoing.oBarcode '=9 (for example) StrJob_No = Forms!Outgoing.oJob_No '=Test (for example) 'Open Marketing Form DoCmd.OpenTable "Inventory" 'Add new record OK up to here DoCmd.GoToRecord...

I see, I miss a "S", Thanks a lot

Hi, I put this code in Query under criteria Like [Form]![SearchForm].[qBarcode] & "*" In the SearchForm I put this code in BtnRunSearch Private Sub BtnRunSearch_Click() DoCmd.OpenQuery "Query2", acViewNormal End Sub However the problem is When I hit BtnRunSearch (Button), Query2 act like...

Private Sub Command37_Click() Dim dbContacts As DAO.Database Dim rcd As DAO.Recordset Set dbContacts = CurrentDb Set rcd = _ dbContacts.OpenRecordset("Inventory") rcd.FindFirst Table![Inventory]![Barcode] = "Combo40" If Not rcd.NoMatch Then rcd.Edit rcd![Job_No] = Combo38...

Hi, I really am new to access and VBA :confused: I am using access 2007 I have a table "Inventory" consist of Name, Serial_No, Job_No I have ff form on that Table and have combo box lookup to Serial_No of Inventory table and another combo box lookup to Job_No. I have another table consist of...