Search results

If you can't fix it, send me a sample of your table and I'll take a look at it for you.

Hi, Just to check, in the code: LowStock: IIf([StockLevel]<[MinimumStock],"STOCK LOW","STOCK OK") The StockLevel is the name of the Stock Level field in your table and the MinimumStock is the name of the Minimum Stock Level field?

Hi, You could create a query that will check the Stock Level against the Minimum Level: Create a new query. Add the Stock Table. Add the ID field of the stock table, Stock Level & Minimum Stock Then in the next field type: LowStock: IIf([StockLevel]<[MinimumStock],"STOCK LOW","STOCK OK")...

Hi, Try this: me.TEXTBOX = NZ(DLookUp("[Attachment]","[tblAttachments]","[ID]= " & [Forms]![frmHalifax]![Attachement_ID]),"")

Hi, Is the checkbox bound to a table, or is it unbound?

Glad you're taking interest in it rather than copy n pasting. The RowSource property of the combo is a Query in itself. If you click the [...] button next to the Rowsource the query builder will open. I tend to use this to create my SQL statements as it generally shows you where the errors are...

Ok, try this: SELECT [TBLTechs].[ID], [TBLTechs].[Firstname] & " " & [TBLTechs].[Surname] AS [Full name] FROM TBLTechs; in The Data properties for the combo set: BoundColumn to 1 ColumnWidths to 0cm;3cm This will display the [fullname] in the combo, and when selected will return the ID for...

cboAcctCodes="" will clear the box for you. Glad to be of service!

Sorry, tbl_address is a table in my db that I use for testing. Replace that with the nam of your table. Yes, this creates a virtual field from the fields you select.

Hi, This isn't as easy as I first thought. The 'Item not in list' message fires automatically, so I've got a work around for you. Instead of using the [notinlist] event, use the [AfterUpdate]: Private Sub cboAcctCodes_AfterUpdate() Dim ndata As Variant Dim InList As String...

Don't you just hate it when that happens!

Hi Fran Smith, Try Changing the .isvisible to .visible the .isvisible is a read only value. Rich.

You'll need to split the string into 2. I'm guessing that the NewData variable would be as you posted '1234,Test' if this is the case then try this code: Private Sub cboAcctCodes_NotInList(NewData As String, Response As Integer) Dim strSQL As String Dim i As Integer Dim Msg As...

Hi, To create a new field you'll need to do something like: SELECT [TBL_Tech].[Firstname] & " " & [TBL_Tech].[Surname] AS [Full name] FROM TBL_Address;

Hi, I know this seems a little picky, but SQL requires spaces to be in the correct place. Try replacing strSQL = "Insert Into MovieGenre ([MovieGenre],[MovieGenreDescription]) values ('" & NewGenreID & "','" & NewData & "')" with strSQL = "Insert Into MovieGenre ([MovieGenre]...

Hi, You could also check between each query to see if a value has been returned. Create a form that looks a little like a msgbox and have a cancel button on it. Then have this set a return value. Then check the variable before running each query. Hope that makes sense, a little early for me! :)

Hi All, Briefly discussed this in another post. Was wondering if any one here has had any experience of the Elance.com website? Hoping to get myself some Freelance development work and found the site on a search.

As this topic is going off subject anyway. I've looked recently at the Elance website. Seems to be quite a lot of work for Access Programmers. Do you have any experience of the site, either personally or through 3rd parties? Would be interested in some suggestions!

Glad it's not only me that uses the if, elseif, then in standard conversation. Think this is a sign of being overworked! :confused:

Someone mention big pay cheques? How do I get one of them? :) Should really put some of my knowledge to good use and find a proper job! Any ideas anyone? :D