I have a process that is getting data from sharepoint page, containing 2 list. Both list contain one field I am having issues in my export, a 'Multiple Lines of Text' type field which is Rich Text in sharepoint. I have an access DB with a linked table to those 2 list. Access show the one field I am having problems with as Memo.
The Linked table pulls/display the rich text data field correctly. My access query pulls/displays the data correctly.
My export procedure does not, the cell it exports to includes the HTML Tags. How can i modify my VBA export procedure to export to excel in plain text, i dont need the same format, just want to drop the html tags.
Code: Public Sub StatusReportExport() On Error Resume Next ' Test to see if the file currently exist, if so, delete file, so new file can be written. Kill ("L:Connect SiteStatus Report " & Year(Date) & "-" & Month(Date) & "-" & Day(Date) & ".xls") If Dir("L:Connect SiteStatus Report " & Year(Date) & "-" & Month(Date) & "-" & Day(Date) & ".xls") <> "" Then MsgBox "Status Report.xls File already in use!" & vbNewLine & "Please Close File, then rerun Report."
I am trying to format an excel spreadsheet through access, specifically trying to convert a column from text to dates (I receive the data in text format and need to translate it to dates).
Code: Dim excelApp As Object Set excelApp = CreateObject("Excel.Application") excelApp.screenupdating = False excelApp.Visible = False Set excelWB = excelApp.workbooks.Open("Z:DataBasicSMData.xlsx")
[Code] ....
I'm no longer getting an error, but it isn't actually modifying the spreadsheet...
I need to input a string into a column named "EventType". The code should first check if the column "Agent Name" contains any strings. If there is none, it will input "IBM Director" into the EventType column.
Once it has looped through the agent names, the code will then loop through the Details column and input into EventTypes based on what is displayed within the string.
These are the codes that I am using to achieve this, however nothing is being input into the EventType column.
Code: Private Sub Command11_Click() Dim dbs As DAO.Database Dim rst As DAO.Recordset
Set dbs = CurrentDb Set rst = dbs.OpenRecordset("Final")
[Code] ....
I think the problem lies with the code that checks the agent name. When I removed it, it managed to populate the EventType column based on the details. But I still need to find out how to check the agent name too.
My database has Main form and a Sub form. On main form i place one unbound text box named investigations. In subform of which datasheet there is a column named TestCode. I want unbound text box (Investigations) to display row values which selected in a column (TestCode) of subform.for example:Investigation field should display "CBC,HB,ALP".
DoCmd.RunSQL (" update tbl_userinformation SET [05-Henrichpiramid] = Yes where Username= Text146.value AND actualdate=Text148.value ;") DoCmd.RunSQL (" update tbl_userinformation SET [combination] = [05-Henrichpiramid] where Username= Text146.value AND actualdate=Text148.value ;")
i want to update the column combination to its last value with concatanation to the value of current column.
Hi, I have a querie that returns various data based on the page of a part's Sub-Assembly. There are 4 basic items returned for each page that display in my subform it displays as follows:
SpecID - Page # - Part# - Description - etc.
4 basic SubAssembly Descriptions are
1 - A Text Description of Assembly as a whole (varies for each record and usually has a number such as 2" or 3" or 4" etc at beginning of field) 2 - Valve 3 - Selenoid 4 - Actuator
I want to sort these records so that the first field is that Text description field. I tried sort descending and this does sort descending but puts text field last. (i Know that this is because it is sorting on text first and then intergers. But I don't know how to program multiple OrderBy for this column. How can I sort by intergers first and then by text on this field? :o
I've created a listbox and am using the following code
stWhat1 = "": stCriteria1 = "," For Each vItm1 In Me!LstArchive.ItemsSelected stWhat1 = stWhat1 & Me![LstArchive].Column(0, vItm1) stWhat1 = stWhat1 & stCriteria1 Next vItm1 Me!txtCriteria1 = CStr(Left$(stWhat1, Len(stWhat1) - Len(stCriteria1)))
The problem is that my bound column is a text field. I'm really struggling on where to put my quotations so that I get the following with the In function In('00638','00639').
Any help or pointing in right direction would be very much appreciated Carrie
I have a text box that is displaying a value from a table where the display control for the field in the table is a two row combo box. The text box on my form (I'm droping the text box on the form and manually changing the control source) is displaying the second column of the combobox where as I want the first column. If I drag the combobox from the field list onto the form it does show the expected first column (now if i change this to a text box in properties it shows the second column as well). Is there a way to change the text box to view the first column?
i create a project for salary company , i have a list box and have 6 columns & i have 1 textbox , i work with code and a listbox is the query know i need the value of textbox is equal with the column 1 from listbox how to do it ? like when i run form need to be enter the code when entered the code in listbox is equaled with the textbox .another question , in the list box i have one column it is about salary i want the total of salary.
My form's 10 column combo-box (based on a query) won't break into text cells. Some of the columns contain numbers, some test, some phone #s. All columns show when I click the Combo-box in Form View. Access Help File said to put: =Forms!Customers!CompanyName.Column(1) in the ControlSource for the text cell. Tried that and was returned #Name? for any of the fields in which I tried it. My expression was: =frmSpartanStudentBehaviorLog!Last_FirstUC.Column (3) The other properties in combo-box are set correctly: ColumnCount=10, Column Widths are correct.
I also tried the expression: =Last_FirstUC.Column(2) but got the same result #Name?
I'm baffled. As a very new user, I'll appreciate any assistance. Thanks.
I have a column in a table that only is allowed one value, "Repealed" or simply left blank. I would like to have a checkbox on a form that enters the word "Repealed" or removes it depending on whether it's checked or not, rather than having the user enter the word "Repealed" each time.
Can anyone offer direction as to how to complete this? I've not had much experience with VB code.
If I have a Query, and I want to list the sum of one of the columns of that query in another text box on a form, is this the correct way of doing it?
=Sum([Drivers Other Shifts].[Duration])
In this case, "Drivers Other Shifts" is the name of the Query, and "Duration" is the column header. When I try this I get #ERROR, so if it's just that something else is wrong, or that my expression is the wrong way to go about it...
how I can set a color on table column formatted as rich text and memo. For instance this table has 4 different columns of remarks, one from each engineering operating center. Remarks_1, Remarks_2, Remarks_3 and Remarks_4. Each one of the 4 operating centers enters the remarks in one of these fields. On the Dashboard report, what I do is I get all these 4 fields and merge in 1 because the report is already narrow due to several other columns as well. So there is a report combining all data : =Remarks_1& " -"&Remarks_2&" - "&Remarks_3&" - "&Remarks_4 under Remarks.
The point is that the Dashboard has colorcode, Orange for Remarks_1, Red for Remarks_2, Blue for Remarks_3 and Green for Remarks_4. All these fields are memo on rich text format. On the form I have set the color of each field, however the color doesn't get set on the table as well, but only on the form fields. How can I set a defined color to each field on the table? And also when I get all data in one column, I would see all different colors.
why =listboxname.column(0) in the control source of a textbox will give me the value "#name?" ? I've used it successfully on another form..but for some reason its not working for me.
I have a column that has a bunch of keywords they are separated by comma... so for each row of that column it will have a few different keywords example: lake superior, river, mountain, lake wollongong
I know its a bit of a nono with databases to have columns with comma separated text.. well so i read somewhere anyway but the document i have been handed to work has hundreds of rows in this column with up to 14 keyword entries.
I have a form that searches through Item's names based on 2 keyword boxes.
Here's the criteria in my query:
Is Null Or Like "*" & [Forms]![frmItemView]![SearchPhrase1] & "*" And Like "*" & [Forms]![frmItemView]![SearchPhrase2] & "*"
This will show all records when both keywords are blank, and filter records using the 2 keywords otherwise.
I have a form with two text boxes and have set the correct values as outlined in Evans post. I then have the query set to run via a button. I run it but it will only give back records for the entry i have put in the 1st text box. This would work well for me otherwise... mine is like this:
Is NULL or Like "*" & [Forms]![Searchtable]![Key1] & "*" And Like "*" & [Forms]![Searchtable]![Key2] & "*"
Searchtable being my search form key1 being my first text box entry key2 being my second text box entry
