Search results

Dave, You haven't stated the error or what the exact role of your ADO connection is. I would imagine that you are doing this in one VBA module: ADO_DSNLess.Execute "SET IDENTITY_INSERT sqltable ON" CurrentDb.Execute "insert * into sqltable select accesstable.* from accesstable"...

FYI: Duplicate of: http://www.dbforums.com/microsoft-access/1702685-how-create-nested-tables-using-access.html Wayne

Reed, Try: Update table Set field = replace([*description], Chr(10), Chr(32)) WHERE field LIKE "*" & Chr(10) & "*" But, I'd remove the Where clause. Wayne

BroadBean, For both Access and SQL Server: Udate Table1 Set Phone = Replace(Phone, "-", "") Wayne

ihere, Try --> personal.[al-name] When it sees the "-" it thinks that you are trying to subract name. Also: "SELECT distinct payroll,id FROM allownceQuery where id = id" id = id WILL ALWAYS BE TRUE. Maybe you meant: "SELECT distinct payroll,id FROM allownceQuery where id = " & Me.id Wayne

I take it that you ID field is an autonumber. If so, once you see it on the form (Me.ID), it should also be in the table. How is the other record "auto-generated"? Wayne

Dave, Management --> Compact/Repair Then ZIP. hth, Wayne

Phil, You can change Moniker's function adding some code after this line: Splitter = arySplitter(ReturnIndex) If UBound(arySplitter) < ReturnIndex Then Splitter = "" Exit Function End If hth, Wayne

Robertja, In your Orders Table you should have two fields: OrderDate - Default Value = Date <-- Today OrderNumber Then whenever you insert a new record: Me.OrderNumber = Nz(DMax("[OrderNumber]", "OrdersTable", "[OrderDate] = #" & Date & "#), 0) + 1 Then for reports and such you can display...

namliam, We've had to import several large XML datasets. One in particular contains about 20 tables worth of data. I have never seen a product that could import these acceptably. This includes Excel, Access, MatLab, Altova XML Spy. It doesn't really seem to be a fault of theirs, just the way...

Kodehunt, 1) You can define a relationship between the continuous forms table and the auto-generated table. Join them on ID <--> AssociatedID Select Cascade delete. That will solve the deletion problem. 2) When they uncheck the checkbox: CurrentDb.Execute "Delete From Auto-GeneratedTable...

Dave, Can you post the DB here? Wayne

AA, The default value for the column in the table is really not important for the query. Does your query look something like this? Select a.PK, IIf(IsNull(b.PK), "", "X"), IIf(IsNull(c.PK), "", "X") From (Table1 as a Left Join Table2 as b On a.PK = b.PK) Left Join...

Dave, Assume you have: tblRates =========== Rank - Text (PK) Rate - Currency You need two new tables to define a crew: tblCrew ======= CrewID - AutoNumber (PK) CrewName - Text tblCrewMix ========== CrewMixID - AutoNumber (PK) CrewID - Number (FK to tblCrew) Rank - Text (GF, FM, JM ...)...

Mir, Make sure that it is treating your values as numbers. If CInt(Me.[StoreID].Column(2)) >= CInt(Me.[Copies]) Then ... Wayne

gemma, Oops, the "+" was meant to be an equals sign. RTrim(strX = strY) The strings aren't equal (False) and RTrim returns "False". But the point is that the result goes nowhere ... and VBA is happy with it, even at runtime. Mark, It must be treating it as if calling a sub, but in normal...

I have a question about the mechanics of the VBA compiler. A coworker of mine meant to type: strX = RTrim(strY) Instead he typed: RTrim(strX + strY) This was accepted by the compiler and actually ran fine. The strings were evaluated as not equal and returned an RTrim of "False". The...

Mir, It's been a long week. If BinNumber is a string, this should be what you want. It it isn't remove the single-quotes. DCount("[BinNumber]", "tblGoingOut", "[Status] = 'Orders Not Received' And [BinNumber] = '" & Me.txtBox & "'") Wayne

Mir, The DCount will just return how many BinNumbers have the status of 'Orders Not Received'. If there are ANY, then it will open the report. You say "And when I enter BinNumber which Status is "Received" then also open the report". Any number that you may have entered IS NOT being...

Mir, The DLookUp will return one value: DLookup("[BinNumber]", "tblGoingOut", "[Status]='Orders Not Received'") If the criteria is not met it will return a Null. Not good for VBA, which is why I used the NZ function to force a value. If you just want to check if *any* rows match the...