I'm trying to have a cell display the information from which ever cell the cursors is on.
I am trying to use (Master Info / Child info) for a subform but would like the Master cell link to where ever the cursor is.
Is this even possible?
I have a requirement that will need three cascading combo boxes - the second box should only display the contents that match or are relevant to the first combo box, etc.The title of the YouTube video is:
Microsoft Access pt 9 (Cascade Combo Box)
It seems the first and second combo boxes cascade and works fine. However, the third combo box remains blank after the second combobox selection has been made.
I have three tables: Customer, CustomerSubOrg, and PORs. I have setup lookup fields that are using Primary keys for two of the tables (CustomerSubOrg and PORs). However, I ensured that the primary key fields display as the "Names" of each instead of the numbers. I also ensured I went back and changed their data type to "Text" instead of "Number" so the text appears (which seems to have worked for box #2).
How to get the third combobox to display its contents? I've attached some additional screen shots below. I know the problem is within the second combobox -- perhaps the query needs some adjustment?Unfortunately I cannot attach images yet since I am now. But I basically created two queries and used them each for the second and third combobox.The comboboxes on the form:
Customer
Sub Organization
POR
The Suborg query looks like this:
Table: CustomerSubOrg
First Column:
From field SubOrg
From table CustomerSubOrg
Second Column:
From field CustomerID
From table CustomerSubOrg
Criteria [Forms]![frmMain]![cboCustomer]
The POR query looks like this:
Table: PORs
First Column:
From field PORName
From table PORs
Second Column:
From field SubOrgID
From table PORs
Criteria: [Forms]![frmMain]![cboSubOrganization]
Why wont the contents from the third combobox appear?
I am trying to insert a new line below the active cell ive tried several attempts but i am getting error 1004. Some attempts are commented out.
Code:
wks6.Activate
With wks6
.Select
' .Rows.AutoFit
' .Columns.AutoFit
.Range("A:AO").Select
[Code] .....
I would like to only display certain fields on a form depending on a criteria in another cell. For example if some enters 4 in 'Schemes' it would display 4 data entry boxes scheme1, scheme2, scheme3 etc - is it possible?
View 7 Replies View RelatedI would like to open an Excel workbook from MS Access and clear cell contents, or just delete some records in a specific worksheet.
If you open the test workbook, cell contents in RAW need to be deleted by calling from Access.
I have produced some code but it's partially working.
Code:
Sub TestFileOpened()
' Test to see if the file is open.
If IsFileOpen("test.xls") Then
' Display a message stating the file in use.
MsgBox "File already in use!"
[Code] ....
If you put this in a standard module in access, the function works, but the part that doesn't work is where it says "activesheet". It somehow tries to recognize it as a variable, but it's not going to be a variable.
Me.TxtNotAllowed.Visible = True
dtTimer1 = Now
dtTimer2 = Now + TimeValue("00:00:10")
Me.TxtNotAllowed.Value = "You do not have permission to use this database !"
Do Until dtTimer1 >= dtTimer2
dtTimer1 = Now()
Loop
Me.TxtNotAllowed.Value = ""
DoCmd.Quit
The above code will run definitely for the 10 seconds however the textbox and contents do not display HOWEVER if stepped through with breakpoints line by line and the form checked each time the textbox DOES display and its contents.
In access, I need a way to display a list with folder contents, for example...
Folder1
subfolder1
file1
file2
subfolder2
file1
Folder2
subfolder1
etc
I have a form and there is a command button on it. I want the code that will run when that commandbutton is pressed and it should check the first sheet "Sheet1" in all the workbooks in the folder C:FolderTemp.
And if the first sheet name is not "sheet1" then just ignore that workbook and move to next workbooks. If the first sheet name is "Sheet1" in a workbook then display the value present in cell B1 in a message box.
So if there are 5 workbooks in the folder C:FolderTemp and two of them hasn't got first sheet named "Sheet1" then display value of B1 in rest of the 3 sheets in a message box one by one.
:confused: :confused: :confused:
Hello, I am new here to the forum.
I have a list box on a form that i want to display a list from a single cell or a table in my access database. The list in this cell is a list seperated by commas such as.....
Field 1 Field 2
example a, b, c, d
I want my listbox to display the list from the first cell in field 2.
Anybody have any ideas?
Thanks,
Kevin :)
PS I know something similar can be done in visual basic. For example, a simple program can be written to take a list (seperated by commas (,) ) and then display this list in a listbox on the form. Is there a way that the simple code such as that can be altered to work in access?
Hello, I have a problem with my database and need some help.
My database has a main menu named MENU which allows to access all the different forms of the program I am trying to develop. One of these forms is named MASTER and has its source to the main table of my db also named MASTER. To open the form and add a new recorset I simple press a button to which I have associate the following simple code:
DoCmd.OpenForm ("Master")
DoCmd.GoToRecord , , acNewRec
Once in the form and add the data I have to close it so that it can be saved. I then go back to the MENU form and use a listbox to open the selected record. The listbox its based on a query of table MASTER and has a criteria (SSN) that allows me to open the record with the double click event.
My problem is that I need to append my data into different tables and do not know a method which would allow me to do this without having first to close the active form (MASTER) and then running the append queries. Is there a way this can be done?
What I am trying to do is:
- Write my data into the active form
- Append my data from the active form into different other tables without having to close the form
- Still have my active form opened in my database so that I can open another form (CHILD).
Please note that after that I have closed the form, I am currently using this code to append the Master Table to the other tables:
If Not IsNull(DLookup("[SSN]", "child", "[SSN] = '" & Me!SSN & "'")) Then
Forms("MENU").Visible = False
Else
If IsNull(DLookup("[SSN]", "child", "[SSN] = '" & Me!SSN & "'")) Then
DoCmd.OpenQuery ("AppendChild")
End If
End If
DoCmd.OpenForm ("Child")
This avoids having to save twice the same data.
Can anyone help me on this?
Thanks.
I have a form with 20 identical subforms.
Is it possible to retrieve the tabindex from the active subform in the main form by using VBA?
Field "A" is the drop list to select data like (Yes, No)
Field "B" is inactive but turn it to active when the field "A" is select to "Yes".
I have a database with a filter on the form which users can apply I know at the bottom of the form it highlights it as filtered but I want something a bit more prominent displayed on the form when a filter is active.
View 5 Replies View RelatedI have few forms for which I have created a navigation form. Now in this navigation form, I have 4 tabs/ forms. I want to disable other 3 tabs/ forms when either of the one is active. I want to restrict user from switching the tab leaving the task incomplete in one tab.
It should show a popup msg, that "the task is active. Please submit before leaving the page."
(Access 2013). I deleted an old text box cell on a form and then I created a Combo Box from the design controls and it worked, but underneath it, the old label of the text box is still there, except now it's just described in the properties as an 'empty cell'. It still has the old text description showing on the form, but there is no caption field in the F4 properties.
I've tried everything I can think of to get rid of it, including closing the database and running a repair, but nothing works. I can select it, but I can't delete it or move it and I can't click into it to create a new label, hovering over it just produces the 'selected' cross hairs.
I have a database (small one which i designed)
I have created all the tables.
I then have a "form" called July-14 (i need to figure out how i can automatically replicate this form for new months)
Anyway, one of the cells pulls out a product name (using the lookup wizard), i then have a cost cell which i would like to populate automatically based on the product name.
The table July-14 links to a product table which has ONLY those 2 attributes in there, the name and cost.
How do i get it to pull the cost automatically.
I have a form where the user clicks a button (button 1) to open a modal form, the user then enters data into this form and clicks close.
Then back in the first form I need to find which control had focus before (button 1) was clicked.
Screen.PreviousControl returns a control on the modal form.
I hope its easy like Forms!FirstForm.PreviousControl but I can't seem to find it!
I have created a form to select multiple records for a transmittal report. I added a button to the form which I would like to open the report to view the current record. In the On Click event I added the following code:
Private Sub cmdPrint_Click()
Dim strWhere As String
If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If
If Me.NewRecord Then 'Check there is a record to print
MsgBox "Select a record to print"
Else
strWhere = "[TransmittalID] = """ & Me.[TBLTransmittal.TransmittalID] & """"
DoCmd.OpenReport "RPTDwgTransmittal", acViewPreview, , strWhere
End If
End Sub
The debugger keeps highlighting the row above shown in red. I've used this same code before on other forms and it worked but not sure why it isn't working this time. The only difference with this form and previous ones is that this form contains a multiple values combo checkbox (hope that's the correct term). The query that the report is based on changed the names of the field names so that TransmittalID on the form is TBLTransmittal.TransmittalID in the query.
I've tried the code with and without the extended name but each time the "Do.Cmd..." is highlighted.
I have defined a recordsource based on a predefined query. Now I intend to use the SQL statement which works to produce other recordsources based on other queries. More concretely here is my code as of now:
Code:
Dim J1 As Long
Dim SQLRecordSource As String
J1 = Forms(ParName).MemID
SQLRecordSource = "SELECT DISTINCTROW [MembersTbl].* FROM [MembersTbl]" & _
"INNER JOIN [ActiveMembersQy] ON " & _
"[MembersTbl].[MemID] = [ActiveMembersQy].[MemID] " & _
" WHERE [ActiveMembersQy].[MemID] = " & J1 & ";"
In the future instead of writing it like this:
Code:
Select Case QryName
Case "NonMembersQy"
SQLRecordSource = "SELECT DISTINCTROW [MembersTbl].* FROM [MembersTbl]" & _
"INNER JOIN [NonMembersQy] ON " & _
"[MembersTbl].[MemID] = [NonMembersQy].[MemID] " & _
" WHERE [NonMembersQy].[MemID] = " & J1 & ";"
[Code] ....
I wish to write it like this (which does not work):
Code:
SQLRecordSource = "SELECT DISTINCTROW MembersTbl.* FROM MembersTbl" & _
"INNER JOIN QryName ON " & _
"MembersTbl.[MemID] = QryName.[MemID] " & _
" WHERE QryName.[MemID] = " & J1 & ";"
Is this possible ie put the name of the variable that holds the name of the query in quotes or sometimes put the name of the query instead of the contents of the name. If there is a contents function for variables in VBA that can be used by I doubt whether it exists.
I have five list boxes set to a table in my database. Here is what a few rows in my table look like...
ID IngredientName IngredientType Cost
1 Ham Meat $1.23
2 Beef Meat $3.45
...... ....
27 Lettuce Vegetable $0.22
28 Onion Vegetable $0.12
..... ....
38 Mayonaise Sauce $0.13
The five listbox controls each show the list by the IngredientType, so one listbox shows vegetables, another Meat, and so on. Multi-select is turned on for each listbox. Here is what I want to do: In the form I want to have a subform that will show what the user clicks in listboxes. This running list, with an extra column next to it that will accept a number. Example: say the user selects 'Ham' from the meat listbox. The subform should then show 'Ham' and a space next to it where he can type an integer (allowing for more meat).
Subform:
Ham | 2
Lettuce | 1
Mayo | 1
Subroll | 1
If the user de-selects the item in the listbox I'd like the subform to delete the item from itself.
I have a form to input info into a table how can I combine 2 txtboxes to one column separated by ", "
Example:
textboxes:
txtboxFirstName txtboxLastName
output:
Last, First
into the "Name" Field in my table
In a form is there a way to change sort order based on which field is active?
I'm using a Split Form which gives me the ability to sort by clicking on the header name ans selecting sort. This slowing things done since my workload is heavy.
I have a drop down box where I select a Retailer. When this choice is made I want the last invoice entry to appear in a text box. I have attempted this by creating a query which contains the top 1 invoice in descending order. My dropdown box Event updates a hidden List box using List677. Requery and List677 has a SELECT statement in Row Source
So far so good this bit works
I want to use this value as a default in a Textbox. I thought I could use the same trick to populate the Textbox as I did the Listbox so i tried Text232. Requery after the List677. Requery in the Event above. But no it does not update. The only time the textbox updates is if the Listbox is in Focus and as I said this List box is Hidden. How can I get the textbox to change in real time... I would use the Listbox but i need to be able to change the value of the contents to run reports, I just want a default value.
textBox Default Value: =[List677]
textBox Control Source: =[List677]
List677 Row Source: SELECT LastInvoice.Invoice FROM LastInvoice;
I have a combo box containing "ProgramType". If "DDI" is selected from this combo box, I would like it to open up another combo box containing the contents from "tblDDI". Then I would like the selection to be transferred to "ProgramType". Is this possible?
View 5 Replies View RelatedI got a problem about form designing. i need to disable my Close Command button while my subform Price cell is null and enable the Delete button.
And while delete button is pressed the delete action occurred and close button enabled.
I seem to be having an issue with a split form I've been working on. I created this split form on Monday and it was working just fine but today, I have added a couple minor text boxes. Since then, I can view the form contents in Design View but when I switch to "Form View" or "Layout View", it's all gone minus the logo in the top left corner and the title for the split form.
View 12 Replies View Related