Search results for query: *

I solved it by adding: Forms("frm_Repair").Form.Recordset.FindFirst "[Repair_ID] = " & _ Forms("frm_Landlord_Properties_Repair").[txt_Repair_ID] & ""

Hello, I have a form which shows repairs for properties. I currently open the form from a button and filter results to a particular property using the code below - which works fine. DoCmd.OpenForm "frm_Repair", WhereCondition:="[Prop_ID]= " & Me.Prop_ID The repairs also have a primary key...

Thank you all for your input - greatly appreciated - all working now :)

Hello I have a Vba module which works fine for sending emails (through outlook). I have the option to attach 2 files in my form. Basically I have textboxs txtattach1 and txtattach2 which hold the file path for each attachment. If both attachements contain a file path then it works no...

Thank you all very much for your help - spot on 👍

Hello, I have added to the end of this concatenation, but can not get it working. I think I have an error after the last AND statement - can anyone help? Thank you Mark Me.Filter = "[Inv_Invoice_Dated] BETWEEN #" & DatStart & "# AND #" & DatEnd & "# AND [Number_Value]<> true AND...

Hello I am trying to make a filter that filters the current form on click of a button. I need it to filter the form by the following criteria LL_Select - is an autonumber which is selected by cbo_LL_Select DateStart - is the start date which is held in textbox txt_DateStart DateEnd - is the...

You are a genius - thank you! :)

Hello, I need to remove everything from the last comma of a string (including the last comma) So for example I have an address 20 Bright Street, Walsham, England, CH41 0AD And I need: 20 Bright Street, Walsham, England If anyone is able to help me with this it would be great. AND If...

Hello, I use a database to launch other applications and databases. I call this 'Launcher' The Launcher app has a small window size. When I launch a new database, it then opens in a small application window. It uses the following code: Public Sub fnc_FS_OpenApp(ByRef strDocPath As String)...

Hello, I want to make my database appear floating and compact. I use the following code to prevent the user from using the Maximize Access Application button. Option Compare Database Private Const GWL_STYLE = (-16) Private Const WS_MAXIMIZEBOX = &H10000 Private Declare Function...

Thank you for your input. There seems to be little difference between 2019 and 2021 from what I can see. Unless others have a view, I suppose 2021 is worth going for as you would think it would be more debugged??

As title, we run a small company on Office 2013 (Access, Outlook and Word mainly) As support has gone, I would apprciate thoughts on whether to upgrade to 2019, 2021 or wait for the next release? We do not want office 365 at this point. Many thanks Mark

Hello Andy - so after tearing my hair out, i imported all objects into a new database and it works fine??????? Sorry to lead you on a wild goose chase - as always I much appreciate your help. Mark

So the text box values are set from a combo box which has several columns. So for example. Txtbox1 = me.cbodata.column(0) Txtbox2 = me.cbodata.column(1) Etc……… If say column 2 contains no number then txtbox2 gets set as an empty string I think. I think then the empty string (or perhaps...

Its just "RS("Arc_SA_Purchaser_Link_ID") = Me.[txt_Arc_SA_Purchaser_Link_ID]" that causes the problem. The field is set as long integer - I dont think there is an option to allow or dis-allow nulls in a number field. Thank you Mark

Thank you as always - here is the code Dim RS As DAO.Recordset Set RS = CurrentDb.OpenRecordset("tbl_Archive", dbOpenDynaset) RS.AddNew RS("Arc_Date_Added") = Me.txt_Arc_Date_Added RS("Arc_Date_Updated") = Me.txt_Arc_Date_Added RS("Arc_SA_Purchaser_Link_ID") =...

Hello, I have a form which has several textboxee which are set by user interaction. When adding the record some of these text boxes will hold numeric keys for linking to other tables. The fields in the table receiving these values is set to integer. I notice that is no value is held in...

Hello Duane, I hope you are well. Yes the database which I am linking to sets up a new table for each new account. There are around 4000 of them. It’s an odd approach, but it is what it is. I’ll tweak the code as you suggest. Is the method ok, it seems a very simple approach. Do...

I can't really link the tables as there are thousands of them. I came across the code below - is there any downside to using this? CurrentDb.Execute "INSERT INTO GemAcTable SELECT * FROM 1250 IN 'C:\Gem\Gem.mdb'" MsgBox "Done"