Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  • Users: Hillbillie
  • Order by date
  1. Hillbillie

    Getting lastname and filling rest with blanks.

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

    #Num!

    Hey Lilliabeth, that coffee must have worked. That code worked perfect. Thanks,
  3. Hillbillie

    #Num!

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

    #Num!

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

    #Num!

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

    Get Last Name from (Lastname Firstname)

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

    Get Last Name from (Lastname Firstname)

    Thanks everyone for the quick responses. TheAceMan1 your solution worked great. Appreciate it...
  8. Hillbillie

    Get Last Name from (Lastname Firstname)

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

    Insert info memo field

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

    Insert info memo field

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

    Insert info memo field

    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,
  12. Hillbillie

    Insert info memo field

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

    Filter form

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

    Filter form

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

    DSUM combinning 2

    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*'")
  16. Hillbillie

    DSUM combinning 2

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

    Need to add "Date email Sent"

    ...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 =...
  18. Hillbillie

    Need to add "Date email Sent"

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

    Need to add &quot;Date email Sent&quot;

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

    Need to add &quot;Date email Sent&quot;

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

Part and Inventory Search

Back
Top