Search results

  1. WineSnob

    Dlookup syntax

    Thanks however neither works. Me.rdt = DLookup(x, "TblJoint", "[OldestAge] =" & y) 'returns x Me.rdt = DLookup(x, "TblJoint", "[OldestAge] ='" & y & "'") 'returns type mismatch I can use me.spouseage and me.clientage if necessary.
  2. WineSnob

    Dlookup syntax

    I have this code Private Sub Command12_Click() Dim x As Integer Dim y As Integer x = Me.spouseage y = Me.clientage Me.rdt = DLookup("[40]", "TblJoint", "[OldestAge]=70") End Sub It works fine. However I need to replace "[40]" with x and replace 70 with y. I can't get the syntax right. I have...
  3. WineSnob

    Dreaded DateAdd ?

    Thanks Brian - That did it.
  4. WineSnob

    Dreaded DateAdd ?

    I am filling a table with calculated data. There is a StartDate field (supplied as a variable) I need to fill the table with the next month first day. It is a payment due schedule. I will supply 1/1/2013 then I need to fill the table with 2/1/2013 3/1/2013 4/1/2013 ....etc until end of loop. I...
  5. WineSnob

    Print Selected Reports

    Thanks AGAIN Paul, Here it is for the next one with the same question. Private Sub btnPrintSelected_Click() Dim rst As Recordset Set rst = CurrentDb.OpenRecordset("SELECT tblReportList.Report, tblReportList.Print FROM tblReportList WHERE tblReportList.Print=True") Do While Not rst.EOF...
  6. WineSnob

    Print Selected Reports

    What would be the syntax to Print the records? Private Sub btnPrintSelected_Click() Dim rst As Recordset Set rst = CurrentDb.OpenRecordset("SELECT tblReportList.Report, tblReportList.Print FROM tblReportList WHERE tblReportList.Print=True") End Sub
  7. WineSnob

    Print Selected Reports

    I have a table [tblReportList] that lists all the reports. Each report (record) also has a checkbox (Print). I have a form that lists the reports and shows the check box. What I would like to do is have the user select the reports they want to print by checking the print checkbox. Then hit a...
  8. WineSnob

    Sum data and update table

    Thanks nschroeder. Your code didn't work as advertised. However, it did prompt me to do the loop. I was able to get it to work. So thanks for the mental direction.
  9. WineSnob

    Sum data and update table

    I have a table where I calculate monthly interest for x years. I would like the best way to sum the column Interest for each year (month 1-12, month 13-24, month 25-36 etc..) and update another table where interest is by the year? Sum column interest where month = 1-12 and update table...
  10. WineSnob

    First VBA for query

    Not sure about the () but I know it works with " ". GLad to help.
  11. WineSnob

    First VBA for query

    Try this" Public Sub Form_Close() DoCmd.SetWarnings False Docmd.OpenQuery "FixLeaseNum" Docmd.SetWarnings True End Sub
  12. WineSnob

    Solve for X POSSIBLE ??

    Need a little more help with the additional component. I am too old to remember algebra. I appreciate your help. If I needed to use x*(1+.02)^4 where x is AFTER the first + sign. How would I simplify brackets and combine? The first x will always be x. After that then x could be x*(1+.02)^4...
  13. WineSnob

    Solve for X POSSIBLE ??

    WOW! you really put some thought into this along with some wicked good math skills. This is AWESOME.... I may need to ask for a modification if I can't figure how to add a new component to the equation. I am going to give it go first before asking. I cannot thank you enough ... I was ready to...
  14. WineSnob

    Solve for X POSSIBLE ??

    I just thought that is what I am sort of doing now. If I could get it to work in excel I could get to work in Access. I am at a lost. Not sure what I want is possible in Access.
  15. WineSnob

    Solve for X POSSIBLE ??

    It is part of an Access application where the user can input the value and have it return the monthly amount. Is it possible to create the string in access then send it to excel and the have the result go back into access all invisible to the user? I have never done anything like that.
  16. WineSnob

    Solve for X POSSIBLE ??

    Thanks for trying. I was able to get it to work for the first 2 segments using the different numbers . Segment 1 = 376268.05 Segment 2 = 400055.08 SEg1+Seg2 =776323.13 Segment 3 = 455809.68 Total = 1232132.81 I put the following in excel to check the results...
  17. WineSnob

    Custom Msgbox Form

    Try This Option Compare Database Private Sub cmdYes_Click() ' Allow Save docmd.save End Sub Private Sub cmdNo_Click() ' Stop the Save Exit Sub End Sub Private Sub cmdCancel_Click() ' Stop the Save and undo the form Me.undo End Sub Private Sub cmdList_Click() ' Open a...
  18. WineSnob

    Solve for X POSSIBLE ??

    I have searched and searched and have ALMOST concluded what I need is not possible in VB. I hope I am wrong and someone can help. Here is what I am trying to do. Solve for X where all the items in red are parameters. I put this equation in an online algebra solver and I get the correct answer...
  19. WineSnob

    Nortwind Traders

    Open the Table "STRINGS" and edit the text for #2 Northwind Traders. Look in the Module Utilities and you find list of string = numbers. YOu can edit what the error message will display by changing the text in the table. It will be associated with the error number. Hope that is what you needed.
  20. WineSnob

    Nortwind Traders

    Not sure but I would search through all the macros. I don't normally use macros but use code to do things. Search through the Macro Action Catalog for each form. I has to be in there somewhere.
Back
Top Bottom