I have this table with a name field. Unfortunately it has the lastname and first name together. Here is an example.
Bateman, Ramey
Bell, Leroy
Schremmer, Stephanie
All records have the comma and space.
I want to have an update query that will take the last name and make it like this.
The...
Yes, that was a big shy on details.
The original Control Source formula would sum up all grades A thru D and give a final average of the courses taken and then divides the sum of more stuff.
The latest formula did not give anything but a zero value. I didnt see any Sum.
Keep in mind that I...
Thanks Lilliabeth for the quick reply.
That worked in getting a 0 instead of #Num!, but it changed the calculation in my original Control Source formula.
Thanks
...problem. I have this report that I get a sum.
I use this in my a text box called SumBox
I put this in the Control Source =Sum(IIf([grade]="A",4*[hourscred],IIf([grade]="B",3*[hourscred],IIf([grade]="C",2*[hourscred],IIf([grade]="D",1*[hourscred],0)))))/Sum(IIf([grade] In...
This is so true fneily. My problem was this data was imported from an excel file that did not have the names seperated.
When I design databases, I do my best to think ahead and that helps, but there are always things I dont think of.
I am currently taking over a database that was created on...
This has been posted, but is a little different than what I can understand.
Here is what I have.
A form that has a field called name. This field has lastname space first name ie "Johnson Larry"
I have a 2 new fields I made that are empty. Called firstname and lastname.
I want to populate...
Did you call your new textbox the same name as your memo field? No
Is company the name of a field in the table / query which is bound to the report? Yes
What happens if you type:
?replace("abc","b","a") Sorry I need more simple instructions.
------------------------------------
I...
I did as you wrote and when I ran the report it gave an error
"Compile error: External name not defined" and it highlighted the [Company] in the module.
I do have a text box called [Company]in the report I ran.
Also, in the new text box that I created in the report it reads "#Error"
and...
Thanks, for the reply.
Actually there wont be any "[comp]" inside the memo except ones that we manually put in.
Can you give an example of using he replace function you mentioned above. Im not a programmer..
Thanks,
I am sending out letters to potential customers. I have their [company] fields in the report. Also the name of the memo field is [memo].
In the memo is a whole page full of text. At certain locations (more than one) is the characters [comp]
I want to replace all the [comp] within memo with...
Thanks spizotfl, it worked like a champ.
Below is my final code.
If DCount("Lastname", "Donors", "Lastname like 'A*'") > 0 Then
Me.Filter = "Lastname like 'A*'"
Me.FilterOn = True
Else
MsgBox "There are no records with this lastname"
End If
End Sub
...like A, then it opens the form in a blank form. I want it to popup a msgbox, telling me there are no records, and then after I press ok, it will go end and go back to where it was.
Current Script:
Private Sub Abutton_Click()
Me.Filter = "Lastname like 'A*'"
Me.FilterOn = True
End Sub
Thanks
Thanks dhookom,
It works great. I use your examples except with the and instead of or.
DSum("[dollaramount]", "[Student Scholarships Received]", "[socialsecuritynumber] = [forms]![Student Scholarships Received]![SocialSecurityNumber] and [name of scholarship] like '*plus*'")
...Received]"," [socialsecuritynumber]=[forms]![Student Scholarships Received]![SocialSecurityNumber]")
=DSum("[Student Scholarships Received]![dollaramount] ","[Student Scholarships Received]","[name of scholarship] like '*plus*'")
I would like to combine them into 1 dsum
Thanks,
Larry
...Dim rs As DAO.Recordset
Dim strSQL As String
Dim strSQL2 As String
Dim strMessage As String
Dim strNameSent As String
strSQL = "SELECT * FROM Membersinfo WHERE email = -1"
strSQL2 = "SELECT * FROM MembersEmailsSent"
Set rs = CurrentDb.OpenRecordset(strSQL)
Set rs2 =...
...Private Sub SendEmailButton_Click()
Dim rs As DAO.Recordset
Dim strSQL As String
strSQL = "SELECT * FROM emailquery WHERE email = -1"
Set rs = CurrentDb.OpenRecordset(strSQL)
With rs
Do While Not rs.EOF
Me.email1 = ![Email Address]
If ![Email Address] <> "" Then DoCmd.SendObject...
Thank hermanlaksko for the quick response.
After further thought, here is what I relly need to do so I can see who was sent an email, what was the name of the letter and when. This will be in a seperate table, with the following fields.
TableName = MembersEmailsSent
ID...
...was sent to each donor. Here is my code.
Private Sub SendEmailButton_Click()
Dim rs As DAO.Recordset
Dim strSQL As String
strSQL = "SELECT * FROM emailquery WHERE email = -1"
Set rs = CurrentDb.OpenRecordset(strSQL)
With rs
Do While Not rs.EOF
Me.email1 = ![Email Address]
If ![Email...
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.