Hi,
Anyone of you have idea how I can make my texts bold or colorful or place smilies while displaying the msgbox ?
I don't know if there is a way to do this. But if there is, it would make a diferent look.
With kind regards,
Ashfaque
Hi,
Anyone of you have idea how I can make my texts bold or colorful or place smilies while displaying the msgbox ?
I don't know if there is a way to do this. But if there is, it would make a different look.
With kind regards,
Ashfaque
I had a look on Microsoft Support and found this article: http://support.microsoft.com/kb/242889/en-us but I don't understand what it's saying.
Basically, I am trying to get the message formatted as it suggests in the help file (Access 2002) i.e. first line bold, second line normal, third line normal and paragraph space, by using the @ symbol. However, it is not recognising this as a format command, just plain text.
MsgBox shows:
Please enter a date range.@Hint: to show all records use a date like 1/1/1990.
instead of:
Please enter a date range.
Hint: to show all records use a date like 1/1/1990.
The MS Support file above seems to suggest that this is simply no longer available in later versions of Access, and offers two work-arounds. However, I have no clue about the second one because I'm not really into programming, and the first one seems to suggest exactly what I am currently doing.
Can anyone help me step through what I am doing wrong? Or is it just a case that I would have to use the code? (In which case could someone help me set it up?)
Thanks.
I have a form (MS Access 2003) that has a button that when pressed, assigns the current time to field [Time1] using
Code:
Me.Time1 = Now()
I have another field [Time2] that adds 15 minutes to [Time1] using the following in the Control Source field
Code:
=DateAdd("n",15,[Time1])
I was wanting to use these to force a message box when the system time reached Time2 and tried the following code on the Form ON TIMER event (Interval at 1000 ms) but it does not work.
Code:
If Time() > Me.Time2 then
MSGBox "Time to show message"
End if
I tried putting in a manual time in the VBA such as:
Code:
If Time() > #2:05:00 PM#
MSGBox "Time to show message"
End if
which worked. So, I am guessing there is something with my orignal code using Me.Time2 that is causing the problem.
I have a problem with my database I have a combo box that will search for my record. Actually its working I input the specific number it goes to the specific record. But I want, if there no existing record in my database it will display a Messagebox that "No record Found" I try to put a code in a macro builder in a after update property field but nothing happened.
Expression code that it will display the msgbox if there's no record found.
the given code from macro builder is attached. I try to have an if else statement but I dont know how to not equal that giver conditional expression.
Hello, I'm new in the Access World. I have a small question, but a bigger problem:
I have a big application developed in Access 97 with more then 200 tables. I wan't to move all the validation rules and texts from back-end to front-end (mean that I wan't to make the validation on the form controls and not directly on the tables like is now). This is needed because in future, I wan't to migrate the application to MSSQL. I wan't to write a piece of code that goes through every form, and for each control in the form, upon the control datasource, get's from database automatically the validation rules and texts and sets them to the control properties.
This is a nice thought, but I'm stuck at the part where I have to get the validation rules and texts for a specific column from a specific table.
Can anyone help me?
Thanks,
Mihai.
Hello,
I would be very greatful if someone could help me. I have a Combo box called "COM01" which i want it to control the enable function of 3 Text Boxes TXT01,TXT02 and TXT03.
When COM01 dropdown menu is used and field No is selected i want the 3 Text Boxes above to be set to Enable (False). The reverse when option Yes is selected is required for the same Text Boxes Enable (True)
I will be adding the code to the Change() of the COM01 properties
I have tried to use Case statments without success.
Any help is greatly needed
I currently have a if statement checking for values greater than 0
if(x>0) Then
Statement
Else
EndIf
Is there a way for me to set the property Bold to the text box in the case that x >0?
Is there a way to make only part of the text in Default Value to be Bold or Italics? That would be cool so I dont half to make boxes throughout my paragraph for only bold text! :cool:
View 2 Replies View RelatedI want to create a message box with bold text
Ext:
MsgBox "1. Hello!" & vbCrLf & "2. How are you?" & vbCrLf & "3. See you again!", vbInformation, "Message"
Result:
1. Hello (this line is bold)
2. How are you?
3. See you again
Hey, I was wondering how I would tell Access to set bold on my email message. I use this code to generate the email:
Private Sub Email_Click()
strToWhom = [EMAIL]
strMsgBody = "This is my email body, I would like this word bold"
DoCmd.SendObject , , , strToWhom, , , "Subject", strMsgBody, True
End Sub
Thanks for any help provided.
Greetings,
Having got my database working, my manager has thrown a spanner in the works.
We have certain employees with the same grade as others "BUT" they have been given a "privilage".
I have put a true/false field in the table and in the report I would like, if the field is true, to print the last name in red or bold for instance.
My report is based on a query, from several tables.
If this can be achieved where to I do the code or whatever,
the table, query or report?
Have searched the forum but couldn't really find what I need.
Any help will be most appreciated.
Thanks,
Brian.
Zimbabwe.
When a command button is onfocus, how do I make it bold or a different color and when it's not onfocus to return to it's default format? I know that this is possible with text boxes but I don't know how to do it with command buttons.
Please help. Thank you!
Not sure if this is possible but here goes (even if I make a fool of myself for asking).
I have a report that lists data based on criteria set in a form. The main criteria is Month (Month4Report) and Year (Year4Report).
The report lists all jobs that started that month and also any jobs that had work done during that month - even if they started in the previous month.
What I would like to do is highlight any job that has an actual start date prior to the current searched month (Month4Report). By making it bold or other way.
Is this possible?
Thanks.
Martin
I have created an automated e-mail quote for a client database. I have created several strings that make up the body text for the e-mail (some with info drawn from the database fields). Is it possible to have certain strings underlined and bold face? How would I go about that?
View 5 Replies View RelatedI'd like to set the value of a memo field on a form so that part of it is in bold. For instance, I want to say:
[memo_control] = "This is not bold" & "this is bold" & "this is not bold"
How do I do that in VBA?
I have this Access file with Tables & Queries.
I want selected queries to appear in RED colour and if possible BOLD too.
Possible ?
Is it possible to change to bold font the text column of a datasheet view?
View 3 Replies View RelatedI 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.
Me.Field_5.FontBold = True
Field_5.Properties("fontweight") = 700
But nothing worked.
I receive a bunch of excel files with items to be added to a database. some of the items are to be added as new, some to be deleted and others to be modified.
I identify the action (add/delete/modify) by looking at a column in the excel file e.g. column A.
At this point I am fine with the add/delete because I can filter the data or bring all the files to a temporary table in an Access database via vba script and then running queries to do the rest.
My issue is that the spreadsheets have a lot of columns and for the modifications what they do is use the same file for instance, make changes on the cells (any cell) that need modification and then highlight, bold or underline only the items that need modification and ignore the rest of the file (a tedious process since I have to then open each file and manually modify the database).
I would like to export from access a recordset into Excel and bold the column headers.
My current code works for the most part, except for the bolding.
You run the code in Access module and the code does the following:
1) checks to see if the excel file is open
2) if excel file not open, it opens the file, clears existing records, and starts copying and pasting new recordset into the RAW worksheet
3) it is then supposed to bold the column headers.
bolding is not working.
Code:
Sub TestFileOpened()
Dim lastRow As Long
' Test to see if the file is open.
If IsFileOpen("c: est2003.xls") Then
' Display a message stating the file in use.
MsgBox "File already in use!"
[code]....
Is there a way to make just part of the text in a text box bold, or to use different font sizes in the same text box?
Something like this:
---------------------------------
Heading in bold: description in regular (not bold)
(a smaller height line used as a line space)
Another "normal" line
a larger height line
a normal line....all in one text box!
---------------------------------
One thing I'd like to be able to do is to specify the line height of a blank line in a text box. I'm using carriage returns created with: Chr(13) & Chr(10). I could see defining the font size of a hidden character, but I'd need to know how to assign a font size to a piece of the text in a font box.
is it possible with transform, only uppercase text contained in a report textbox, to bold? How? Through VBA?....
View 1 Replies View RelatedCould anyone please tell me what is wrong with this event procedure? I get an compile error always. What I want is, if the condition is not met, the message box would pop up otherwise close the form. Please help.
Private Sub (Field Name)_BeforeUpdate(Cancel As Integer)
If (Me.MyFieldName = condition) Then
MsgBox "My Message"
End If
Else
DoCmd.Close
End Sub
Im want to create a msgbox that pops up when a parameter is entered wrong.
Ive created a query to search for customers - When run a box pops up saying 'Please enter surname' - If correct then a record appears.
If the surname is incorrect i get a blank table. I want a msgbox to pop up saying something like 'No Records Found. Please Try Again'.
Ive also created a button on a form which runs the query, this works fine:
Private Sub Command0_Click()
On Error GoTo Err_Command0_Click
Dim stDocName As String
stDocName = "Customer Search"
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Command0_Click:
Exit Sub
Err_Command0_Click:
MsgBox Err.Description
Resume Exit_Command0_Click
End Sub
How can i change this so a msgbox appears if nothing is found?
Any suggestions welcome. Thanks in advance... :)
In MS Access,
MsgBox "Are you sure", vbOKCancel
and there is OK , and Cancel buttons.
I want to do that if click "OK", then run the action, if click "Cancel", then cancel the action.
eg.
MsgBox "Are you sure", vbYesNo
If (vbYesNo = 1) Then
// run the action
End If
So, how do I edit it?
Thanks.