I have a form (Frm_Entry) whose record source is Tbl_Main. In that table and on that form, I capture a cumulative Benefit score and a cumulative Effort score in order to conduct a brief analysis for the work we might pursue. I want to display this data as a XY Scatter chart on the form. When...
I have a Form (Form.Main) with a subform (Form.Sub) embedded in it. Here's what I would like to do.
If I update a field (Status) on the subform, can I force it to update a field on the main form with an IF statement? I'm thinking:
Private Sub Status_AfterUpdate()
If Me.Status.Value = "Blue"...
The work-around for now is a modification of the code (see below) and the addition of an "Add a New Record" command button on the submission form. The customer hits the submit button (Command89), allows the email to send, and then has to press the "Complete" button manually. Its hard to...
I tried setting the focus to [SUSPENSE_DATE] - a text box on the form. I received the error message again.
Private Sub Command89_Click()
DoCmd.RunMacro "Refresh Macro", 1
If IsNull(Me.SUBJECT.Value) Then
Dim Msg, Style, Title
Msg = "You did not enter a subject. If you select Yes, this record...
Yes - if I add a command button I can add a new record.
Here is the original code:
Private Sub Command89_Click()
DoCmd.RunMacro "Refresh Macro", 1
If IsNull(Me.SUBJECT.Value) Then
Dim Msg, Style, Title
Msg = "You did not enter a subject. If you select Yes, this record will be DELETED. Do...
The code looks like this now:
Private Sub Command89_Click()
DoCmd.RunMacro "Refresh Macro", 1
If IsNull(Me.SUBJECT.Value) Then
Dim Msg, Style, Title
Msg = "You did not enter a subject. If you select Yes, this record will be DELETED. Do you want to continue?"
Style = vbYesNo
Title = "Not So...
I tried the code from dhookum, and got this message: The command or action 'RecordsGoToNew' isn't available now.
This is the last piece of the puzzle. What the heck?!
Buckaroo Banzai
www.strategicorps.com
This is what I came up with:
Private Sub Command89_Click()
DoCmd.RunMacro "Refresh Macro", 1
If IsNull(Me.SUBJECT.Value) Then
Dim Msg, Style, Title
Msg = "You did not enter a subject. If you select Yes, this record will be DELETED. Do you want to continue?"
Style = vbYesNo
Title = "Not So...
Yes - I was just concerned that since the macro wouldn't run while the other message box was up, that this wouldn't work either. I'll give it a shot. Appreciate your time.
Could it be because the "Allow/Deny" message box (w/status bar) is up and has the focus while the command is trying to run? Can I delay the new record command for 20 seconds or set the focus back to the form?
You guys are the best. Now I have one last question (in this thread). If I want the form to go to a new record after the customer hits the submit button, what am I doing wrong. My code is:
Private Sub Command89_Click()
DoCmd.RunMacro "Refresh Macro", 1
If IsNull(Me.SUBJECT.Value) Then
Dim...
This is what I've tried:
Function Concatenate(pstrSQL As String, _
Optional pstrDelim As String = ", ") _
As String
'example
'tblFamily with FamID as numeric primary key
'tblFamMem with FamID, FirstName, DOB,...
'return a comma separated list of FirstNames...
First off - I have to say dhookum, you have been a huge help over the last few years, so thanks. Now for the concatenate function, I don't understand how to use it in order to combine all of the data in a certain column. I have about 9 rows of emails, and just want them to appear in a single...
I have a customer database that allows customers to enter requests. After a customer enters a request, I need the database to send an email to all of the technicians (whose names and emails are stored and updated in a table (tbl Technicians). I have what I believe to be similar code that sends...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.