To ensure that each date field (3) on my form is not entered earlier than the previous one shown, I attempted to setup a before update event based upon what I've found in searching on date verification or date validation in the forum.
Note - I defined BadDate in the OptionExplicit...
Private Sub Date2_BeforeUpdate(Cancel As Integer)
If Me!Date2 < Me!Date1 Then
BadDate = MsgBox("Date2 is earlier than Date1, please correct!", vbOKOnly + vbInformation, "Wrong date selected!")
Date2.SetFocus
End If
End Sub
I am using one calendar control to load all 3 dates on the form (via a variable). I want to also check to ensure that Date #3 is later than Date #2 but... the first check isn't working at all. I suspect the calendar control is the culprit.
Does anyone know how I would convert pounds to tons in the criteria of a query? I just need to know what and where I should put the formula to make this work?
I have an asp.net application where the user can add a new client name and password to a database, but I want to do a check to make sure that client name is not already in there. I was working with and INSERT INTO statement this here:
INSERT INTO [clients] ([clientName], [passWord]) VALUES (@clientName, @passWord) WHERE NOT EXISTS (SELECT [clients].[clientName] FROM [clients] WHERE [clients].[clientName] = clientName)
But I guess you can't use a WHERE clause with an INSERT statement.. So I am trying to use an UPDATE statement. This here:
UPDATE clients SET clientName = @clientName, passWord = @passWord WHERE NOT EXISTS (SELECT [clients].[clientName] FROM [clients] WHERE [clients].[clientName] = @test)
When I run it in access, it doesnt add a new row if I try to add a client name that is already in there, but if I try to add one that isn't it tells me it's going to UPDATE 13 rows which would be all the rows in there. Anybody have any ideas how I can do this?
I am close to getting code to send an email from access with the body of the email populated with a Rich Text textbox from my access form. The problem I am having is that the body of the email is converted to plain text in Outlook which is creating problems for me. How to identify what I can do to convert to rich text or HTML in Outlook? I also want to attach a table that is populated by a query in my application, but i haven't got that far yet.
I am new to access and have been staring at the same Run-time error for 3 days (pathetic I know). I cannot for the life of me figure out why it does not like my Dlookup. Esentially, I want and After Update event in my combo box to populate a Rich text textbox in my form. After reading DLookup is the easiest way to make this happen. Here is my code:
Hi guys, I was looking for a way to trap err.number 3314 (when required field is null) before Jet generates its warning. I came across an old post from Rich (below), but I couldn't make it work as yet. In the calling form, under the Form_Error event I wrote the following:
Dim f As Form Set f = Me Call fnValidateForm(f)
Could anyone please tell me where my error lays here? I have several forms which have several text and/or combo boxes bound to required fields and I would want to have a generic code, like the one here to trap errors before Jet shows it's Error Message.
Thanks in advance Regards Jaime Premy - Belém-Brasil
******************Rich's Function******************** Public Function fnValidateForm(frmA As Form) As Boolean Dim ctl As Control Dim Msg, Style, Title, Response, MyString fnValidateForm = True For Each ctl In frmA.Controls 'value in the control is required If InStr(1, ctl.Tag, "Required") > 0 Then ' no value entered or value is null ' or zero for numeric fields If (IsNull(ctl.Value)) Or (Len(ctl.Value) = 0) Then ctl.SetFocus MsgBox "You have not entered all the required fields return to the record and correct this! The record will not be saved if you do not! " fnValidateForm = False
Exit For End If
If InStr(1, ctl.Tag, "NumberRequired") > 0 Then If ctl.Value = 0 Then ctl.SetFocus MsgBox "You have not entered all the required fields return to the record and correct this! The record will not be saved if you do not! " fnValidateForm = False
Rich helped Latex88 a little further down and the advise given was:
"=Count(*) in the control source of a textbox in the subform footer will do it, no vba is needed"
I tried this out out on a few of my subforms and it worked on all but one. The recordsource of the one that it does not work on is based on a query. When I changed the recordsource to a table then the recordcount works.
I have created forms in MS Access.. Now i want to attach Rich Text Format with each of the Text Box or Text Area... How can i do that... I was trying to search for a plugin which would get attached with MS Access and then while creating the forms it would get attached with the Text Box and Text Areas..
Kindly please help me in getting a solution to this problem..
how to make a line break in a rich textbox in access 2007? Chr(13) & Chr(10) worked until I changed the textbox to rich, which is necessary because certain words in the textbox need to be bold.
I am using RTF2 ActiveX Control which enables me to include the Rict Text Controls in my Access Form.
I want to generate a doc document out of the information which i type in the RTF2 Area on the Access Form. And whatever Rich Text Format information i have written there (for eg in Bold, Italics, Indentation, Tables created, Bullets n Numbering etc), is retained as it is on the Doc document which i am generating with the help of bookmarks.
Please help in how do i do that 'coz i am not able to do it using the Rich Text Format...
Can anyone help?! We are trying to export some reports into a Rich Text format using Access on Office 2003 on a Win XP op system. When doing this on Win 98 the Rich text document was slightly out of line but not too bad. Now we are doing it on XP it is completely out of line and unusable. Does anyone have any suggestions please? Regards Richard
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've just installed Stephen Lebans Rich Text Control as I have a a couple of memo fields on a form on a 2003 database where the user needs to be able to bold parts of the memo. I've installed it fine, and put the text control onto a form and it doesn't seem to do what i need (i.e. the Bold button isn't even enabled on the toolbar). I've downloaded the sample database that he has on the site and this works fine suggesting ive installed it correctly and i am going through the properties of the control with a fine tooth comb but havent found anything different yet to what i am doing on my trial form.
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.
My error: Syntax error (Missing operator) in query expression
Followed by <div> and other HTML code. Ending with a "3075".
I get this error after adding highlighted text to my memo fields. No other rich text formatting seems to trigger it. Specifically, the error is triggered when moving from my subform to another subform or the main form.
I am generating a report that needs to have a hyperlink in part of one of the fields. Prior to saving the field to the database I do a bit of VBA coding on it and add some HTML. The result is this in the field:
"There are two ways to book with your preferred rate: <br>
2. Call us directly or at 1-800-Hampton and use your Corporate ID 12345."
It works beautifully if you paste it into a web page but in the Access report, Access applies the Bold but just ignores the hyperlink.
This is Access 2013 with MS SQL Server 2008 backend. Everything I have read suggests that this should work and is supported. Is there some trick I'm missing?
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 have been sending plain text emails for a while, but now I have a project where the formatting of the text needs to be specific and I need to send as rich text.
I can use the rich text from a table, excel, or word, but I am at a loss on how to get the data to Lotus Notes.
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 have an Access 2010 database with a memo field formatted for Rich Text.
I created a simple form. It accepts and shows paragraphs, i.e. I press Return and a new paragraph appears (with a blank line in between paragraphs).
I then created a report based on the same fields. In the memo field it shows the text entered in the form, but not the paragraph breaks. It just shows one big block of text without any paragraph breaks. I have looked for a field property in the report design and layout views that might affect how the text is displayed in the report but I cannot find one.
It is not much use if you can input paragraph breaks in a form but not see them in a report.