[Last Call] Learn about multicloud storage options and how to improve your company's cloud strategy. Register Now

x
?
Solved

Access 2007 Option button to update linked tbl

Posted on 2009-05-06
3
Medium Priority
?
712 Views
Last Modified: 2013-11-27
On a split form, I am trying to use an option button to see if the user wants to check in or check out a file... Based on selection I want to update fields on an existing record on a linked table.  I want to commit the updates when the user selects the 'Save' button not when they click the option button:


Can this be accomplished with a CASE statement?  What would you suggest?
Thanks!
Private Sub Save_UpdateFileInformationtbl_Click()
   Dim rs As dao.Recordset
   Dim MyDate
   MyDate = Now()
Set rs = CurrentDb.OpenRecordset("dbo_TableName", dbOpenDynaset, dbSeeChanges)
With rs
     .AddNew
-- if option 1 selected update these fields
     !UserName = Me.CurrentUserName
     !CheckOutStatus = Me.CheckOutStatus
     !CheckedInBy = Me.CurrentUserName
     !CheckInDate = MyDate
    !LastUpdatedBy = Me.CurrentUserName
     !LastUpdatedDate = MyDate
--  if option 2 selected update these fields
     !UserName = Me.CurrentUserName
     !CheckedOutBy = Me.CurrentUserName
     !CheckOutDate = MyDate
     !LastUpdatedBy = Me.CurrentUserName
     !LastUpdatedDate = MyDate
     .Update
End With
rs.Close
End Sub

Open in new window

0
Comment
Question by:stang1
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
3 Comments
 
LVL 85
ID: 24320208
Unless you have code running in the Change or AfterUpdate event of the Option group, Access shouldn't be saving anything - unless, of course,  you're working with a bound form. The code above should only run if your user clicks the button.

However, I may not correctly understand what you're talking about here ...
0
 

Author Comment

by:stang1
ID: 24328673
LSMConsulting,
      Sorry, I'm a new user of both Access and VBA, as you probably noticed...  Please let me try again.
I'm attempting to update 7 columns(none of which are key fields) on an existing record on a linked table.  Since I posted my question I tried to establish a local variable to assign the option button selected by the user, and based on the selection, update the appropriate rows.  I think I'm close, but no data is updated based on attached code...  Do you see anything missing?
Option Compare Database
 
Public gbl_in_option As Boolean
Public gbl_out_option As Boolean
Option Explicit
   
Private Sub Option28_AfterUpdate()
  If Option28.Value = True Then
     gbl_in_option = True
   End If
End Sub
 
Private Sub Option31_AfterUpdate()
  If Option31.Value = True Then
     gbl_in_option = True
   End If
End Sub
 
Private Sub Save_UpdateFileInformationtbl_Click()
 
   Dim rs As dao.Recordset
   Dim MyDate
   MyDate = Now()
Set rs = CurrentDb.OpenRecordset("dbo_FileInformation", dbOpenDynaset, dbSeeChanges)
 
With rs
   If gbl_in_option = True Then
     .AddNew
     !UserName = Me.CurrentUserName
     !FileStatusID = 4
     !CheckOutStatus = Me.CheckOutStatus
     !CheckedInBy = Me.CurrentUserName
     !CheckInDate = MyDate
     !LastUpdatedBy = Me.CurrentUserName
     !LastUpdatedDate = MyDate
     .Update
   End If
   
   If gbl_out_option = True Then
     .AddNew
     !UserName = Me.CurrentUserName
     !FileStatusID = 5
     !CheckOutStatus = Me.CheckOutStatus
     !CheckedOutBy = Me.CurrentUserName
     !CheckOutDate = MyDate
     !LastUpdatedBy = Me.CurrentUserName
     !LastUpdatedDate = MyDate
     .Update
  
End With
rs.Close
End Sub

Open in new window

0
 

Accepted Solution

by:
stang1 earned 0 total points
ID: 24335694
ping.
0

Featured Post

Get free NFR key for Veeam Availability Suite 9.5

Veeam is happy to provide a free NFR license (1 year, 2 sockets) to all certified IT Pros. The license allows for the non-production use of Veeam Availability Suite v9.5 in your home lab, without any feature limitations. It works for both VMware and Hyper-V environments

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Preparing an email is something we should all take special care with – especially when the email is for somebody you may not know very well. The pressures of everyday working life stacked with a hectic office environment can make this a real challen…
Access custom database properties are useful for storing miscellaneous bits of information in a format that persists through database closing and reopening.  This article shows how to create and use them.
In Microsoft Access, learn the trick to repeating sub-report headings at the top of each page. The problem with sub-reports and headings: Add a dummy group to the sub report using the expression =1: Set the “Repeat Section” property of the dummy…
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

656 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question