Search results

Yup, all works. Full vba code if anyone else needs it now it works, I am sure there is a neater way of doing this! Private Sub btn_submit_Click() On Error GoTo err_btn_submit_click Dim rstRed As DAO.Recordset Dim rstColours As DAO.Recordset Dim vbaPaid As String Dim vbaSubmitScore As String...

Changing the rstRed to Set rstRed = CurrentDb.OpenRecordset("SELECT * FROM tbl_team WHERE m_ref = " & Me.cmb_date & " and t_team = " & 1) seems to help - not quite sure why i was trying to include other tables in the query! Still getting an error but I think that is due to the rest of the vba...

Thanks for the suggestion, but the primary field (if thats the correct term) for me.cmb_date (column 0) is a 4 digit number which is what I am trying to select from. (column 1 contains the date but would prefer not to search on this). Only using a query as I thought it would be easier to due to...

The below code does not seem to produce any errors but is not updating any values in each recordset - is there something blatantly obvious which I have forgotten to do (I know its all not justified, have removed most of the code as is not relevant to the post)? FYI me.cmb_date (column 0) is an...

Much appreciated, could you let me know what you did/spotted where I went wrong?

Been working on a database for the local 5 a side team and come across a bit of a stumbling block which I cannot find the answer to! the query qry_team_red shows that for m_ref 1001 there are 2 confirmed players, and for m_ref 1002 there are 3 confirmed players This query relates to...

Thanks, will see how I get on!

Thanks CJ, unfortunately it is in 2010. Currently users are not allowed to delete records anyway (as for example a customer who leaves may come back so we would need to keep their history) and so already have a delete flag.

The database has already been split like this on each local install. FE contains forms and queries only, BE is database. When a user is working remotely with your suggestion the remote users would not be able to access the database?

With the help of suggestions from users on here we have been running local copies of an access CRM system for the past year or so. Now that I have a bit of time to look at this again I am trying to identify a way of setting up a single database with multi user access on the local network. A...

Thanks, will take a look!

Seperate front end and back end - that was the first thing I did! Currently the program is only available to a couple of people locally (each have their own version for testing purposes) to reduce risk of clashes while I iron out any issues/suggestions from users before rolling out to the...

Early in developing access based CRM I found that having multiple instances of the same form ended with issues (i.e. customer notes were being placed against the wrong records etc.) so upon opening each form currently the program checks to see if already open, if so stops the new form opening...

Not 100% sure if this is the correct area to post my question, if not please can this be moved accordingly? With the help of people on here I have put together an access system for daily tasks for the staff at work. This particular issue involves users entering data into a memo field (enter key...

Hopefully a very simple fix... Dim db As DAO.Database Dim strDBPath As String Dim strPictureName As String Dim obExcel As Object Set db = CurrentDb() Set obExcel = CreateObject("Excel.Application") strDBPath = CurrentProject.Path & "\" strPictureName = "logo.png" If Me.chkFullQuote.Value...

Hi there Now that the code below is working nicely I am trying to find ways in which I can make it look neater and reduce the manual formatting completed by the end users. Is it possible to put in a new line break whenever the category (stored in qli_category) changes? Or is it a case of...

With thanks to previous help on here for creating the code below I am able to export quotes out of our access CRM. Private Sub btnQuote_Click() Dim db As DAO.Database Dim rst As DAO.Recordset Dim rstenq As DAO.Recordset Dim rstquo As DAO.Recordset Dim rstqlivat As DAO.Recordset Dim rstqlinon...

Sorry Cronk, it had been a long day and had miss read your question. Yes it puts the supplier name into the cell by looking at the data already dumped into the cell. Pyro that tidies up the code wonderfully, thank you both very much for your help! :D

Hi Cronk In short, it puts the ID in the field, then reads this and queries tblDrpSupplier for the supp_name. The table tblDrpSuppliers has 2 columns: ID (Autonumber) supp_name (text field) When I tried to identify the correct value using Rstsupplier.findfirst "Supp_Name='" &...

Now finally have it working - in a sense! Private Sub btnCostSheet_Click() Dim db As DAO.Database Dim rst As DAO.Recordset Dim rstenq As DAO.Recordset Dim rstquo As DAO.Recordset Dim rstqlivat As DAO.Recordset Dim rstqlinon As DAO.Recordset Dim rstSuppliers As DAO.Recordset Dim obExcel As...