Recent content by SmartCarFun

  1. S

    is there a difference between VBA code for MSaccess & SQL backend?

    Update I could use something like Format(Date(), "yyyymmdd") But how do I pull the record ID number from SQL without saving it first?
  2. S

    is there a difference between VBA code for MSaccess & SQL backend?

    Thanks for the ideas, Yes I probably need to do some VBA training, I'm just self taught and there are far smarter people out there than me... I use this code to create a name for a folder. So this code in the original app created a string quickly after the SAP number was entered in a new form...
  3. S

    is there a difference between VBA code for MSaccess & SQL backend?

    I thought perhaps because the field [CreatedOn] has a default value of date/time but I can see it being created in SQL but possible not until it saves the record... if that is the case then it cant find [CreatedOn] & [ID] until the record is saved which would explain it.. is this how SQL...
  4. S

    is there a difference between VBA code for MSaccess & SQL backend?

    Hello All, I have been using this bit of code to generate a unique reference, Private Sub SAP_Account_AfterUpdate() Me.RemitReference.Value = Format([CreatedOn], "yyyymmdd") & "_" & [ID] & "_" & [SAP Account] End Sub It worked fine with the MS Access backend but since moving to SQL it...
  5. S

    MS Access, Minitab, Control Charts & Six Sigma 6

    Hello All, This topic relates to getting access to deliver results formatted for Minitab. I want to use the power of MS Access to do my formatting for me. Control Charts in Minitab work on sampling data everyday for a period, say a week or a month. Each day I take say 10 sample measurements...
  6. S

    Quick Help with VBA If (match 2 Fields) Then

    Many thanks, here is my code for those interested in future... Looks at a checkbox to see if application is in maintenance: Private Sub Form_Open(Cancel As Integer) If (Me.LogOutAllUsers) = 0 Then DoCmd.Close acForm, "DBopen1_Maintenance" DoCmd.OpenForm "DBopen2_Version" Else...
  7. S

    Quick Help with VBA If (match 2 Fields) Then

    Hi, I'm guessing this is rather simple but it's not working as I thought it might... I have a local table and a linked table, both have only one record and I want to verify one table has a greater value than the other before allowing the user entry... so it looks like this..... Private Sub...
  8. S

    Count files in a folder

    Thanks, but is there anyway for it to appear in a field on a form/report instead of a message box?
  9. S

    Visible Subforms with If ElseIf

    moved to http://www.access-programmers.co.uk/forums/showthread.php?p=1141390&posted=1#post1141390
  10. S

    If ElseIf Question

    One of my subforms was corrupt, the first code work the second holds the subform in visible state so can't see what's under it.... How would I use select?
  11. S

    If ElseIf Question

    Hi, I have 5 subforms and depending on selection of field [ReturnType] I need to show a subform.... I started with Private Sub ReturnType_AfterUpdate() 'After Update of checkbox 'Check if Active checkbox is selected 'then show or hide subform If Me.ReturnType = "Remittance" Then...
  12. S

    Visible Subforms with If ElseIf

    Hi, I have 5 subforms and depending on selection of field [ReturnType] I need to show a subform.... I started with Private Sub ReturnType_AfterUpdate() 'After Update of checkbox 'Check if Active checkbox is selected 'then show or hide subform If Me.ReturnType = "Remittance" Then...
  13. S

    Visual Management & MS Access 2010

    Hi Guys, After having a couple of looks around the internet and not finding anything suitable I thought I would ask your opinions. Im working on an Access 2010 workflow system for work that will track and help manage a sizeable number of inflows and outflows as records. Once I have all the...
  14. S

    Count files in a folder

    in Access 2010, i paste this into a module? How do i call it? I create folders based on a field name, example.... Private Sub Command429_Click() If Len(Dir("\\MAMA\shares\IW_CASHAPPS\RECORDS\STORE\" & Me![RemitReference], vbDirectory)) = 0 Then MkDir...
  15. S

    Run Time 3075 error on combo filter

    SOLVED Me.cboUser.RowSource = "SELECT Users.ID, Users.User1Name FROM" & _
Back
Top Bottom