Modules & VBA :: Linking Text Box To A Field In A Table
Jul 28, 2015
I have made a form (frmLogin) that is used as my homepage and has command buttons that take the user to other forms. However, I am trying to make the txt box on the frmLogin be able to filter by a date found in a table (tblDefaults) when the form is opened.
I am trying to pull the value from the tblDefaults form the column "DefDate". Whenever I open the form I get an error that says "Compile error: Invalid use of property." Here is the VBA code that I have written. Also when debugging it highlights ControlSource in my VBA code so that seems to be where the problem is but I can not figure out why.
VBA code:
Private Sub Form_Load()
Dim SQL As String
Dim db As Database
Dim rs As Recordset
I have created an inventory database that tracks all of the assets in our company over the last few days. IT is functional, but now its time to fluff it up. I am going to add the display pics that we have for all employee on the form that displays their information and what assets are assigned to them. I want it to display their picture on this form as well. I have it working, but am wondering if there is an alternate method to copy and pasting the local URL to the picture.
I'm trying to link a table to a massive 3GB text file so that I can generate a report. The text file is an exported Access query, so I can analyze the data in query form, BUT I'd like to analyze as a text file to confirm that nothing is altered during the export process. (e.g. Sometimes rounding errors can alter data, etc.)
Unfortunately, I'm getting an error saying that the text file is too big.
I would like to link several Yes/No boxes to corresponding textboxes, so that if there is text in the text box, the yes/no box would automatically be checked, and if there were no text, it would NOT be checked. Is this possible? I hope so, it would prevent me from having to manually check about 3500 boxes.
I'm using this code to link to a ODBC Pervasive db table:
Quote:
Public Function RelinkODBC() PastelServer = "PasServer" On Error Resume Next CurrentDb.TableDefs.DELETE "TranLeave" Set tdfLinked = CurrentDb.CreateTableDef("TranLeave") tdfLinked.Connect = "ODBC;DSN=" & PastelServer & ";DBQ=" & PastelServer tdfLinked.SourceTableName = "TranLeave" CurrentDb.TableDefs.Append tdfLinked CurrentDb.TableDefs.Refresh End Function
The resulting table is however read-only.However if I link to the table "manually" myself it results in a read/write table.
I have a main table and multiple other tables that I want to link to each row of the main table.The main table "Data" consists of columns (Name, x, y) where "Name" is the primary key and all values are unique.Each of the other tables have columns (Name2, z) where the value of "Name2" is the same in each row and also corresponds to the table name.
I want to make each table a subdatasheet of "Data" where each row in "Data" shows the values in the table corresponding to its name. (i.e. where Name = Name2).Below is what I have so far, but the code doesn't work because linkchildfields and linkmasterfields need to be run from a subform.(?)
The error I am getting is 'Property Not Found' once the code reached the linkchildfields line.
Quote:
Sub STS() Dim i As TableDef Dim db As Database Dim tbl As TableDef Set db = CurrentDb() Set tbl = db.TableDefs("Data")
We need to move rich text from an Access memo field to a Word text box. So far the best Ive been able to come up with is in the code below. In this code pprs!What is a record set field of a table memo field that is bound to a text box enabled for rich text. The rich text seems to be stored as html as so I can get word to convert it by enclosing it in html tags.
Dim What As Word.Shape Set What = doc.Shapes.AddTextbox(msoTextOrientationHorizontal , doc.PageSetup.LeftMargin, 225, 534, 0) Dim sPath As String sPath = "G:Temp.html" Open sPath For Output As 1 Print #1, "<HTML>" & pprs!What & " </HTML>" Close #1 What.TextFrame.TextRange.InsertFile (sPath)
I am wondering if there is a way to automate the pasting function of text from one field into several others in a table without losing the data that is already in the field.
As an example: in 20 fields I have "I love potatoes" and I want to paste the text string, "And I love tomatoes too" in every field without overwriting the original text.
I have 4 fields that are unbound on a form. img1 img2 img3 img4..When these are entered they are all combined and autofill another unbound textbox = imagename.. what i would like to do is from this unbound textbox 'imagename' ..i would like to populate a textbox that IS bound called FileName
[Event Procedure] Private Sub imagename_Click() Me.imagename = Me.FileName End Sub
I'm fairly new to Access / VBA and have been trying relentlessly to get a text box / search button on my Access form to pull up a specific record. Although the null command produces the correct error msgBox, it does not show any record if I enter a correct primary key term.
Code: Private Sub SearchButton1_Click() If IsNull(SearchField1) = False Then Me.Recordset.FindFirst "[UniqueAEVRef]='" & SearchField1 & "'" Me!SearchField1 = Null If Me.Recordset.NoMatch Then MsgBox "No record found", vbOKOnly + vbInformation, Me!SearchField1 = Null End If End If End Sub
I have 2 fields in a query which I want to write to a table. Eg ProductName (field length 10) and Product Code (field length 5) the fields need to be filled out so the length makes the maximum text
For example product name 'test' length is 4 i have to add 0 to make the length to 10 so the field will be 000000test same thing applies to Product code. I have 700 records like this, is there a way in VBA where it adds the extra text to make it the maximum length.
i have multpile yes/no check box i want if i check on one the name of this check box is written on another one. so i neeed a code for loop of check boxes and i need a code i.e loop all check boxes if any is true then put name field in {new field}
I'm trying to output some logging to a form with a Rich text textbox
This is what the form is displaying: 14:16:32: check OK: 500<10000andS235='s460'> 14:16:32: check OK: 500<10000andS235='s355'> 14:16:32: check failed:too short 500<1000231231 > 14:16:32: Ready ...
There is some coloring in the text but I'm not display that here (copy/paste of the textbox)
This is the HTML behind it (? txtbox in imm.window): 14:16:32: <font color=black>check OK: 500<10000andS235='s460'</font><br />14:16:32: <font color=black>check OK: 500<10000andS235='s355'</font><br />14:16:32: <font color=red><strong>check failed:too short 500<1000231231 </strong></font><br />14:16:32: <font color=green><strong>Ready ... </strong></font><br />
The problem is in the red > that are added to each line. I have no clue where they are coming from, in fact: they are NOT in the HTML.When I display this piece of HTML in IE I don't get the red > behind each line.I have tried to use <p> of <div> instead of <br/> but that makes no difference
I want to create an app that works like Wikipedia. for example any word that have an explain and that's explain available in my database that word become hyperlink text with different color and so if operator click on that word open a new form and show the explain.
I have created a form which is linked to a table (tblKPIs) and all fields from that table are displayed on the form. I have added an unbound text box in which I would like to display a value from a field in a linked table (tblObjectives).
I know this is potenitally simple but cannot seem to work it out. Any help would be appreciated.
I'm using Access 2010. I'm passing a string into the OpenArgs of my report - works fine. In the report there are 3 rich text fields which may contain the text I passed in, and if so I want to change the color of that text to red so it stands out.
The value passed to the report changes so I'll need to use VBA in the detail's format section to check each of the 3 rich text fields.
I am using MS Access 2007 and have a report which display the list of values (say 10 fields) from the basic SELECT * FROM table query.
I need to dynamically set the BOLD based on the particular value for the fifth field which was assigned from Query. if it doesn't match it should display normal.
E.g If Field_5 = "Agent" then Field_5.FontBold = True Else Field_5.FontBold = False End if
I tried the aforementioned code and it dont work. ALso i tried achieve it using below listed options.
I have a data entry form [Resources] and I would like to display some information about holidays in the form footer. Once the user has picked a combination of Trainer_Name and Start_Date I would like the 'On Change' or 'On lost Focus' event (not sure which would be the best) to perform a datediff calculation.
The datediff calculation would compare the difference between the start date entered on the form and the most recent past Start_Date on a query called [Hours Holiday_P1].I could adapt the same code to also look for the difference between the End_Date on the form and the next Start_Date on the Query.The idea is that when resourcing trainers I know how long it is since and how long it is till their next holiday.The sql for the query is
Code: SELECT Resourcing.Start_Date, Resourcing.Trainer_Name, Resourcing.Duration, Time.Hours, [Hours]/7.4 AS Days FROM (Resourcing INNER JOIN Employees ON Resourcing.Trainer_Name = Employees.Trainer_Name) INNER JOIN [Time] ON Resourcing.Duration = Time.Time WHERE (((Resourcing.Start_Date) Between DateSerial(Year(Date())-IIf(Month(Date())<4,1,0),4,1) And DateSerial(Year(Date())+IIf(Month(Date())>3,1,0),3,31)) AND ((Resourcing.Activity) Like "Holiday*")) ORDER BY Resourcing.Start_Date;
I had the need every so often to quickly find all instances of any (particular) word within the database, without going to the bother of thinking about where that word/subject might be in the data base, I designed a report which does the job nicely. It uses a search form/control, searches and finds all instances of the word (or words) I have asked it to find, then does a report showing all instances of whatever RTF memo fields that contain the word(s).It has to be RTF memo field because (if I wish) it goes straight into the book text I'm writing, and also it searches the book's RTF memo field. . The trouble is, at present, I then have to manually "eye scan" the resulting report to find the occurrences of the "key searched for" word, nestling/hidden somewhere within sometimes quite large chunks of text. I would love to have the report show the found "key word(s)" highlighted in (say) light blue or whatever colour, so that I can quickly & easily lock on to it visually.
I enter the word I want Access to find, into a form called "formfindword" in a text box called Text0. I click on a command box on this form, to open up the report called "Querywhatsandhowschooseword" based on a query of the same name. The query's "what" field (from the main database) has the criteria
= Like "*" and [forms]![Formfindword]![Text0] & "*"
The query's "how" field criteria (in the "or" line of the query design) is also
= Like "*" & [forms]![Formfindword]![Text0] & "*"
I have tried to use the Conditional Format facility in Report Layout view, without any luck.I think therefore that I will need some VBA code (which is totally foreign to me, unfortunately) to make this simple concept a reality.
My form used to work and as I kept adding event scripts now when I click on the ID text field, it doesn't open the linked record, but a blank record with 'Filtered' showing on the bottom navigation. I guess a question I have is,
-is there an order on which the procedure scripts run -do they all run everytime, or just the specific event script
=================================== Private Sub Company_Click() DoCmd.OpenForm "frm Company", , , "[ID] = " & [ID] DoCmd.Close acForm, "frmCompanyDirectory" End Sub ===================================
I used to have code on a button on the "frmCompanyDirectory" that added a new record to "frm Company" and that's when the ID = ID stopped working.
I am creating an orders form based of a query that has joined an orders query and a customer query. What I want is in the order form when a Customer is selected then the address & contact information is automaticly populated in following text boxes.
I have a text box on a subform that I want to use to control a combo box on the main form - I know it's not how things should be done but I've no choice - these are my instructions. I'm using Access 2000.
The text box displays a short data in dd/mm/yyyy format and when data is entered into it, it populates a field in Table 1. The combo box displays all the months of the year which it obtains from another table which only has months in it. The combo box properties have Limit to List set to Yes. Once a Month is selected, it populates the month onto another Table, Table 2. The months have all been assigned with a numeric identifier (i.e. 1 for January and so on) but only the name of the month appears in the combo box.
What I have to do is have the combo box update the month it displays based on the short date in the text box. I've tried the After Update event on the text box to no avail. The code I tried there that didn't work was:
Quote:
Private Sub txtDate1_After Update Me!txtDate1 = Me!cmbMonth End Sub
I've tried similar code in the On Enter even for the combo box and this too failed. I've also tried switching off the Limit to List property of the combo box and this didn't work either.
I've also tried to set the combo box so that it links to the exact same fields as the text box and while this did work, all it did was have the date be displayed in the combo box in short date format and not as the name of the month.
I'm struggling to understand if this update is even possible. Can a combo box that has a Row Source limited to options in one table which it then updates onto a field in another table be controlled by just part of the date from a text box?
I have a form based on a table called "WellData". I want to have a text box on this form that shows the first value in a field that is in a different table called "DateWellPrevious". The field is called "Oil".
I tried this as my textbox control source, but it didn't work:
=[Tables]![DateWellPrevious]![Oil] Any Suggestions? :confused: -Chris
