Customer Table - CustID
Product Table - ProdID
CustomerProducts - Contains the CustID and ProdID
I have an "input" form with Customer Name, Address, etc and a subform that allow selecting his/her products.
I want to DISPLAY (only display), in another subform, on this form, (not a report), every customer that has a product in common (even if just one) with the main form customer. Also need it laidout this way:
For example, if Joe Robins has the following products selected: celery, lettuce, tomatoes. The following customers would appear in that subform - because they have ONE or MORE products in common with him:
John Doe (carrots, celery, potatoes)
Mike Smith (carrots, radish, tomatoes)
Code: Branch Officer1 TotalLoans1 Officer2 TotalLoans2 Officer3 TotalLoans3 . . . 1 ABC $5,678,555 DEF $6,678,555 2 GHI $7,678,555 JKL $8,678,555 MNO $9,678,555 There is an indeterminate and ever-changing possible-number-of-Officers per Branch.
If this is not possible using queries, is there a better way than writing code to loop through the recordset to get the desired output?I've done it before where I've written output to text and also to a table using VBA & recordset - but I'd like to know if there is a way I can get Access to do the 'heavy lifting'.
If you have a one - many relationship between data, normally in the table it is captured, you would find multiple rows for every 'thing', each row detailing different 'functions' performed on it.
Is there a way that one can display these functions horizontally, instead of vertically, i.e, have one row per 'thing', instead of multiple rows.
I have only one bound text field in my report. By default, it shows the results (150 records ) vertically. I wish to show them horizontally, 5 in a row. How to do this.
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.
I have a need to display a pivot chart by clicking a button on my menu screen. At the moment my button will just display the query results and if I then click on View/PivotChart View my chart displays.
Code: Private Sub Command316_Click() DoCmd.OpenQuery "R06X - OOS Chart", avViewNormal End Sub
I'm trying to display an image which is saved in the table as an OLE Object in a message box. The field with the object is "PowerCurve". This is what I'm trying to do. It allows me to get as far as clicking yes to view the second message box but then it results in an error when it tries to display the image.
Code:
Dim strDetails As String strDetails = DLookup("Details", "ExistingDeviceDetailsQ") Dim strCurve As String strCurve = DLookup("PCurve", "DeviceT", "DeveloperProduct = '" & Forms!DeviceF!D_ExistingDeviceCmb & "'") If strCurve = "No" Then MsgBox strDetails, , "Device Details"
[code]....
I get the error "Object variable or With block variable not set" on the line
I have 2 Comboboxes, one for Region and one for Country, and am attempting to initalize/cascade them. Here is the basic info for the the underlying tables:
1. Every Region has at least one Country 2. Every Region has one and only one Overseer 3. An Overseer may be responsible for more than one Region
Characteristics of the Comboboxes:
1. Both use 2 columns with the Name field (first column) being displayed and the Abbreviation or Code field (second column) being the bound column. 2. The nominal case is that both comboboxes will have multiple items to select and in that case the comboboxes are initialed with a query containing a UNION that inserts the string "<ALL>" (same string in both columns). 3. When the case arises that an Overseer manages a single Region or a Region contains a single Country, the Union query is bypassed such that the "<ALL>" string is excluded.
The comboboxes are used to create a filter condition to drill down into a potentially very large recordset.Now to the issue at hand ...
The Region combobox is initialized first. The initialization is accomplished by setting the RowSource property to an appropriate query. The first entry in the item list is then loaded to the combobox Value property by the following line of code:
Me.cbxRegion.Value = Me.cbxRegion.Column(0,0)
This always works whether there are multiple items or just one. If there is just one I set the Enabled property to FALSE; no point in reselecting the only item avaliable.The Country combobox is then initialized in a similar manner using appropriate code that is virtually identical to that used for the Region combobox.The problem I am having is that if there is only a single Country, the Name is not displayed in the combobox but is contained in the selection list. Note that i do not have a problem with the Region combobox when it is initialized with a single Region.
I have searched this forum and others and found similar inquiries and a couple of possible solutions; some clearly don't work while others appear to but result in run-time errors later in the execution of the code (run-time error '2115').I do not have a simply test case I can upload at this time; also new to the forum and appear to be restricted as to my ability to perform uploads.
I have a report which is an invoice I have a button on the report to reprint It . Now if this is a duplicate Invoice I need to add a background Image ,something like a duplicate stamp . I have added a message box which says" is this a Duplicate Invoice" .If the answer is yes then I want to display the backgrond image and print the report .If the answer is no, then print report without background image
L=Letter , X=number. Examples consisting of three parts (it can be more than three).
1. LLLLXXXXXX_LLLLXXXXXX_LLLLXXXXXX OR 2. LLLLXXXXXX LLLLXXXXXX LLLLXXXXXX OR 3. LLLLXXXXXX&LLLLXXXXXX&LLLLXXXXXX OR 4. LLLL_LLLLXXXXXX&LLLLXXXXXX OR 5. LL LLLLXXXXXX&LLLLXXXXXX
I would like to develop a function that takes a string that is made up of three parts or more and each part is separated by an underscore "_", space, or "&". There is no character that takes precedence over the other. It will always be only a single character which seperates the parts.
The check will always be done from the left. It should carry out the following actions:
1. Display all characters from the left until it reaches the first seperator "_" underscore OR "space" or "&" 2. Check only Part1 if it is made up of 4 letters and the rest 6 numbers (see 1-3 above). If that is the case only return part 1. 3. If part one only has letters and no numbers (see above 4-5) return all parts. Part one can consist of two letters or more.
I have started the function for step 1 above that searches for the character "_" underscore and display all characters until the first "_" is reached. I would like to include the same for "Space" or "&" in this function.
Once that is done I would like to do step 2 and step 3.
Code: Function SearchforChar(strTest As String) As String Dim test2 As String Dim strUntil As String strUntil = "_" test2 = Left(strTest, InStr(1, strTest, strUntil) - 1)
[Code] ....
Answer3: Full name with all parts should be returned for all above four cases under situation 3.
I'm trying to use ghudson's browse button in a form on MS Access. It works well, but I'm running into a tiny bug after implementing it into my database.
[URL] ....
I am able to browse, I am able to select a file, and am also able to have it display into the hyperlink textbox. However, when I try to click on the hyperlink in the textbox, it does not take me to the file.
To fix the bug, and to get the hyperlink working again, I have to modify the hyperlink within the textbox, then bring it back as it was. (generally, I hit backspace, and replace the letter I removed.)
I have a problem in which in the user may need to select 3 records at random from my table and display some details of those records in from view so that they can edit certain fields and just look at others.
Ideally I'd want a form with 3 separate dropdown boxes and each dropdown has the option to select 1 record from all the records in my table.
All 3 records must be visible on the screen at the same time.
Public Function DisplayImage(ctlBrowserControl As Control, _ strImagePath As Variant) On Error GoTo Err_DisplayImage Dim strDatabasePath As String Dim intSlashLocation As Integer
[code]...
This works perfectly to display the image I'd like through WebBrowser control I put onto the form....HOWEVER --and here's my question--the image size is not bound to the size bounds of the control size itself.So if my control is 2 inches by 2 inches and the image is 16 inches by 16 inches, then the image doesn't fully show within the control.
I'd like to get the control to show the whole image (sized down as appropiate, or sized up as appropriate) such that the whole image is contained within the control.I know how to limit the display of any image in HTML.
On the Windows 7 Developer desktop, the Windows Theme is set to Windows 7.On the Citrix server (for users) the Windows Theme appears to be Windows 95. It is low graphics.The boxes are square instead of rounded. The selected Form Tabs just barely highlight with a thin line while on Windows 7, the selected Tab completely changes color. A basic Message box in Windows 95 looks square and flat. The title bar is very low graphics as one would expect when graphics were not great. Is there a VBA call that can display the OS Theme that affects MS Access? URL...
I have a button that duplicates records 'X' amount of times based on a value in a text box.
I need a message box to advise the user that they have created record number from - to
Eg
User creates 5 records - first record created has a auto number of 3200
I need the message box to say 'you have just created records 3200 - 3204
Is this possible?
Here is the current code on the duplicate button courtesy of Uncle Gizmo
Private Sub AddRecord_Click() On Error GoTo AddRecord_Click_Err Dim x As Integer For x = 1 To (Me.txtAmount.Value - 1) DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdCopy
I have 2 controls on a form cmbFed and cmbState both are formatted as fixed with decimal places as 2. They display the correct values. cmbFed = .18 cmbState = .06 When I add a new control to add the 2. =[cmbFed]+[cmbState] result is .18.06 instead of .24 It looks like it is treating them as text. I even tried to do it in code Me.text639 = Me.cmbFed + Me.cmbState with the same results. It must be something simple I am missing a format for text639?
With this very simple command, I have the ability to send emails to several clients, reporting many things, quotations etc.
Private Sub Command84_Click() DoCmd.SendObject , , , , , , "SOMETHING", [SalesGroupingField] & "" & [1], True, "" End Sub
Now, i want, on the body of the emai, to display many records, it is from Nothwind, how can i display on the body of the email all records from this report?