Recent content by oltroman

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