Search results

Mir, What is [Orders Not Received] ? Are [Status] and [BinNumber] in tblGoingOut ? Wayne

Mir, ElseIf DLookup("[BinNumber]", "tblGoingOut", "[Status]='" & [Orders Not Received] & "'") > 0 Then MsgBox "Bin already Going Out but not received" Wayne

Bader, I have no idea why you need it, but this should do it. Dim rst As DAO.RecordSet Set rst = CurrentDb.OpenRecordset("Select * from YourTable") While not rst.EOF and Not rst.BOF rst.Edit rst!YourField = Me.YourListBox.ItemData(Int(rst.AbsolutePosition/20)) rst.Update...

gemma, Yes. Me.ListBox.ItemData(0) is Header Me.ListBox.ItemData(1..n) is Data. Wayne

Anders, We need to know your table structure to answer the question. The structure is very interesting to someone who wants to help solve your problem. Wayne

Benny, You forgot the FRom (SELECT tmpJournalEntryChangeOrders.Concatenate From tmpJournalEntryChangeOrders); Wayne

Adam, I'm confused, what field are you trying to update? Replace the ??? with your field name. Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("SELECT * " & _ "From tbl_module_repairs " & _ "Order by APS_RMA...

page, MsgBox "Welcome " & Forms!YourMainForm!fname & " " & Forms!YourMainForm!sname Wayne

Jon, Even if you can't change the properties of the existing table you can clean this up to make it easier. 1) Keep the text attribute of the field, but strip the data down to just the number --> "4526" This will at least get everything consistent. 2) Change the label as David says: -->...

Jon, Your code looks OK. Is the code located on the form that has the combobox? What is the value of Me.[PartNumber].Column(1) ? Wayne

ColinH, Also: What is in strPath? Have you checked that the Linked tables are really pointing to the BE? Wayne

RX, You can code it so that the order of the call is not important. Public gblCriteria As String Public gblResult1 As String Public gblResult2 As String Public gblResult3 As String Public gblResult4 As String Public Function fnTest(strCriteria As String, WhichResult As Integer) As String ' '...

Rx, If the logic of the function can't be "compartmentalized" such that it doesn't reprocess the same queries to produce the individual results, then you have to ensure that it only does the queries once. Given that, here's two very simple scenarios: Option 1: (Evaluate at query-time)...

denileigh, All of my examples are at work, but this should help: http://www.codeproject.com/Tips/646080/Migrating-ACCESS-Jet-data-to-SQL-Server Wayne

Jake, Assuming your column name is color ... Select Chr(34) & Replace(Color, Chr(34), '') & Chr(34) From YourTable Wayne

cc, I think you just have to change your "Ors" to "Ands". (code) <-- Change these to square brackets 'this process update the Visibility Status 'If Date_Submitted_To_CMS = "" and Date_CMS_Approved ="" Private Sub Form_BeforeUpdate(Cancel As Integer) If (IsNull(Me.Date_Submitted_To_CMS0))...

Dick, This link show an example: http://www.access-programmers.co.uk/forums/showthread.php?t=257261&highlight=openform Wayne

pachederm, Try: UPDATE tCBLAggregation SET tCBLAggregation.CBL_1_Date = [qBestof4CBLs_avg].[CBL_x_Date], tCBLAggregation.CBL_1_kW = [qBestof4CBLs_avg].[AvgOfCBL_x_kW] From tCBLAggregation, [qBestof4CBLs_avg] Where tCBLAggregation.[Event Date] = qBestof4CBLs_avg.[Event Start Date] AND...

Moore71, Insert: Insert Into Table2 (Productid, ProductName, Qty, CurrentDate) Select Table1.Productid, Table1.ProductName, Table1.Qty, Date() From Table1 Left Join Table2 on Table1.ProductID = Table2.ProductID Where Table2.ProductID Is Null Update...

kawi6rr, This works for me in Windows 7: strConnection = "Driver={Oracle In InstantClientx32};" & _ "DBQ=ORCL;" & _ "Database=EWDS_2012;" & _ "Uid=xxxx;Pwd=xxxx;" Wayne