Recent content by adh123

  1. A

    Using recordset to update

    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...
  2. A

    Using recordset to update

    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...
  3. A

    Using recordset to update

    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...
  4. A

    Using recordset to update

    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...
  5. A

    Query works but subform shows no records?

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

    Query works but subform shows no records?

    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...
  7. A

    Multi user network & local database

    Thanks, will see how I get on!
  8. A

    Multi user network & local database

    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.
  9. A

    Multi user network & local database

    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?
  10. A

    Multi user network & local 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...
  11. A

    Multiple instance of forms

    Thanks, will take a look!
  12. A

    Multiple instance of forms

    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...
  13. A

    Multiple instance of forms

    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...
  14. A

    Excel save as pdf

    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...
  15. A

    Export image to Excel and resize

    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...
Top Bottom