Modules & VBA :: Matching Content To Other Content?
Feb 4, 2015
how many elements matching to my primary elements from any records of my query and count match, if some element doesn't match then I need to add it to my primary elements, then at the end (rst.eof) count how many primary elements I have.
E.G
id colours
1 blue;red
2 purple;blue;green
3 red;violet;purple;blue
dim matching_elements as long
dim primary_elements as string
dim TheNumberOfPrimaryElements as long
First of all, if I open recordset primary_elements is empty so I need to assign a value form first record.
As I began thinking about the data that I need to include in one of my reports I relized that I need to gather some extra data.Each design change has a lifecycle with 7 basic states from not started through to closed. States 4, 5, and 6 have two posible sub-states that I need to capture and report. It is almost like having options.
My data entry form already records the 7 basic states. What I would like to do is have another field that records the sub-states if the design change is in one of those three states.
Will a ComboBox do this?
Do I need a test routine for the After Update event in the first text box? Something that will check for states 1 - 3 and 7 move on to the next field and if states 4 -6 require users to enter the sub-state.
Debugging my VBA code. I'm trying to track/display the content/value of a couple of variables to make sure they have the right value at a certain point.
What is the VBA code to say "display content of variable Var1" ? Where exactly will it display the value when instruction is executed?
I know I can just hover the mouse on a variable to see its content but some string varables like SELECT commands are too long and you cannot see the whole string.
I have a module which generates an autonumber based on a table content (Tbl:Numbervalues) and a prefix (prefix held in Tbl: TextValues)
the module itself works fine and after every getprefix & getnextnumber it updates the number within numbervalues table to the next unique figure.
However what i want it to do is within my database i want to loop through all the records and update a column based on the getprefix() & getnextnumber()
so at the moment lets say column A has values of SHA000001 (in all 100 records) i want it to loop through those 100 records and update to be SHA(from the prefix table) and 000001 all the way to 000100.
Code: Public Function GetPrefix() As String On Error GoTo GetPrefix_ErrorHandler GetPrefix = DLookup("Value", "TextValues", "Description = ""InvoicePrefix""") If Len(GetPrefix) <> 2 Then msgbox "The Invoice Prefix Value in the Text Values Table is not 2 characters long!", vbCritical, "Critical Warning" End If
I am working on a report that will have 16 sub-reports, one right below the other. Because of the complex nature of the calculations in the groupings it seemed easier to "build" the report using vba rather than using the report's built-in grouping ability. The issue I am running into is that there seems to be no simple way to control the height of the sub-reports. I had hoped that setting "can grow" to yes would change the height of the sub reports and move all subsequent sub reports down (Allas)
As an alternative I thought too that I might be able to set the height of the sub-report control, which would make for a tricky but not impossible bit of programming, but (Again allas) I can't seem to find a reasonable way to determine the required height of the sub-report's control.
I have a field in access database called result (coming from webform) and the content is something like: 'not much; 2' or 'frequently; 5'. How can I split numeric and text value into two separate columns in query? I will greatly appreciate any help.
I have 3 tables in my database; 1) Policies, 2) Salespeople and 3) Shops. We have a several shops, and each shop has their own salespeople. In the table Policies we have to select the shop where the policy is sold, but also the salesperson that made that sale. As soon as we receive a policy from Shop A we have to add that new record in the Table Policies. This table we select the shop, say for instance Shop A. The next column there is a droplist of all the salespeople. Now my question: Is there a way to get a dropdown list of only the salespeople from Shop A, or only the salespeople from Shop B when I select Shop B?
We have only 4 computers in our office. Our DB backend is SQL server and due to constant corruption of the database from multiple users, each user/computer runs its own separate copy of the mdb file.
I have set up a small form in a separate database to allow me to quickly compact the DB and copy it to the 4 locations on the network instead of doing it manually. This process works fine...BUT....I have a text box on the form set up to display the copy progress and the contents of the text box do not properly display during the file copying. Even though the code to change the value of the textbox comes before the file copy command, the textbox will not display the until after the copying is finished. However, when I step debug the process it displays the information correctly before the file copy command executes.
Here is a sample of my code... Dim strPath1 As String Dim strpath2 As String
If Dir("C:FortuneSystemFortune_System.ldb") <> vbNullString Then MsgBox "Cannot proceed! Fortune database is open.", vbCritical Exit Sub End If
txtProgress = "Compacting Database" 'compact master DB to a temporary DB file DBEngine.CompactDatabase "C:FortuneSystemFortune_System.mdb", strPath1 txtProgress = "" If chkTed Then If Dir(strpath2 & "Ted.ldb") <> vbNullString Then MsgBox "Ted cannot be copied. Program is running.", vbCritical Else Screen.MousePointer = 11 txtProgress = "Ted Copying" Kill strpath2 & "Ted.mdb" FileCopy strPath1, strpath2 & "Ted.mdb" txtProgress = "" Screen.MousePointer = 0 End If End If ....etc...
Can anyone explain why this is happening and possibly a way around it?
Hi, Does anyone know of a way to dynamically fill the content of a form at runtime. I want, for example, when a user clicks a button, a textbox is dynamically added (but I would prefer not to use hidden objects). I've tried the "CreateControl" option but I can't seem to get this to work. Any coding examples would be much appreciated. Thanks, Mark.
I designed a Data Entry interface. I wish the system can automatically clear all the values of controls in the form after users click the 'save' button.
Is there any good solution instead of manually setting each control's value to null?
I tried Undo method, but it didn't work on either control (textbox) or form itself.
I have a query set up as the record set for a form containing combo boxes.
The form has four combo boxes with various drop downs. I have linked these combo boxes to the query using this syntax in the query:
[Forms]![frmToolStats]![cboModel_Number]
I have a preview button report on the form to load my report template to be populated with the combo selected info.
If I fill all four combo boxes with specfic info then my report displays all data records related as you would expect. For example I can select A 'Tool Type', 'Manufacturer', 'Model Number' and 'Tool Condition' and my reports will show me three test records relating to these specific parameters.
How do I set the code to allow me to complete only some of the boxes and return the records i.e. only 'Tool Type' and 'Model Number'.
I am trying to get my report to lift the data for test records for each specific tool by model number and tool condition and then do some calculations. This forms the full report.
I have tried this code:
If Not IsNull(Me![cboToolGroup]) Then where = where & " AND [cboToolGroup] Like '*" & Me![cboToolGroup] & "*'" End If
I have a table (which has a few relationships) that contains 10.000 records up-to-date, but I've been making major changes to my database working on an old version from early June, when it had +9000 records.
What I'm planning to do to update the table:
export those 10.000 (up to date) records to a Excel file delete those outdated +9000 records manually (select all + supr) import the data from the Excel file so my new database is up-to-date again .
Is this acceptable or could lead to weird errors in the future?
I have a simple database that a user records the work they have done for the day. They are required to fill out the form with the item number, date, qty etc... the problem is some people are fat fingering things and i am not getting the right item numbers... I have a table called dbo_item with all the possible item numbers in it, is it possible that after they hit enter or click off the item number box it will tell them they put in an invalid item if it doesn't match one of the items from that table?
I have a database in access that i have shared it and 5 person write in it. I want to show the datasheet in a monitor but my problem is hat I cant use auto refresh the Table datasheet. How can I auto refresh the datasheet of table when every client change it?
I have a database with company records in one table and calls made to companies in another table; the two tables properly related on a CompanyID field. A query joining the tables returns a dataset with multiple instances of CompanyID's because each company may have received 0 - n calls.
I would like to collate the content of the 0 - n[/I] callnotes records for each company into a single 'CollectedNotes' entity. I have two questions please.
Can anyone think of a way to do this without using code?
If not, can anyone give me a helping hand with the code?
In pseudo-code terms, I anticipate something like accessing the recordset for CompanyID's related to CallID's looping through to write the content of each instance of a CallNote (identified by unique CallID) to a new 'CollectedNotes' object. Help gratefully received. Thanks. MITW
I have a text filed on a tab control on a form. What I want to do is when the record is opened for viewing I am it changed the contents of that field. The reason that I am doing this is that I am auditing the changes in the database and any changes to any of the fields are recorded on the in this table along with the users windows username.
This would put an entry in the audit table for everytime a record was opened, even if no changes were made to the record and I want to use this information to create a last ten records form for the users to view there last ten records.
I'm building a forum from the scrath. It is already working, but I want to have in each topic the number of replies it has. there are 2 tables, one for the topics and other to the replies. in the replies table there is a field called id_post that has the id of the post witch it belongs.
I solve the problem by inserting a query inside the loop of the posts:
<% While Not rs.EOF %> <% Set rs2 = Server.CreateObject("ADODB.Recordset") sql = "SELECT COUNT(*) as cont FROM replies where id_post= " & rs("id") & " " rs2.Open sql,Conn,1,2 %>
post: <%=rs("post")%> replies:<%=rs2("cont")%>
<% rs.MoveNext wend rs.close%>
but someone told that this would make the page slower, so I want to know if I can do the same thing without having the query inside the loop.
I don't know if I made myself clear, sorry for that.
Im just starting to use access for a small business. Im fluent in visual basic but i cannot seem to get this to work. so im using the wizard for the "Order Entry" and it works great. However, on the Preview Invoice where you can also print it, i would like it to include the credit card number, payment method, experiation date, ect. which all can be found on the payment form for the order. I have a text box but i cannot seem to get the write content source. what would be the content source so it can access the payment details from the other form and print it along with the invoice.
I have a form with a number of fields and sections which change visibility based on the data entered in other fields,
The fields have an "on update" event to check the content of the field and make the appropriate changes,
I've changed this form to be able to edit records instead of "Data Entry" so now I need the checks to occur when the record changes as well as when data is entered,
How best can I achieve this without simply duplicating the code (which seems like a bad idea) into the "On Current" event?
Simple vba code that allows me to import all the content in a specific folder into an Access attachments field? I have search but all I am seeing is code to import outlook attachments.
I would like the text from the previous field Invoice_Contact copied into the field Invoice_Contact of each new record created. I think I can use CTRL ' - but would like it done automatically if possible.
Field location: Form = PatientUpdate - Subform = F_Invoice - Field = Invoice_Contact
The form and subform are linked through: Pat_ID
The subform is based on the table called Invoice with Invoice_ID as the primary key.I tried several variations of this DLookup from examples I found on the web but the field comes out with "error" in it and its flashing!
I have a form I use to create photo captions. The form has a field where users can edit a pre-generated caption and a field that stores their updates as a final caption in the field "selected_caption".. On my form is a button that runs the code below to check and see if a field ("updated") has been marked true, then copies the content of caption field into the selected_caption field. It works fine 90 percent of the time but for some reason this caption:
LA 109535, LA109535 partial site overview showing blowout with PL's 01- 04. Crew person is excavating a shovel test probe. Photo direction facing southwest. (Roll 31066, Frame 4958)
Results in a missing operator error. I thought it was like a special character thing, so I removed the "'" and the "-". Same error.
Code: Dim db As Database Dim rst As Recordset Dim upcap As String Dim strSQL As String Set db = CurrentDb
I want to display the ID of a dataset in a form but I don't want the user to be able to edit it. Therefore I want to display the id in a label and not a textbox or combo etc.
I can't see a way of how to do this though. Is this possible, or am I going about it the wrong way?
