Search results

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

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

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

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

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

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

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

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

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

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?

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

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

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

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

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

I have the solution, by changing Me.cboUser.RowSource = "SELECT User1Name FROM" & _ to Me.cboUser.RowSource = "SELECT ID FROM" & _ it now works.... BUT Now my cboUser (combo) displaays a number (ID) not the name (User1Name) What do I need to change???????? Thanks

This is definately the problem, if I isolate it from the code with a single quote the codes runs as expected except it doesnt consider the code in the cboUser and so only half the filter works....

Private Sub cboTeam_AfterUpdate() ' Update the row source of the cboProducts combo box ' when the user makes a selection in the cboCategories ' combo box. Me.cboUser.RowSource = "SELECT User1Name FROM" & _ " Users WHERE Region = " & Chr(34) & Me.cboTeam & Chr(34) & _ " ORDER BY User1Name"...

Thanks, it worked after some time, not sure why but good now, My questions are quite basic I guess, where is a good place to learn more about VBA, the basics anyway?

Hi, I realise now I need to refresh the records to complete the task, the refresh will remove the record from the list, here is the code I've settled on; Private Sub but2CA_Click() Me.TS_2CashApps = Now() Me.CollectorComplete = True Me.Refresh End Sub can I add a line to refresh the records...