Posts by abu taher which have been Voted Down

you can write this

If Format(Now, "mm/dd/YYYY") >= 29/9/2011 Then
    Msgbox "the software has been expired"
End if
unload me

check it and go ahead.

if you convert 10 to 'ten' then try this
No declarations at all.
1. Create a form and add two textboxes; TextBox1 and TextBox2
2. Add a command button; CommandButton1
3. Copy the code below to the code window.
4. Run the program, enter the number in TextBox1 and click CommandButton1...

Function Getword(strNumber)
Dim strtemp As String
Dim x, y, z As Integer
x = Val(Mid$(strNumber, 1, 1))
y = Val(Mid$(strNumber, 2, 1))
z = Val(Mid$(strNumber, 3, 1))

If Len(strNumber) = 1 Then
        strtemp = strtemp + Whole(Val(strNumber))
        GoTo 20
ElseIf Len(strNumber) = 2 Then
        If x = 1 And y = 0 Then
                strtemp = strtemp + " Ten"
        ElseIf x = 1 And y = 1 Then
                strtemp = strtemp + " Eleven"
                GoTo 20
        ElseIf x = 1 And y = 2 Then
                strtemp = strtemp + " Twelve"
                GoTo 20
        ElseIf x = 1 And y > 2 Then
                strtemp = strtemp + Whole2(y) + "een"
                GoTo 20
        ElseIf x = 0 And y > 0 Then
                strtemp = strtemp + Whole(y)
                GoTo 20
        ElseIf x = 0 And y = 0 Then
                strtemp = ""
                GoTo 20
        Else
                strtemp = Whole2(x) + "y"
                If y > 0 Then strtemp = strtemp + Whole(y)
                GoTo 20
        End If
        
ElseIf Len(strNumber) = 3 Then

        If x > 0 Then strtemp = strtemp + Whole(x) + " Hundred"
        If y = 1 And z > 2 Then
               strtemp = strtemp + Whole2(z) + "een"
               GoTo 20
        ElseIf y = 1 And z = 1 Then
                strtemp = strtemp + " Eleven"
                GoTo 20
        ElseIf y = 1 And z = 2 Then
                strtemp = strtemp + " Twelve"
                GoTo 20
        ElseIf y = 1 And z = 0 Then
                strtemp = strtemp + " Ten"
                GoTo 20
        ElseIf x = 0 And y = 0 And z = 0 Then
                strtemp = ""
                GoTo 20
        Else
        End If
        If y > 0 Then strtemp = strtemp + Whole2(y) + "y"
        If z > 0 Then strtemp = strtemp + Whole(z)
End If
20 Getword = strtemp

End Function

Function Whole(ByVal x As Integer)
    Select Case x
    Case Is = 9
    Whole = " Nine"
    Case 8
    Whole = " Eight"
    Case 7
    Whole = " Seven"
    Case 6
    Whole = " Six"
    Case 5
    Whole = " Five"
    Case 4
    Whole = " Four"
    Case 3
    Whole = " Three"
    Case 2
    Whole = " Two"
    Case 1
    Whole = " One"
    End Select
End Function

Function Whole2(ByVal x As Integer)
    Select Case x
    Case Is = 9
    Whole2 = " Ninet"
    Case 8
    Whole2 = " Eight"
    Case 7
    Whole2 = " Sevent"
    Case 6
    Whole2 = " Sixt"
    Case 5
    Whole2 = " Fift"
    Case 4
    Whole2 = " Fourt"
    Case 3
    Whole2 = " Thirt"
    Case 2
    Whole2 = " Twent"
    End Select
End Function

Private Sub CommandButton1_Click()
Dim bigstrNumber(11)
Dim strAdd As String
Dim strNumber As String
Dim strtemp As String
TextBox1 = Abs(Int(TextBox1))
strNumber = TextBox1.Text
TextBox2 = ""
  bigstrNumber(0) = ""
  bigstrNumber(1) = " Thousand"
  bigstrNumber(2) = " Million"
  bigstrNumber(3) = " Billion"
  bigstrNumber(4) = " Trillion"
  bigstrNumber(5) = " Quadrillion"
  bigstrNumber(6) = " Pentillion"
  bigstrNumber(7) = " Hexillion"
  bigstrNumber(8) = " Qentillion"
  bigstrNumber(9) = " Octillion"
  bigstrNumber(10) = " Nonillion"
  bigstrNumber(11) = " Decillion"

If Len(strNumber) > 3 Then
  Do While i < 36
   m = m + 1
   i = i + 3
   If i >= Len(strNumber) Then Exit Do
  Loop
  c = i - Len(strNumber)
  If c > 0 Then
        For D = 1 To c
                strAdd = strAdd + "0"
        Next D
  Else
  End If
  strNumber = strAdd + strNumber
  k = 1
  For i = 1 To m
        TextBox2 = TextBox2 & Getword(Mid$(strNumber, k, 3))
        If Mid$(strNumber, k, 3) <> "000" Then TextBox2 = TextBox2 & bigstrNumber(m - i)
        k = k + 3
  Next i
Else
End If
TextBox2 = Trim$(TextBox2 & Getword(strNumber))
TextBox1 = Format$(TextBox1, "###,###,###,###,###,###,###,###,###,###,###,###")
End Sub

if you mean this: import data from excel spreadsheet to access table then use this

'replace this "c:\temp\filename.xls" with your excel filename.

Private Sub ImportXLSheets()

Dim WrksheetName As String
Dim i As Integer
Dim xl As Object
Set xl = CreateObject("Excel.Application")

xl.Visible = True
xl.Workbooks.Open "c:\temp\filename.xls"

With xl
.Visible = True
With .Workbooks(.Workbooks.Count)
For i = 1 To .Worksheets.Count
WrksheetName = .Worksheets(i).NAME
DoCmd.TransferSpreadsheet (acImport), acSpreadsheetTypeExcel97, WrksheetName, "c:\temp\filename.xls"
Next i
End With

End With
Set xl = Nothing

End Sub

hello can you help me how to a upload a photo in visual basic 6.0 using image and picture i need this kind of program thank you

start a new thread please

I think scan your computer with anti virus. if your problem will not solve then repair your windows with xp cd