Results 1 to 7 of 7
  1. 02-05-2015, 12:37 AM #1
    santinimatias
    santinimatias is offline Novice
    Windows 7 32bit Access 2013
    Join Date
    Nov 2013
    Posts
    13

    Button with too many commands?

    I am working on a database for an architectural office. We want to keep track on the in-house printing, mounting the prints on foam boards, scanning, shipping and CD burning. I have distributed the different costs items in multiple areas on the same form (I didn't want to use tabs).
    I created a combobox for the "transaction" (printing, mounting, scanning, shipping, or CD burning) for that specific record. When I select "Printing" on the combobox all fields that are NOT pertinent to the "transaction" are "Not Enabled". See attached image. This works fine.


    Click image for larger version.  Name: Log Form.jpg  Views: 18  Size: 168.9 KB  ID: 19600
    What I'm trying to do now is for when I click the "Save" button, it checks that all the pertinent fields are filled out, save the record, and goes to the next "new" record. I did some research online and came out with something that brings a window that tells the user which field they are missing. So If all the fields are filled out properly, then it should save the record and go to "new". However, I get the error 2105, which points out to "DoCmd.GoToRecord , , acNewRec".

    Obviously, my uneducated programming doesn't work. So, can you please point out where I'm failing? Could you give me some ideas on how to get it done properly?

    Below is the code I have:
    Code:
    Private Sub Command23_Click()

     If Not IsNull(Me.TransactionType) Then
         'Forced fields per Transaction selected
         If Me!TransactionType = "Printing" Then
             Select Case True
                 Case IsNull(Me.LogDate)
                 MsgBox "Please enter a Date."
                 Me.LogDate.SetFocus
                     
                 Case IsNull(Me.EmployeeIDFK)
                 MsgBox "Please select an Employee."
                 Me.EmployeeIDFK.SetFocus
                     
                 Case IsNull(Me.CustomerIDFK)
                 MsgBox "Please select an Job Number - Customer."
                 Me.CustomerIDFK.SetFocus
                     
                 Case IsNull(Me.NumberOfSheets)
                 MsgBox "Please enter a number of Sheets."
                 Me.NumberOfSheets.SetFocus
                     
                 Case IsNull(Me.SheetSizeIDFK)
                 MsgBox "Please select the Sheet Size."
                 Me.SheetSizeIDFK.SetFocus
                     
                 Case IsNull(Me.PaperTypeIDFK)
                 MsgBox "Please select the Type of Paper."
                 Me.PaperTypeIDFK.SetFocus
                     
                 Case IsNull(Me.InkIDFK)
                 MsgBox "Please select Color or B/W."
                 Me.InkIDFK.SetFocus
                     
                 Case IsNull(Me.BindingIDFK)
                 MsgBox "Please select the type of Binding."
                 Me.BindingIDFK.SetFocus
             
             Case Else
                 
                 Me!LogDate.Enabled = False
                 Me!EmployeeIDFK.Enabled = False
                 Me!CustomerIDFK.Enabled = False
                 
                 Me!NumberOfSheets.Enabled = False
                 Me!NumberOfSets.Enabled = False
                 
                 Me!SheetSizeIDFK.Enabled = False
                 Me!PaperTypeIDFK.Enabled = False
                 Me!InkIDFK.Enabled = False
                 Me!BindingIDFK.Enabled = False
                 Me!MountingIDFK.Enabled = False
                 
                 Me!Courier.Enabled = False
                 Me!CourierFee.Enabled = False
                 Me!Attachments.Enabled = False
                 
                 Me!Mileage.Enabled = False
                 
                 Me!PriceCD_IDFK.Enabled = False
                 Me!NumberofCDs.Enabled = False
                 
                 Me!Notes.Enabled = True
                
                 MsgBox ("Data Saved!  Now get back to Work!")
     
             End Select
         End If
         
         If Me!TransactionType = "Mounting" Then
             Select Case True
                     
                 Case IsNull(Me.LogDate)
                 MsgBox "Please enter a Date."
                 Me.LogDate.SetFocus
                     
                 Case IsNull(Me.EmployeeIDFK)
                 MsgBox "Please select an Employee."
                 Me.EmployeeIDFK.SetFocus
                     
                 Case IsNull(Me.CustomerIDFK)
                MsgBox "Please select an Job Number - Customer."
                 Me.CustomerIDFK.SetFocus
                 
                 Case IsNull(Me.NumberOfSheets)
                 MsgBox "Please enter a number of Sheets."
                 Me.NumberOfSheets.SetFocus
                 
                 Case IsNull(Me.MountingIDFK)
                 MsgBox "Please select the type of Mounting."
                 Me.MountingIDFK.SetFocus
             
            Case Else
                 
                 Me!LogDate.Enabled = False
                 Me!EmployeeIDFK.Enabled = False
                 Me!CustomerIDFK.Enabled = False
                 
                 Me!NumberOfSheets.Enabled = False
                 Me!NumberOfSets.Enabled = False
                 
                 Me!SheetSizeIDFK.Enabled = False
                 Me!PaperTypeIDFK.Enabled = False
                 Me!InkIDFK.Enabled = False
                 Me!BindingIDFK.Enabled = False
                 Me!MountingIDFK.Enabled = False
                 
                 Me!Courier.Enabled = False
                 Me!CourierFee.Enabled = False
                 Me!Attachments.Enabled = False
                 
                 Me!Mileage.Enabled = False
                 
                 Me!PriceCD_IDFK.Enabled = False
                 Me!NumberofCDs.Enabled = False
                 
                 Me!Notes.Enabled = True
                 
                 MsgBox ("Data Saved!  Now get back to Work!")
     
             End Select
         End If
                 
         If Me!TransactionType = "Scanning" Then
             Select Case True
                 
                 Case IsNull(Me.LogDate)
                 MsgBox "Please enter a Date."
                 Me.LogDate.SetFocus
                     
                 Case IsNull(Me.EmployeeIDFK)
                 MsgBox "Please select an Employee."
                 Me.EmployeeIDFK.SetFocus
                     
                 Case IsNull(Me.CustomerIDFK)
                 MsgBox "Please select an Job Number - Customer."
                 Me.CustomerIDFK.SetFocus
                 
                 Case IsNull(Me.NumberOfSheets)
                 MsgBox "Please enter a number of Sheets."
                 Me.NumberOfSheets.SetFocus
                 
                 Case IsNull(Me.SheetSizeIDFK)
                 MsgBox "Please select the Sheet Size."
                 Me.SheetSizeIDFK.SetFocus
                 
                 Case IsNull(Me.InkIDFK)
                 MsgBox "Please select Color or B/W."
                 Me.InkIDFK.SetFocus
             
             Case Else
                 
                 Me!LogDate.Enabled = False
                 Me!EmployeeIDFK.Enabled = False
                 Me!CustomerIDFK.Enabled = False
                 
                 Me!NumberOfSheets.Enabled = False
                 Me!NumberOfSets.Enabled = False
                 
                 Me!SheetSizeIDFK.Enabled = False
                 Me!PaperTypeIDFK.Enabled = False
                 Me!InkIDFK.Enabled = False
                 Me!BindingIDFK.Enabled = False
                 Me!MountingIDFK.Enabled = False
                 
                 Me!Courier.Enabled = False
                 Me!CourierFee.Enabled = False
                 Me!Attachments.Enabled = False
                 
                 Me!Mileage.Enabled = False
                 
                 Me!PriceCD_IDFK.Enabled = False
                 Me!NumberofCDs.Enabled = False
                 
                 Me!Notes.Enabled = True
                 
                 MsgBox ("Data Saved!  Now get back to Work!")
     
             End Select
         End If
         
         If Me!TransactionType = "Shipping" Then
             Select Case True
                     
                 Case IsNull(Me.LogDate)
                 MsgBox "Please enter a Date."
                 Me.LogDate.SetFocus
                     
                 Case IsNull(Me.EmployeeIDFK)
                 MsgBox "Please select an Employee."
                 Me.EmployeeIDFK.SetFocus
                     
                 Case IsNull(Me.CustomerIDFK)
                 MsgBox "Please select an Job Number - Customer."
                 Me.CustomerIDFK.SetFocus
                 
                 Case IsNull(Me.Courier)
                 MsgBox "Please select the Courier."
                 Me.Courier.SetFocus
                 
                 Case IsNull(Me.CourierFee)
                 MsgBox "Please type the Courier Fee."
                 Me.CourierFee.SetFocus
                 
             Case Else
                 
                 Me!LogDate.Enabled = False
                 Me!EmployeeIDFK.Enabled = False
                 Me!CustomerIDFK.Enabled = False
                 
                 Me!NumberOfSheets.Enabled = False
                 Me!NumberOfSets.Enabled = False
                 
                 Me!SheetSizeIDFK.Enabled = False
                 Me!PaperTypeIDFK.Enabled = False
                 Me!InkIDFK.Enabled = False
                 Me!BindingIDFK.Enabled = False
                 Me!MountingIDFK.Enabled = False
                 
                 Me!Courier.Enabled = False
                 Me!CourierFee.Enabled = False
                 Me!Attachments.Enabled = False
                 
                 Me!Mileage.Enabled = False
                 
                 Me!PriceCD_IDFK.Enabled = False
                 Me!NumberofCDs.Enabled = False
                 
                 Me!Notes.Enabled = True
                 
                 MsgBox ("Data Saved!  Now get back to Work!")
     
             End Select
         End If
                     
                     
         If Me!TransactionType = "Mileage" Then
             Select Case True
                     
                 Case IsNull(Me.LogDate)
                 MsgBox "Please enter a Date."
                 Me.LogDate.SetFocus
                     
                 Case IsNull(Me.EmployeeIDFK)
                 MsgBox "Please select an Employee."
                 Me.EmployeeIDFK.SetFocus
                     
                 Case IsNull(Me.CustomerIDFK)
                 MsgBox "Please select an Job Number - Customer."
                 Me.CustomerIDFK.SetFocus
                 
                 Case IsNull(Me.Mileage)
                 MsgBox "Please type the Mileage."
                 Me.Mileage.SetFocus
             
             Case Else
                 
                 Me!LogDate.Enabled = False
                 Me!EmployeeIDFK.Enabled = False
                 Me!CustomerIDFK.Enabled = False
                 
                Me!NumberOfSheets.Enabled = False
                 Me!NumberOfSets.Enabled = False
                 
                 Me!SheetSizeIDFK.Enabled = False
                 Me!PaperTypeIDFK.Enabled = False
                 Me!InkIDFK.Enabled = False
                Me!BindingIDFK.Enabled = False
                 Me!MountingIDFK.Enabled = False
                 
                 Me!Courier.Enabled = False
                 Me!CourierFee.Enabled = False
                 Me!Attachments.Enabled = False
                 
                 Me!Mileage.Enabled = False
                 
                 Me!PriceCD_IDFK.Enabled = False
                 Me!NumberofCDs.Enabled = False
                 
                 Me!Notes.Enabled = True
                 
                 MsgBox ("Data Saved!  Now get back to Work!")
     
             End Select
         End If
                     
                     
         If Me!TransactionType = "CD Burning" Then
             Select Case True
                     
                 Case IsNull(Me.LogDate)
                 MsgBox "Please enter a Date."
                 Me.LogDate.SetFocus
                     
                 Case IsNull(Me.EmployeeIDFK)
                 MsgBox "Please select an Employee."
                 Me.EmployeeIDFK.SetFocus
                     
                 Case IsNull(Me.CustomerIDFK)
                MsgBox "Please select an Job Number - Customer."
                 Me.CustomerIDFK.SetFocus
                 
                 Case IsNull(Me.PriceCD_IDFK)
                 MsgBox "Please select the type of CD Copy."
                 Me.PriceCD_IDFK.SetFocus
                 
                 Case IsNull(Me.NumberofCDs)
                 MsgBox "Please type the number of copies."
                 Me.NumberofCDs.SetFocus
             
             Case Else
                 
                 Me!LogDate.Enabled = False
                 Me!EmployeeIDFK.Enabled = False
                 Me!CustomerIDFK.Enabled = False
                 
                 Me!NumberOfSheets.Enabled = False
                 Me!NumberOfSets.Enabled = False
                 
                 Me!SheetSizeIDFK.Enabled = False
                 Me!PaperTypeIDFK.Enabled = False
                 Me!InkIDFK.Enabled = False
                 Me!BindingIDFK.Enabled = False
                 Me!MountingIDFK.Enabled = False
                 
                 Me!Courier.Enabled = False
                 Me!CourierFee.Enabled = False
                 Me!Attachments.Enabled = False
                 
                 Me!Mileage.Enabled = False
                 
                 Me!PriceCD_IDFK.Enabled = False
                 Me!NumberofCDs.Enabled = False
                 
                 Me!Notes.Enabled = True
                 
                 MsgBox ("Data Saved!  Now get back to Work!")
     
             End Select
         End If
     Else
         MsgBox ("No Data has been added. Record Not saved!")
         
     End If
     
     DoCmd.GoToRecord , , acNewRec
     'Unlock TransactionType after a new record starts
     Me.TransactionType.Enabled = True
     
 End Sub
    Attached Thumbnails Attached Thumbnails Log Form.jpg  
    Last edited by June7; 02-05-2015 at 06:02 PM. Reason: CODE tags and indentation
    Reply With Quote Reply With Quote
  2. 02-05-2015, 01:44 AM #2
    June7's Avatar
    June7
    June7 is online now VIP
    Windows 7 64bit Access 2010 32bit
    Join Date
    May 2011
    Location
    The Great Land
    Posts
    53,624
    What is the exact error message?

    That is a lot of code to read through and the lack of indentation makes it harder. Use CODE tags when pasting code and indentation will be preserved.
    How to attach file: http://www.accessforums.net/showthread.php?t=70301 To provide db: copy, remove confidential data, run compact & repair, zip w/Windows Compression.
    Reply With Quote Reply With Quote
  3. 02-05-2015, 11:06 AM #3
    santinimatias
    santinimatias is offline Novice
    Windows 7 32bit Access 2013
    Join Date
    Nov 2013
    Posts
    13
    My apologies. the error message is "run-time error 2105: you can't go to specified record". Then it highlights "DoCmd.GoToRecord , , acNewRec".


    Code:
    Private Sub Command23_Click()

    If Not IsNull(Me.TransactionType) Then
        'Forced fields per Transaction selected
        If Me!TransactionType = "Printing" Then
            Select Case True
                Case IsNull(Me.LogDate)
                MsgBox "Please enter a Date."
                Me.LogDate.SetFocus
                    
                Case IsNull(Me.EmployeeIDFK)
                MsgBox "Please select an Employee."
                Me.EmployeeIDFK.SetFocus
                    
                Case IsNull(Me.CustomerIDFK)
                MsgBox "Please select an Job Number - Customer."
                Me.CustomerIDFK.SetFocus
                    
                Case IsNull(Me.NumberOfSheets)
                MsgBox "Please enter a number of Sheets."
                Me.NumberOfSheets.SetFocus
                    
                Case IsNull(Me.SheetSizeIDFK)
                MsgBox "Please select the Sheet Size."
                Me.SheetSizeIDFK.SetFocus
                    
                Case IsNull(Me.PaperTypeIDFK)
                MsgBox "Please select the Type of Paper."
                Me.PaperTypeIDFK.SetFocus
                    
                Case IsNull(Me.InkIDFK)
                MsgBox "Please select Color or B/W."
                Me.InkIDFK.SetFocus
                    
                Case IsNull(Me.BindingIDFK)
                MsgBox "Please select the type of Binding."
                Me.BindingIDFK.SetFocus
            
            Case Else
                
                Me!LogDate.Enabled = False
                Me!EmployeeIDFK.Enabled = False
                Me!CustomerIDFK.Enabled = False
                
                Me!NumberOfSheets.Enabled = False
                Me!NumberOfSets.Enabled = False
                
                Me!SheetSizeIDFK.Enabled = False
                Me!PaperTypeIDFK.Enabled = False
                Me!InkIDFK.Enabled = False
                Me!BindingIDFK.Enabled = False
                Me!MountingIDFK.Enabled = False
                
                Me!Courier.Enabled = False
                Me!CourierFee.Enabled = False
                Me!Attachments.Enabled = False
                
                Me!Mileage.Enabled = False
                
                Me!PriceCD_IDFK.Enabled = False
                Me!NumberofCDs.Enabled = False
                
                Me!Notes.Enabled = True
                
                MsgBox ("Data Saved!  Now get back to Work!")
    
            End Select
        End If
        
        If Me!TransactionType = "Mounting" Then
            Select Case True
                    
                Case IsNull(Me.LogDate)
                MsgBox "Please enter a Date."
                Me.LogDate.SetFocus
                    
                Case IsNull(Me.EmployeeIDFK)
                MsgBox "Please select an Employee."
                Me.EmployeeIDFK.SetFocus
                    
                Case IsNull(Me.CustomerIDFK)
                MsgBox "Please select an Job Number - Customer."
                Me.CustomerIDFK.SetFocus
                
                Case IsNull(Me.NumberOfSheets)
                MsgBox "Please enter a number of Sheets."
                Me.NumberOfSheets.SetFocus
                
                Case IsNull(Me.MountingIDFK)
                MsgBox "Please select the type of Mounting."
                Me.MountingIDFK.SetFocus
            
            Case Else
                
                Me!LogDate.Enabled = False
                Me!EmployeeIDFK.Enabled = False
                Me!CustomerIDFK.Enabled = False
                
                Me!NumberOfSheets.Enabled = False
                Me!NumberOfSets.Enabled = False
                
                Me!SheetSizeIDFK.Enabled = False
                Me!PaperTypeIDFK.Enabled = False
                Me!InkIDFK.Enabled = False
                Me!BindingIDFK.Enabled = False
                Me!MountingIDFK.Enabled = False
                
                Me!Courier.Enabled = False
                Me!CourierFee.Enabled = False
                Me!Attachments.Enabled = False
                
                Me!Mileage.Enabled = False
                
                Me!PriceCD_IDFK.Enabled = False
                Me!NumberofCDs.Enabled = False
                
                Me!Notes.Enabled = True
                
                MsgBox ("Data Saved!  Now get back to Work!")
    
            End Select
        End If
                
        If Me!TransactionType = "Scanning" Then
            Select Case True
                
                Case IsNull(Me.LogDate)
                MsgBox "Please enter a Date."
                Me.LogDate.SetFocus
                    
                Case IsNull(Me.EmployeeIDFK)
                MsgBox "Please select an Employee."
                Me.EmployeeIDFK.SetFocus
                    
                Case IsNull(Me.CustomerIDFK)
                MsgBox "Please select an Job Number - Customer."
                Me.CustomerIDFK.SetFocus
                
                Case IsNull(Me.NumberOfSheets)
                MsgBox "Please enter a number of Sheets."
                Me.NumberOfSheets.SetFocus
                
                Case IsNull(Me.SheetSizeIDFK)
                MsgBox "Please select the Sheet Size."
                Me.SheetSizeIDFK.SetFocus
                
                Case IsNull(Me.InkIDFK)
                MsgBox "Please select Color or B/W."
                Me.InkIDFK.SetFocus
            
            Case Else
                
                Me!LogDate.Enabled = False
                Me!EmployeeIDFK.Enabled = False
                Me!CustomerIDFK.Enabled = False
                
                Me!NumberOfSheets.Enabled = False
                Me!NumberOfSets.Enabled = False
                
                Me!SheetSizeIDFK.Enabled = False
                Me!PaperTypeIDFK.Enabled = False
                Me!InkIDFK.Enabled = False
                Me!BindingIDFK.Enabled = False
                Me!MountingIDFK.Enabled = False
                
                Me!Courier.Enabled = False
                Me!CourierFee.Enabled = False
                Me!Attachments.Enabled = False
                
                Me!Mileage.Enabled = False
                
                Me!PriceCD_IDFK.Enabled = False
                Me!NumberofCDs.Enabled = False
                
                Me!Notes.Enabled = True
                
                MsgBox ("Data Saved!  Now get back to Work!")
    
            End Select
        End If
        
        If Me!TransactionType = "Shipping" Then
            Select Case True
                    
                Case IsNull(Me.LogDate)
                MsgBox "Please enter a Date."
                Me.LogDate.SetFocus
                    
                Case IsNull(Me.EmployeeIDFK)
                MsgBox "Please select an Employee."
                Me.EmployeeIDFK.SetFocus
                    
                Case IsNull(Me.CustomerIDFK)
                MsgBox "Please select an Job Number - Customer."
                Me.CustomerIDFK.SetFocus
                
                Case IsNull(Me.Courier)
                MsgBox "Please select the Courier."
                Me.Courier.SetFocus
                
                Case IsNull(Me.CourierFee)
                MsgBox "Please type the Courier Fee."
                Me.CourierFee.SetFocus
                
            Case Else
                
                Me!LogDate.Enabled = False
                Me!EmployeeIDFK.Enabled = False
                Me!CustomerIDFK.Enabled = False
                
                Me!NumberOfSheets.Enabled = False
                Me!NumberOfSets.Enabled = False
                
                Me!SheetSizeIDFK.Enabled = False
                Me!PaperTypeIDFK.Enabled = False
                Me!InkIDFK.Enabled = False
                Me!BindingIDFK.Enabled = False
                Me!MountingIDFK.Enabled = False
                
                Me!Courier.Enabled = False
                Me!CourierFee.Enabled = False
                Me!Attachments.Enabled = False
                
                Me!Mileage.Enabled = False
                
                Me!PriceCD_IDFK.Enabled = False
                Me!NumberofCDs.Enabled = False
                
                Me!Notes.Enabled = True
                
                MsgBox ("Data Saved!  Now get back to Work!")
    
            End Select
        End If
                    
                    
        If Me!TransactionType = "Mileage" Then
            Select Case True
                    
                Case IsNull(Me.LogDate)
                MsgBox "Please enter a Date."
                Me.LogDate.SetFocus
                    
                Case IsNull(Me.EmployeeIDFK)
                MsgBox "Please select an Employee."
                Me.EmployeeIDFK.SetFocus
                    
                Case IsNull(Me.CustomerIDFK)
                MsgBox "Please select an Job Number - Customer."
                Me.CustomerIDFK.SetFocus
                
                Case IsNull(Me.Mileage)
                MsgBox "Please type the Mileage."
                Me.Mileage.SetFocus
            
            Case Else
                
                Me!LogDate.Enabled = False
                Me!EmployeeIDFK.Enabled = False
                Me!CustomerIDFK.Enabled = False
                
                Me!NumberOfSheets.Enabled = False
                Me!NumberOfSets.Enabled = False
                
                Me!SheetSizeIDFK.Enabled = False
                Me!PaperTypeIDFK.Enabled = False
                Me!InkIDFK.Enabled = False
                Me!BindingIDFK.Enabled = False
                Me!MountingIDFK.Enabled = False
                
                Me!Courier.Enabled = False
                Me!CourierFee.Enabled = False
                Me!Attachments.Enabled = False
                
                Me!Mileage.Enabled = False
                
                Me!PriceCD_IDFK.Enabled = False
                Me!NumberofCDs.Enabled = False
                
                Me!Notes.Enabled = True
                
                MsgBox ("Data Saved!  Now get back to Work!")
    
            End Select
        End If
                    
                    
        If Me!TransactionType = "CD Burning" Then
            Select Case True
                    
                Case IsNull(Me.LogDate)
                MsgBox "Please enter a Date."
                Me.LogDate.SetFocus
                    
                Case IsNull(Me.EmployeeIDFK)
                MsgBox "Please select an Employee."
                Me.EmployeeIDFK.SetFocus
                    
                Case IsNull(Me.CustomerIDFK)
                MsgBox "Please select an Job Number - Customer."
                Me.CustomerIDFK.SetFocus
                
                Case IsNull(Me.PriceCD_IDFK)
                MsgBox "Please select the type of CD Copy."
                Me.PriceCD_IDFK.SetFocus
                
                Case IsNull(Me.NumberofCDs)
                MsgBox "Please type the number of copies."
                Me.NumberofCDs.SetFocus
            
            Case Else
                
                Me!LogDate.Enabled = False
                Me!EmployeeIDFK.Enabled = False
                Me!CustomerIDFK.Enabled = False
                
                Me!NumberOfSheets.Enabled = False
                Me!NumberOfSets.Enabled = False
                
                Me!SheetSizeIDFK.Enabled = False
                Me!PaperTypeIDFK.Enabled = False
                Me!InkIDFK.Enabled = False
                Me!BindingIDFK.Enabled = False
                Me!MountingIDFK.Enabled = False
                
                Me!Courier.Enabled = False
                Me!CourierFee.Enabled = False
                Me!Attachments.Enabled = False
                
                Me!Mileage.Enabled = False
                
                Me!PriceCD_IDFK.Enabled = False
                Me!NumberofCDs.Enabled = False
                
                Me!Notes.Enabled = True
                
                MsgBox ("Data Saved!  Now get back to Work!")
    
            End Select
        End If
    Else
        MsgBox ("No Data has been added. Record Not saved!")
        
    End If
    
    DoCmd.GoToRecord , , acNewRec
    'Unlock TransactionType after a new record starts
    Me.TransactionType.Enabled = True
    
End Sub
    Reply With Quote Reply With Quote
  4. 02-05-2015, 01:37 PM #4
    June7's Avatar
    June7
    June7 is online now VIP
    Windows 7 64bit Access 2010 32bit
    Join Date
    May 2011
    Location
    The Great Land
    Posts
    53,624
    The code will try to go to new record even if the current record is not complete. Should only go to new record if the current record is acceptable and saved.

    Maybe explicitly save current record before moving to new record.

    Consider using ElseIf or Select Case for the TransactionType conditionals, unless you want the user do get multiple popups and the focus jumping around if they have not completed several required fields.
    How to attach file: http://www.accessforums.net/showthread.php?t=70301 To provide db: copy, remove confidential data, run compact & repair, zip w/Windows Compression.
    Reply With Quote Reply With Quote
  5. 02-05-2015, 02:41 PM #5
    rpeare
    rpeare is offline VIP
    Windows XP Access 2003
    Join Date
    Jul 2011
    Posts
    5,442
    Another reason not to use bound forms!
    Reply With Quote Reply With Quote
  6. 02-05-2015, 05:58 PM #6
    Missinglinq's Avatar
    Missinglinq
    Missinglinq is offline VIP
    Windows 7 64bit Access 2007
    Join Date
    May 2012
    Location
    Richmond (Virginia, not North Yorkshire!)
    Posts
    3,018
    Error 2105, in response to the code

    DoCmd.GoToRecord , , acNewRec

    where the code is located in an OnClick event, generally means that the Form is Read-Only. I think that's the only thing that going on, here, and certainly the first thing that needs to be investigated.

    Linq ;0)>
    Reply With Quote Reply With Quote
  7. 02-05-2015, 11:56 PM #7
    santinimatias
    santinimatias is offline Novice
    Windows 7 32bit Access 2013
    Join Date
    Nov 2013
    Posts
    13
    Quote Originally Posted by Missinglinq View Post
    Error 2105, in response to the code

    DoCmd.GoToRecord , , acNewRec

    where the code is located in an OnClick event, generally means that the Form is Read-Only. I think that's the only thing that going on, here, and certainly the first thing that needs to be investigated.

    Linq ;0)>

    You got it! Now it works. Now I will take a second look at the code for something cleaner. I agree that using Case might work better.

    Thanks for your help!
    Reply With Quote Reply With Quote
Please reply to this thread with any new information or opinions.
« Previous Thread | Next Thread »

Similar Threads

  1. Creating a command button on a form containing a drop down lists of commands
    By Demerit in forum Forms
    Replies: 1
    Last Post: 11-30-2013, 03:43 AM
  2. SQL Commands in VBA
    By chris.williams in forum Programming
    Replies: 4
    Last Post: 12-20-2012, 10:33 PM
  3. Help with SQL INSERT commands
    By chris.williams in forum Programming
    Replies: 6
    Last Post: 09-04-2012, 06:14 PM
  4. clarification with transfer commands
    By mike02 in forum Access
    Replies: 7
    Last Post: 08-08-2012, 09:37 AM
  5. Button Commands
    By JayX in forum Access
    Replies: 13
    Last Post: 12-09-2011, 05:37 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Forum Rules

Other Forums: Microsoft Office Forums