How to setup Internet email accounts in Outlook 2007

    1. Open Outlook. Select Account Settings… from the Tools menu.

      Tools Menu

    2. On the E-mail tab, click New.

      Account Settings

    3. Select “Manually configure server settings or additional server types” and click Next >.

      Manually Configure

    4. Select Internet E-mail and click Next >.

      Internet Email

    5. Enter the following information for E-mail Accounts.
      • Your Name: Enter the name you wish recipients to see when they receive your message.
      • Email Address:This is the address that your contacts’ email program will reply to your messages. This is also the address that will get recorded in your contacts’ address book if they add you as a contact.
      • Account Type: POP3
      • Incoming mail server: Enter pop3.ivenue.com
      • Outgoing mail server (SMTP): Enter smtp.ivenue.com
      • User Name: Enter your full e-mail address
      • Password: If you wish for Outlook to save your password, check the box labeled Remember Password and enter your password in the text field.
      • Click More Settings…

Email Settings

  1. Click on the Outgoing Server tab, and check the box labeled My outgoing server (SMTP) requires authentication. Then choose to Use same settings as my incoming mail server

    Outgoing Server Settings

  2. Click on the Advanced tab.
    • Under Incoming Server (POP3), the port number should be set to 110.
    • Under Outgoing Server (SMTP), the port number should be set to 587.

    Advanced Server Settings

  3. Click OK
  4. Click Next. Click Finish.

CONDITIONALLY CHANGE THE BACKGROUND COLOR OF A TEXT BOX ON A CONTINUOUS FORM

This MSAccess tutorial explains how to conditionally change the background color of a text box on a continuous form in Access 2007 (with screenshots and step-by-step instructions).

See solution in other versions:

Question: In Microsoft Access 2007, how can I change the background color of a text box containing a date value on a Continuous Form? I would like to set the color individually on each record.

For example, if I had a field called Expiration_Date, I would like to change the color of this field only on the records where the date is older than today. Can this be done?

Answer: This can be accomplished with Conditional Formatting.

To do this, open the form in design view. Right click on the text box that you wish to conditionally format. Select “Conditional Formatting” from the popup menu. In this example, we want to conditionally format the Expiration_Date.

Microsoft Access

A Conditional Formatting window should appear. Select “Field Value Is” from the Condition1 combo box. Select “less than” from the next combo box and enter the following formula in the third field:

Now()

Microsoft Access

Next, select the formatting that you’d like to apply when this condition is met. We’ve chosen to change the background color to red when the Expiration_Date is less than the current system date/time.

Click on the OK button.

Microsoft Access

Now, when you view your Continuous Form, the records whose Expiration_Date is older than the current system date/time will display a red background.

You can apply this technique to change the forecolor of the text field as well.

SET UP A TEXT BOX TO FLASH RED/BLACK WHEN A DATE IS PAST DUE

This MSAccess tutorial explains how to set up a text box to flash red/black when a date is past due in Access 2007 (with screenshots and step-by-step instructions).

See solution in other versions:

Question: In Microsoft Access 2007, I’ve built a database for my office use. My problem is how do I make the fore color in the date field flash red and black whenever the date is overdue?

Answer: To set up an object to flash red and black, you need to place VBA code on the Form’s “On Timer” event.

First, select the “On Timer” property on the Form. A button with 3 dots should appear to the right. Click on this button.

Microsoft Access

When the Choose Builder window appears, highlight Code Builder and click on the OK button.

Microsoft Access

Next, insert code on the “On Timer” event as follows:

Private Sub Form_Timer()

   If [Required_Date] < Date Then
      If [Required_Date].ForeColor = vbRed Then
         [Required_Date].ForeColor = vbBlack
      Else
         [Required_Date].ForeColor = vbRed
      End If
   End If
   
End Sub

In this example, the VBA will flash the Required_Date field (ie: forecolor) as red/black if the date is overdue.

Microsoft Access

Next, you need to set the Timer Interval. Go back to the Properties for the Form and set the “Timer Interval” property.

Microsoft Access

In this example, we’ve set the Timer Interval to 1000 milliseconds which is equivalent to 1 second. So the color of the Required_Date field will flash red/black every 1 second.

You can set the Timer Interval to any value between 0 and 2,147,483,647, as appropriate.

SET UP A TEXT BOX TO DISPLAY THE DIFFERENCE BETWEEN TWO DATES (DISPLAY VALUE OF 1 IF DATES ARE THE SAME)

This MSAccess tutorial explains how to set up a text box to display the difference between two dates in Access 2007 (with screenshots and step-by-step instructions).

See solution in other versions:

Question: In an Access 2007 Form or Report, I’d like to calculate/display the difference between 2 date fields (From_Date and To_Date). I want to display the number of days between ‘From_Date’ and ‘To_Date’, and if the dates are the same date, I’d like to display the result as 1.

Answer: You can create a Text Box on your Form or Report. Then set the Control Source property of the Text Box to the following formula:

=IIf([From_Date]=[To_Date],1,DateDiff("d",[From_Date],[To_Date]))

Microsoft Access

CREATE A QUERY THAT ACCEPTS “START” DATE AND “END” DATE AS PARAMETERS

This MSAccess tutorial explains how to create a query that accepts a start date and an end date as parameters in Access 2003 (with screenshots and step-by-step instructions).

Question: In Microsoft Access 2007/XP/2000/97, I’m trying to run a query based on a date. When the query opens, I would like some type of window prompting for the user to enter a “start” date and an “end” date. How can I do this?

Answer: You can create a parameter query that prompts for both a “start” date and an “end” date.

To do this, first create your query.

Microsoft Access

Then enter your “start” date and “end” date parameters. Parameters should be enclosed in [] brackets as follows:

>=[Start Date] And <=[End Date]

This will create a parameter called [Start Date] and a parameter called [End Date]. So that only those records from the Orders table will be returned where the OrderDate field is between these two dates.

Next, you probably want to ensure that the user enters a valid date in these two parameters. To do this, select Parameters under the Query menu.

Microsoft Access

When the Query Parameters window appears, enter the two parameters [Start Date] and [End Date], and select Date/Time as the data type. Click on the OK button.

Microsoft Access

Now, when you run the query, you will be prompted to enter the “start” date.

Microsoft Access

Then prompted to enter the “end” date.

Microsoft Access

Your query will then only return the records where the OrderDate is between these two values.

Bangladeshi Currency to word

Function CurrencyToWord(ByVal MyNumber)
Dim Temp
Dim Taka, Paisa As String
Dim DecimalPlace, iCount
Dim Hundred, Words As String

Dim ch As String
Dim i As Integer
Dim count As Integer

ReDim Place(9) As String
Place(0) = ” Thousand ”
Place(2) = ” Lakh ”
Place(4) = ” Crore ”
Place(6) = ” Arab ”
Place(8) = ” Kharab ”
On Error Resume Next
‘ Convert MyNumber to a string, trimming extra spaces.

MyNumber = Trim(Str(MyNumber))
‘==========================Modified================================
‘ count “.” if it is more than 1
For i = 1 To Len(MyNumber)
If Mid$(MyNumber, i, 1) = “.” Then
count = count + 1
If count > 1 Then
CurrencyToWord = “Invalid Currency….!”
Exit Function
End If
End If
Next i
‘ check all the digits are numbers
Alldigits = True
For i = 1 To Len(MyNumber)
‘ See if the next character is a non-digit.
ch = Mid$(MyNumber, i, 1)
If ch < “0” Or ch > “9” Or ch = “.” Then
If ch <> “.” Then
‘ This is not a digit.
Alldigits = False
Exit For
End If
End If
Next i

If Alldigits = False Then
CurrencyToWord = “Invalid Currency….!”
Exit Function
End If
‘====================================================================

‘ Find decimal place.
DecimalPlace = InStr(MyNumber, “.”)
‘==========================Modified==================================
If DecimalPlace = 0 Then
If Len(MyNumber) > 13 Then
CurrencyToWord = “Value is too large, Function accepts 13 digits before decimal point”
Exit Function
End If
End If
‘====================================================================
‘ If we find decimal place…
If DecimalPlace > 0 Then
‘==========================Modified==================================
If DecimalPlace > 14 Then
CurrencyToWord = “Value is too large, Function accepts 13 digits before decimal point”
Exit Function
End If
‘====================================================================
‘ Convert Paisa
Temp = Left(Mid(MyNumber, DecimalPlace + 1) & “00”, 2)
Paisa = ” and ” & ConvertTens(Temp) & ” Paisa Only”

‘ Strip off paisa from remainder to convert.
MyNumber = Trim(Left(MyNumber, DecimalPlace – 1))
End If

‘ Convert last 3 digits of MyNumber to Rupees in word.
Hundred = ConvertHundred(Right(MyNumber, 3))
‘==========================Modified============
If Len(MyNumber) <= 2 Then
‘ Append leading zeros to number.
MyNumber = Right(“000” & MyNumber, 3)
MyNumber = Left(MyNumber, Len(MyNumber) – 3)
Else
‘ Strip off last three digits
MyNumber = Left(MyNumber, Len(MyNumber) – 3)
End If
‘====================================================================
iCount = 0
Do While MyNumber <> “”
‘Strip last two digits
Temp = Right(MyNumber, 2)
If Len(MyNumber) = 1 Then
Words = ConvertDigit(Temp) & Place(iCount) & Words
MyNumber = Right(MyNumber, Len(MyNumber) – 1)

Else
‘==========================Modified==================================
If Temp <> “00” Then
Words = ConvertTens(Temp) & Place(iCount) & Words
MyNumber = Left(MyNumber, Len(MyNumber) – 2)
Else
MyNumber = Left(MyNumber, Len(MyNumber) – 2)
End If
End If
iCount = iCount + 2
Loop

If Paisa = “” Then
CurrencyToWord = “” & Words & Hundred & ” Taka Only.”
Else
CurrencyToWord = “Taka ” & Words & Hundred & Paisa
End If
‘=====================================================================
End Function

‘ Conversion for Hundred
‘*****************************************
Private Function ConvertHundred(ByVal MyNumber)
Dim Result As String

‘ Exit if there is nothing to convert.
If Val(MyNumber) = 0 Then Exit Function

‘ Append leading zeros to number.
MyNumber = Right(“000” & MyNumber, 3)

‘ Do we have a Hundred place digit to convert?
If Left(MyNumber, 1) <> “0” Then
Result = ConvertDigit(Left(MyNumber, 1)) & ” Hundred ”
End If

‘ Do we have a tens place digit to convert?
If Mid(MyNumber, 2, 1) <> “0” Then
Result = Result & ConvertTens(Mid(MyNumber, 2))
Else
‘ If not, then convert the ones place digit.
Result = Result & ConvertDigit(Mid(MyNumber, 3))
End If

ConvertHundred = Trim(Result)
End Function

‘ Conversion for tens
‘*****************************************
Private Function ConvertTens(ByVal MyTens)
Dim Result As String

‘ Is value between 10 and 19?
If Val(Left(MyTens, 1)) = 1 Then
Select Case Val(MyTens)
Case 10: Result = “Ten”
Case 11: Result = “Eleven”
Case 12: Result = “Twelve”
Case 13: Result = “Thirteen”
Case 14: Result = “Fourteen”
Case 15: Result = “Fifteen”
Case 16: Result = “Sixteen”
Case 17: Result = “Seventeen”
Case 18: Result = “Eighteen”
Case 19: Result = “Nineteen”
Case Else
End Select
Else
‘ .. otherwise it’s between 20 and 99.
Select Case Val(Left(MyTens, 1))
Case 2: Result = “Twenty ”
Case 3: Result = “Thirty ”
Case 4: Result = “Forty ”
Case 5: Result = “Fifty ”
Case 6: Result = “Sixty ”
Case 7: Result = “Seventy ”
Case 8: Result = “Eighty ”
Case 9: Result = “Ninety ”
Case Else
End Select

‘ Convert ones place digit.
Result = Result & ConvertDigit(Right(MyTens, 1))
End If

ConvertTens = Result
End Function

Private Function ConvertDigit(ByVal MyDigit)
Select Case Val(MyDigit)
Case 1: ConvertDigit = “One”
Case 2: ConvertDigit = “Two”
Case 3: ConvertDigit = “Three”
Case 4: ConvertDigit = “Four”
Case 5: ConvertDigit = “Five”
Case 6: ConvertDigit = “Six”
Case 7: ConvertDigit = “Seven”
Case 8: ConvertDigit = “Eight”
Case 9: ConvertDigit = “Nine”
Case Else: ConvertDigit = “”
End Select
End Function

কীবোর্ড এর ফাংশন কী F 1 -F 12 গুলোর কাজ কীবোর্ড এর ফাংশন কী F 1 -F 12 গুলোর কাজ

আমরা সবাই কম বেশি কম্পিউটার ব্যবহার করি. কিন্ত অনেকেই জানিনা কীবোর্ড এর f1 – f10 পর্যন্ত অর্থাৎ ফাংশন কী গুলোর কাজ কি
আজ এই সম্পর্কে বলছি

Continue reading

Stutdown Your PC in 1 Sec

আমরা যারা উইন্ডোস ৮, ৮.১ ব্যবহার করি বিশেষ করে ৮ এর ক্ষেএে শাটডাউন করার জন্য ৩ থেকে ৪ টা ক্লিক দিতে হয়। অনেক সময় বিরক্ত লাগে তাই আপনাদের জন্য ছোট একটি শর্টকার্ট কোড আমি আপনাদেরকে দিব যেটা মাধ্যমে ১ ক্লিক এ পিসি শাটডাউন করতে পারবেন।
১। প্রথমে ডেক্সটপে মাউস এর রাইট বাটন চেপে নিউ শর্টকার্ট এ কিল্ক দেন
২। এবার এই কোডটুকু কপি করুন অথবা লিখুন
shutdown /s /t 0
তারপর নেক্সট করে ফিনিস করে দিন।
৩। ব্যাস কাজ শেষ। ডেক্সটপে যে শর্টকাট এসেছে এটাই হচ্ছে ১ কিল্ক শাটডাউন । কোড টার শেষে টি এর পড়ে আমি ০ দিয়েছি তার মানে ০ সেকেন্ডের ভিতরে শাটডাউন হবে,এভাবে ১ দিলে ১ সেকেন্ড পর । শর্টকাট টির প্রপারট্রিক্স এ গিয়ে আইকন পরিবর্তন করে শাটডাউন এর আইকন দিতে পারেন।