Search results

Using recordsets is about the slowest way to do it. I would still use an update query. and call it with code. Just search the queries section and there is TONS of samples you will find as far as syntax of the query...

- I think this might work??? Sub Create() Dim OriginalRS As Recordset Dim DataRS As Recordset Set DataRS = CurrentDb.OpenRecordset("Select * from [Data]") Do While Not DataRS.EOF Set OriginalRS = CurrentDb.OpenRecordset("Select * from Original where OriginalRS!CustCode = " &...

A quick and dirty way would be to write an update query and then call it from code. DoCmd.OpenQuery ("MyUpdateQuery") If you need help with the query post back... Hope that helps...

sorry - I edited the post as to not pass on bad info.... I could have sworn I did that before. Guess not cause I just tried it and it didnt work...

The only way I can see this happening is in using Automation and your not setting the application free. like Dim X as object set x = createObject ("Access.Application.8") and then it crashes at some point so x never gets set to nothing. This would leave access running in the background...

on the change event of your combo box txtbox.txt = ""

You have 2 database's right? So DatabaseA has the macro and databaseB has the tables you want to update/modify? Couple of things to consider - I would create a db with just the tables in it and store that on your Network and then create a front end to distribute with the macro's and code in...

You need to open the recordset and make it editable. its this line: Code: Open "SELECT * FROM TBLPacks WHERE PackRef = " & iPackID, cn, adOpenStatic Needs to be: Open "SELECT * FROM TBLPacks WHERE PackRef = " & iPackID, cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic

The databases have to be closed in that example too... But that is a nice tool for backing data up. Good find :ThumbsUP

Ahh yes - Good eye If PackRef is defined as a string in the table the SQL must hard code in the quotes. Didn't know you could do this. .Open "SELECT * FROM TBLPacks WHERE PackRef = " & iPackID & "'", cn, adOpenStatic I have been doing this .Open "SELECT * FROM TBLPacks WHERE PackRef = "...

Yeah amazing the INFO that is currently stored on this site - A little searching and WAMMMM

The end user is not Access Knowledgeable plus why should they have to hit extra keystrokes to do this. I think I found a solution from a while back - Send Keys (Yarrrr)

Hello all and thanks in advance for any suggestions. My current project seems to be bloating itself rather fast. How do I implement this code to the current DB? Note that this opens a DB exclusively so I am sure it has to be ran while the DB is closed???? Public Function...

If CheckBox.Value = True then If msgbox("The Check Box IS checked",vbYesNo) = 6 then DoCmd.Close acForm, "MyForm", acSaveYes End if End If

Can you post a sample DB??

which line of code is it blowing up on?

You will want to write an append query. And run it with DoCmd.RunSql "MyInsertSQL" If you need help with the actual SQL then This has heaps of info - Start Here

You do not need to use the DoCmd.OpenTable unless you want to see the table. If you want to access the data via code then the recordset is what you want. Now, A recordset Points to data stored in a table. So to access the data you must use a SQL statement. Like "Select * from [Current...

Depends on how u run the querie. This is a pretty Common Method I have seen used to the death.... Dim DB as Database Dim rs as recordset Dim qryText as String Set DB = CurrentDB QryText = "Select * from MyTable" Set RS = DB.OpenRecordset(QryText) If not rs.recordcount = 0 then 'Do What you...

Create module called anything and paste this into it... Public Function MyFunction() Dim cn As Connection Dim vbasuid As String Dim vbpackref As String Dim vbasstate As String Dim vbasdate As String vbasuid = asuid vbpackref = Text6 vbasstate = asstate...