Topics Search

Select All Forms In VBA

Select All Forms In VBA
Views: 13
Please can someone tell me if there is a way to select all open forms in Access in the same thinking that Screen.ActiveForm selects the active form.

I want to run code to change the format of all open forms dynamically
Sponsored Links:

Similar posts...

 

on close event select listbox x item data. how?

on close event select listbox x item data. how? Icon
I would like to have a form close and on the form that remains open select a row in a list box. not really bothered which row(as there is only 1). I thought it would be something like this

on click event
select [forms]![frmClientSalePaymentScreen]![lstToPay]![ItemData]

I dont really have a clue about vba but im trying
 

What causes Inconsistent Behavior of VBA Global Variable?

What causes Inconsistent Behavior of VBA Global Variable? Icon
I declare these global variables:
1) Option Compare Database
2) Option Explicit
3) Public strLOC As String
4) Public strCode As String
5) Public strJCodeKey As String

Load them with this code:
1) Private Sub RadfordMatch_Click()
2) strCode = [Forms]![View RHI Job Pricing Master]![Job Code]
3) strLOC = [Forms]![View RHI Job Pricing Master]![LOC]
4) MsgBox "You will now be selecting matches for this position: " & strCode & " - " & strLOC, vbOKCancel
5) DoCmd.OpenForm "select Radford Jobs", acNormal, , , acFormEdit, acWindowNormal
6) End Sub

And then when a "select" flag is toggled on the following form the fields get copied to the form:
1) Sub Select_Flag_Click()
2) Dim strFlag
3) strFlag = [Forms]![select Radford Jobs]![Select]
4) If strFlag = -1 Then
5) [Forms]![select Radford Jobs]![RHI Job] = [Form_View RHI Job Pricing Master].strCode
6) [Forms]![select Radford Jobs]![LOC] = [Form_View RHI Job Pricing Master].strLOC
7) Else
8) [Forms]![select Radford Jobs]![RHI Job] = ""
9) [Forms]![select Radford Jobs]![LOC] = ""
10) End If
11) End Sub
 

Renaming a Form Stopped my VBA from Executing

Renaming a Form Stopped my VBA from Executing Icon
Recently, I renamed my forms and my tables to have numbers in front of them (mostly to establish a temporal order in my forms). I had a code which worked when the form names didn't have numbers in front of them.

However, upon adding numbers to the form names (and trying to update the VBA respectively), the VBA no longer executes.

[CODE]

Run-time error '2450'

Microsoft Office Access can't find the form '13-frm_Transportation' referred to in a macro expression or Visual Basic code.

I've been running into this type of problem with of my forms -- VBA code which previously worked, but referred to other forms in some manner (include opening said forms), no longerwork when numbers are added into the form names!

I've got to ask: does Access not like people to put numbers in their forms? What is the correct syntax for referencing to forms in this manner?
 

SELECT in VBA Access (small db)

SELECT in VBA Access (small db) Icon
I want to invoke a small SQL statement to select datums from a table and pass that onto a string variable. Note I don't mean to dump the entire table into VBA but just 1x1 field, one at a time of course.

I have trouble finding how to use SELECT statements within VBA in a simple context as mine surley is. The fact is, the table contains the names of every checkbox in a form, I want VBA to get those names from the table, see if they = TRUE, and then APPEND to a new table (which, thankfully docmd.runSQL works for). It just seems much cleaner than having to pour in sixty control names into the VBA code.

I've heard about using querydefs but they seem way outside the scope of my application, which is small
 

VBA coding for forms and command buttons

VBA coding for forms and command buttons Icon
I am completely uneducated when it comes to access and VBA programming. I do have some programming knowledge but that is limited to the classes that they have taught us in engineering school.

I am also looking for some clear and concise resources that I can look at for reference.

I have an initial start up page where someone in any division can go and select their division from a combo box. What I want them then to be able to do is click one of the forms (New Entry,Edit Entry,.).

For the form New entry I am looking to open the form with the division name to filled into a text box. I also would like to have that box that box also correspond to a field in a the table for a new entry.
 

Where does VBA comes in

Where does VBA comes in Icon
I have made a couple of databases and tried to apply the 1st, 2nd and 3rd Norm as much as possible.
So starting off with the business concept, making tables, queries, relationships, entry forms, overview forms, reports and the like, I always struggled where and when to use VBA. I seldom use any macro's.
 

Access crashes when editing VBA

Access crashes when editing VBA Icon
I can start Access and VBA module without problems.
But when I edit VBA (first keystroke) Access VBA plugin freezes and crashes.

Problem is on all databases using VBA
If I log on as a other user, problem isn't there.
I use Win7 64bit, Access 2010 32bit
I use .mdb format only
I've tried access.exe mydatabase.mdb /decompile

I would log on as other user, rename c:\users\myprofile and thus force it to create a new profile for me. But Windows 7 just creates a temporary profile as it can't find the old one.
I would prefer not to delete my profile through control panel, as I would like to be able to undo the change

EDIT: Actually, this might not be an VBA issue - I found out that I have no problems editing VBA code that has no forms (GUI), so the problem just might be regarding Forms and not VBA
 

Clicking a button via VBA

Clicking a button via VBA Icon
I am trying to (using VBA), open a form, populate a combo box, and then clicka button on the newly opened form.

I have tried the following:

DoCmd.OpenForm "frm01_Services"

Forms.frm01_Services.cmbServer.Value = Me!Server
Forms.frm01_Services.cmdGetServicesData.SetFocus
Forms!frm01_Services.cmbserver_Click | -----Error

Line # 3 bombs - is there a function in access that allows me to do this?
 

Function Select Sum

Function Select Sum Icon
I have:

1) Table1 containing fields: ID, Name, Wage, WorkingHours, Date,
2) Form1 containing: txtDate, txtCO

I must create a Function that Sum the Wage from last 5 days.

Exp1 = DSUM([Wage],[Table1],Where Date <[Forms]![Form1]![txtDate]-5)

But I must do it in SQL (VBA).

I can't undesternd how to VBA.

Function WA(CO) As Integer
Dim db As DAO.Database Dim rs As DAO.Recordset
Dim strSQL As String Set db = CurrentDb
If CO>0 Then
strSQL = "SELECT Sum(Wage) AS [SumOfWage] FROM [Table1] WHERE Date < Forms![Form1]![txtData]-5
Set rs = db.OpenRecordset(strSQL)
WA= rsTot("SumOfWage")
rs.Close db.Close Set db = Nothing
Else
 

Corrupt VBA code

Corrupt VBA code Icon
I am using Access 2007. When I try to open my accdb I get a "The database cannot be opened because the VBA project contained cannot be read. The database can be opened only if the VBA project is first deleted.

Deleting the VBA project removes code from modules, forms and reports. You should back up your database before attempting to open the database and delete theVBA project." message.

- I can't use the backup feature (I get the same error message)
- I can't compact and repair (I get the same error message)
- I can't move the forms into a new db (I get the same error message)
- I can't decompile (I get the same error message)
- when I save the forms as text - I get empty text files
- I can't open vba window (I get the same error message)