Modules & VBA :: Can Simulate A New Record Table-level Event?
Jun 12, 2013
I have a list box that displays the contents of a back-end table that is has a new record added roughly 45 times per hour. I'd like the listbox to refresh automatically when a new record is added and, ultimately, notify the user that the new record is there. Are there any non-form events I can use to accomplish this? Right now, my workaround is to refresh the box once a minute using the form's timer. It works fine, but it's not pretty. Ideally, I could create some sort of event based on the new record being saved in the table.
I have a front end and a back end access files.My user save the back end on a shared network folder like:a.b.comfolderName$..I wish to simulate this path in my local pc in order to set the linked table links.My problem is that I can not modify my pc name to be "a.b.com".How can I simulate this in my windows 7 pc ..so I can set the linked table values to "a.b.comfolderName$" ?
I have a form set to the table Client Information with a subform set to the table Event Information. Client Information has a one to many relationship to Event Information.
There is a button that deletes the current record in Client Information--also deleting the related records in Event Information--then closes the form. The code works fine but a blank record in Event Information is apparently being created before the form closes.
Here's the VBA that I'm using:
Private Sub CmdDelReturn_Click() Dim CmdDelReturnMsg As String CmdDelReturnMsg = MsgBox("Delete event & client then return to front?", vbYesNo + vbDefaultButton1, "Delete and Return?")
[Code] ....
It's not a big deal because the button won't be used often and I can manually go into the table to delete the blank record. But if there's a simple solution to prevent this that would be nice.
I have a form with a subform. In the form's On Current event I have the subform's visible property set to false. There is a button that when clicked sets the subform's visible property to true. I want the subform to go to the first control in a new record which is a combo box. the subform is a multiple items form. I have tried the GoToControl in the subforms OnCurrent event, but it is not working. I get an error saying the database cant find a third form.
I have a database which is slowly evolving. Users needed a feature to delete some records without a trail and some with a trail from the form. So I added an apply action field in the subform using which they can delete a record without a trail and if they wanted to keep a trail they could do that too. When user selects "Delete Violations as it was entered in error" the system deletes the record completely which is what everyone wanted.
After six months of use now I am asked to add an audit trail. I managed to do that also. I also looked at Browne's method but my data structure does not match the requirements for that method. I used an alternate method. It works as intended except when a record is completely deleted using the code I mentioned above. Then it goes in the infinite loop. I somehow need to bypass the before update event so that the function to write the audit trail is not called.
I've got a subform that im writing code for, once a user enters a value in one of the fields i want to make sure they cant change that field (and two other fields in that same record, though the rest of the fields are fine to edit at will)
I've got a function already written to validate the data in the record and decide whether or not the fields are enabled and disabled, however im having trouble finding an event in which to activate the function
Is there an event that triggers whenever a user selects a different record?
Any chart or list with all the handlers and how they trigger (in relation to each other) and when?
Private Sub PrimaryDisability_Change() Select Case Me.PrimaryDisability Case "Other (Specify)" PrimaryOther.Visible = True Case Else
[Code] ....
My problem is that when I go to a new record, the fields that I want hidden in the new record unless they meet the criteria are still visible. I have looked all over online and in books to determine the code I use or whatever I need to do to make the field invisible in the new record and only to appear in each record if it meets the criteria.
Then I have records in each table with fields ,Name and Status(Done and Done_s)
I want records having "Done_s" to be moved to b whenever the change has occurred. Is this possible?(I have tried somethings with Macros but didn't work)...
I have some code for a button on click event to open a form and select the record which corresponds to a value in an unbound text box. The code is:
Private Sub Command25_Click() On Error GoTo Err_Command25_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "frmOpenPatientRecord"
[Code] ....
This works fine when I put in a 10 digit NHS number but opens a blank record when I enter a four digit or six character/digit PatientNumber. Both patient number and NHS number are text fields in the underlying table.
I would like to clarify the concept of record-level locking Say I have a TBLA which consists of two fields TBLA_FLD1 & TBLA_FLD2...TBLB which consists of three fields TBLB_FLD1 & TBLB_FLD2 & TBLB_FLD3
Now two users have declared the usage of the database as shared and pessimistic...I have generated a query in addition to TBLA & TBLB which is QryCombined which basically just a join of the two and consists of all five fields...If user1 has brought in a record query from QryCombined and edits on TBLA_FLD1 & TBLB_FLD3...At the same time user2 is trying to bring in as well QryCombined but with TBLA_FLD2 & TBLB_FLD1 and trying to edit both, will user2 be blocked by user1 who's editing the other fields
For all I know, the locking is based on record-level locking so I would suppose one record of QryCombined will comprise of all five fields so editing in any of them should actually block another user from editing. However I am not sure whether it is just a subset of the record that is the contesting area because user1 recordset has only two fields out of five, which do not happen to intercept the other fields that user2 is working on.
We are currently developing a simple Point Of Sale Form which consists of 2 text boxes and a list box.We need to trap numeric input from either the keyboard or a barcode scanner at form level,then setfocus on a textbox and enter the input into the textbox.So far have used the keydown event on the form to trap numeric input and setfocus using the following code.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode >= 48 And KeyCode <= 57 And KeyCode >= 96 And KeyCode <= 105 Then Me.Input.SetFocus End If End Sub
This does not however enter the keyboard or scanner input into the textbox.Is there a method to trap the input,set the focus and enter the input into the textbox once it has recieved the focus.
User Security Levels and what users with those levels should be able to edit: 1. Admin - No tab restrictions 2. Test Bay - TabUnitInformation, TabLabelChecklist, TabTestBay 3. Returns - TabUnitInformation, TabReturns, TabDemoStock 4. Label - TabUnitInformation, TabLabelChecklist 5. Sales - TabUnitInformation, TabUnitHistory, TabDemoStock 6. User - TabUnitInformation 7. Technical - TabUnitInformation, TabUnitHistory
The code I have written ( which works for whichever tab control I list, but not sure how to write in more than one):
Private Sub Form_Load() Dim Security As Integer Me.TxtUserLogin = Environ("USERNAME") If IsNull(DLookup("UserSecurity", "TblEmployees", "[UserLogin] = '" & Me.TxtUserLogin & "'")) Then MsgBox "No UserSecurity set up for this user. Please contact Administrator", vbOKOnly, "LoginInfo"
I am trying to check for certain user levels then if criteria is met it will ask to continue then clear a table..
Code:
Private Sub Command9_Click() If strSecLvl = dev Or admin Or sprvsr Then If MsgBox("Do you wish to clear the logs?", vbYesNo, "Clear Logs") = vbYes Then DoCmd.SetWarnings False DoCmd.RunSQL "Delete * from tblLogs"
In the Components table I have the following fields: ModelType Component
In the Lot Codes table I have the following fields: Serial Number Model Component LotCode Number
I want to restrict the data in the Lot Code Table so that when a model number is entered the only possible values for the Component field is one where ModelType and Component match in the Component Table.
This sounds confusing. . .basically selecting one item drills down the options for the next.
is there a way at table level.. to set jobtotalfare as jobprice + jobcarpark because at the moment i am simply ensuring that in all the forms.. if the price or carpark is updated.. so is the total fare..
it would be much easier to do this at table level..
Hello to all The problem that I am facing is the following. I am trying to create a form that has the following: 1. A combo box in which you select from a list of users 2. A list box which is populated when I select a user showing me the courses that they have to take 3. Another list box that is populated when I select a course showing me the dates available for that course 4. Finally a third list box which is populated by what I drag or double click on the dates list box basically scheudling the user to his courses.
The first 3 parts of this done what is left to do now is the hard part which is to be able to drag and drop the dates in the other listbox which basically maps that user to that course date and populates the corresponding table. Any suggestions on how to do this would be highly appreciated. Thank you in advance
I know how to use a callback to to action a button click directly.
But I also have a drop down list of my buttons on a form (they are dynamically created, so the details are stored in a table), I want to select a button from my drop down lists and then action the button selected.
EDIT: In short - I want to execute a ribbon button via vba knowing its Control.ID.
I am new to access and I recently encountered a double click issue
My form loads perfectly on double click event but it shows the first record instead of selected record.
My search is based on a PersonID but each PersonID has different WorkID that I wish to display on double click but it always shows the first WorkID instead of my selected record
I have tried changing the filters in the form properties but it still doesn't work for me.
Here's my code:
Private Sub SearchResults_DblClick(Cancel As Integer) DoCmd.OpenForm "WorkForm", , , "[PersonID]=" & Me.[Searchresults], , acNormal End Sub
[Searchresults] draws information from my Query
Query information:
PersonID... WorkID... Type......Location 1234..........1............Paint .....Address A 1234..........2............Electric...Address B 1234..........3............Floor..... Address C
Hi All, I am looking for some help with a project I am working on where I need to automatically print a report from my database every time a new record is added to the table. The table contains 13 fields and the report needs to display 12 of them, the other being the index which is set to Autonumber.
The table is being updated solely by ODBC, this is working OK.
There is the potential for records to be added to the table very quickly via the ODBC link, so I need to safeguard that the report is being populated with correct information from the record that triggered the print event. Also, should multiple records be added in close succession, a report needs to be correctly generated/printed for each of one. The DB is to have no user intervention, and will just run on the PC at startup with all access menus/controls locked out.
Any information on how you think I should structure this, or any examples of helpful code that you might have would be very much appreciated.
In a situation where I imported an excel file with so many columns and split them into two temp tables and they are linked using a key.
the data has a fixed part lets say
Field1....Field2.....Filed3.....Field4...then Field5.....Field6.....Field7....Field8 is the same data range as Field9...Field10...Field11...Field12. I would want to split this data into multiple rows like this
Field 1 Field2 Field3 Field4 Field5 Field6 Field7 Field8 Field 1 Field2 Field3 Field4 Field9 field10 field11 field12 and so own...
I have a form with a sub form. when a record is choosen in a combo box the sub form is filled out with a record.
what I am trying to do is have a button that will copy that record to a history table then delete it off the the main table.
I cheated by using the wizard to get the code to delete the record but I am having troubles modifying the code to copy that record to the history table. Here is the code below. I have tried to insert code in several places but it just errors out.
'------------------------------------------------------------ ' Master_tbl_sub_fm ' '------------------------------------------------------------ Function Master_tbl_sub_fm() On Error GoTo Master_tbl_sub_fm_Err With CodeContextObject On Error Resume Next
I am building a simplified re-order point system - if inventory position drops below a certain level (the yellow level is this case) one or more purchase order lines has to be created in another table.
I have one table with the following field and data:
ItemId Red Yellow Green Multiple Inventory position 0001 10 30 50 5 45 0002 5 40 47 5 23 0003 11 20 30 10 5
I would like to generate new records (in another table) based on the above fields and three records.Basically the end result should look as the following:
The logic is quite simple - if inventory position is less than the yellow value new order lines should be created in multiple qty (based on the multiple field) until the aggregated value (in table 2) is above the green value.The priotization value should be based on the start inv (in tbl 2) compared to the values in red, yellow and green in tbl 1.
I am trying to assign teams to players. I have an import table with all of the players information listed. What I want to do is determine the count of players in a given city. For every 9 players I want to add a new record to the Team table and assign the team number (auto incremented for each team created). Then I want to add the players to the Players table with the Team Number that was created.
Hi, I require to be able to check whether or not a yes/no box has been selected, each time the database is navigated.. ie, next record , previous record.
I cannot find the event in VB to allow me to perform this function. I see AfterUpdte and beforeUpdate events, but sometimes the data is only browsed and not updated.
