Search results

  1. S

    Report to Pdf to Desktop

    Quick question about my code. Two days ago I was able to save my report to my desktop, yesterday the pdf file began saving to C: My Documents. I do not remember making any changes to the code to change the file save location, any suggestions on how I can re-route to the desktop again? Private...
  2. S

    Me.Detail.ForceNewPage Format

    I wanted to share this code in case anyone was searching how to insert blank rows…It works well! Copy and paste the following code to the On_Page event of the report. Basically if you are looking for an excel style setup to display a report, invoice, log, or something similar, this will draw...
  3. S

    Me.Detail.ForceNewPage Format

    I was reading random google pages and found something about intNumLines = 5 but nothing on the forum about it. Have you ever used that? http://www.pcreview.co.uk/forums/possible-force-number-rows-detail-section-t1658880.html Attached is a picture of the details section. Highlighted is the...
  4. S

    Me.Detail.ForceNewPage Format

    Thanks Bob. That works and I moved info from the report header and footer to the page header....thank god its friday! I have a separate question involving the same report VBA. In my code I have it limited to 5 records before moving to the next page. The report is similar to an excel sheet...
  5. S

    Me.Detail.ForceNewPage Format

    The code runs to the fifth record and moves the additional records to a second page. But it pushes my footer to page 2, which I would like to remain on page 1 and appear on page 2. I would like to take it further by carrying everything over from the first page to the second including the...
  6. S

    If IsNull / If Not IsNull / Reference to MainForm and Subform

    Awesome. My fault, I shouldn't known after >0 in the If Len lower line. Thank you!
  7. S

    If IsNull / If Not IsNull / Reference to MainForm and Subform

    By putting Len in the upper portion, it bypasses the If statement, msgboxes, and goes straight to the second If statement. So i put Len in the second statement, clicked save, and the form was at a standstill. This is represented in the Updated Code. Updated code: Private Sub Command8_Click()...
  8. S

    If IsNull / If Not IsNull / Reference to MainForm and Subform

    Sorry, yes I entered the code and it works except if you were to follow the steps in post 9. And entered the Exit Sub. Basically if I enter a value in [Me.To], then click save, it will display a MsgBox and setfocus to [Forms!I216!I216Details.Form.FileNo] If I then enter a value for...
  9. S

    If IsNull / If Not IsNull / Reference to MainForm and Subform

    Here are the steps and what I encounter: Open Form Click Save MsgBox1 MsgBox2 Enter Value in [To] Click Save MsgBox Enter Value in [FileNo] Delete Value in [To] Click Save [Form sits with no action] Enter Value in [To] Click Save Saves How do i revert back to MsgBox1 after I delete the...
  10. S

    If IsNull / If Not IsNull / Reference to MainForm and Subform

    Thank you. I ended up with the below because I didn't want it to save if Null. If Not IsNull(Me.To) And Not IsNull(Forms!I216!I216Details.Form.FileNo) Then I have another question. If I entered a value on the (Me.To) and Left the second null, it would give the MsgBox "you must enter an...
  11. S

    If IsNull / If Not IsNull / Reference to MainForm and Subform

    I added the SetFocus to the subform in the second [If IsNull] but encounter a runtime 13 error on the [If Not IsNull] line. It saves the material entered, half the battle. Is it because I have the And statement? Private Sub Command8_Click() Dim strWhere As String Dim response As...
  12. S

    If IsNull / If Not IsNull / Reference to MainForm and Subform

    Thank you for the reply, I had the setfocus prior but it would produce the same results, so i pulled it all together. Does the code structure look correct overall? I must be missing something. I will remove the Else and End If in the morning to test again. If IsNull(Me.To) Then...
  13. S

    If IsNull / If Not IsNull / Reference to MainForm and Subform

    No error but it is either to much code or at least mixing code together and not getting the desired results. I want to click on my command and: if Me.To IsNnull [have a message saying you must enter .....] [another message asking to exit without saving] If no, continue on main form If yes...
  14. S

    Auto Generate Number Error

    I think it is hard when you are not seeing what I see in my database. I posted a partial sample of my database in post #11. I hope I can better explain it here. In my full copy, I have duplicate copy of the form [AddPurchaseOrder], called [ReviewPurchaseOrder] used for reviewing/editing/doing...
  15. S

    Hyperlinked File as Attachment in email

    Curious if this is possible… I have two text boxes named [Attachment] and [Attachment2] that store a hyperlink to the file on a shared drive. So it is not an actual attachment, just a link to the attachment. Is there a way to capture the file within these two text boxes and email the contents...
  16. S

    Auto Generate Number Error

    Thank you for breaking it down further and I do understand the concept. But I am still trying to avoiding having to type in (anything). With my current set up, I have an On Load event for the form that obtains the auto generated number: Private Sub Form_Load() 'Assign a new Requisition Number...
  17. S

    Auto Generate Number Error

    You are both absolutely right about something that works now is not the best solution. I am building this to show that the concept works and to provide a temporary fix until a REAL solution can be developed. What is the best way to implement the sample database provided by RainLover in my...
  18. S

    split form on tab

    Bob, Has this changed with Access 2010 or does the split form still not work in a tabbed control? Best regards
  19. S

    Auto Generate Number Error

    Updated. Works the way I want. Thank you for the suggestions and I will continue reading about DMax. Option Compare Database Function NewRequisitionNumber() As String Dim startRange_Var As Long, lastNum_Var As Long, yearValue_Var As Long 'On Error GoTo Err_Execute 'Retrieve...
  20. S

    Auto Generate Number Error

    I'm confused. Location, Year, and Number are separate fields in my table. They are represented by: Location = Code_Desc, Year = YearValue, Number = StartingRange Last Number Used = Last_Nbr_Assigned In my table: Code_Desc = LRS YearValue = 13 StartingRange = 70000 Last_Nbr_Assigned = 2...
Back
Top Bottom