Recent content by punky001

I am in the process of testing our Access 2007 databases for compatiblity with Access 2010. So far - all seems to be working well. All users are using Access 2007 until testing is complete EXCEPT for 1 user who is using 2010 (yes - there is always one!) FYI....I have a SQL backend - using...

Thanks AceMan1!!! It works like a charm.....you got a star!

I have a user that forgets and uses the ctrl minus sign (-) on an Access 2007 form which deletes a record - which he doesn't want to do. He uses this in Excel 2007 and it zooms out. Is there any way I can deactivate the Ctrl minus sign in Access?

Sorry AceMan1 and MazeWorZ.....stars are there now. Again thanks so much.

Finally!! Works Great!.....thanks to all ...especially to TheAceMan1 and MazeWorX.....stars to Both!!

OK....Here's what supposed to happen....and the legacy code worked great (look at first post) until I added the new Loc_cls field which defines the location. Private Sub form_AfterInsert() is supposed to call for the Update Qty_tot module - this will update the Toolcls_May.Qty_tot and Qty_OL...

Thanks PHV - I made that change and got the same error. The loc_cls field is located on the subform: Toolcls_May.loc_cls

OK Guys....Here's the changes I made...In the module - I changed the ploc_cls to match the field loc_cls in the event procedure. I still get the same error "Can't find the field 'Loc_Cls' referred to in your expression" pointing to the Call Update line. Module: Option Compare Database...

Module Code: Option Compare Database Option Explicit Public Sub UpdateQty_TOT(pType As String, pBarcode As String, pQty As Integer, pLoc_cls As String) Dim db As DAO.Database, sqlTable As String, sqlExpr As String, sqlWhere As String Set db = CurrentDb sqlTable = Choose(Val(pLoc_cls), "Update...

I tried adding Call and got the following compile error "Expected: end of statement" with the "I" highlighted.

Thanks to all for replies....Aceman - I tried yours first. Here's the new code: Public Sub UpdateQty_TOT(pType As String, pBarcode As String, pQty As Integer, pLoc_cls As String) Dim db As DAO.Database, sqlTable As String, sqlExpr As String, sqlWhere As String Set db = CurrentDb sqlTable =...

I made a change to a database I inherited and I'm having a problem getting it to work. I thought it was simple? Listed below is the originial code and it works without issue. All I need to do is add a location field (Loc_cls) to the selection. It does not work. Does any one see anything...

Thanks to ALL.....I made changes and it works great - PLUS - I learned something new. You guys are the best! Stars to all!

I've made the suggested changes and have attached a new copy of the code....I'm still getting the "Compile error - Method or Data member not found" - poining to :me.DESC1. Private Sub cmbBarCode_AfterUpdate() Dim dbs As DAO.Database Dim rst As DAO.Recordset Dim strSQL, DESC1, strMsg As String...

I changed the field to Desc1 in SQL table - linked back to Access - changed all queries / forms to reflect Desc1 and got the following error. "Compile error - Method or Data member not found" pointing to: me.DESC! = rst!Desc1. When I responded OK - pointed to "Private Sub...