leixnt's Profile User Rating: -----

Reputation: 1 Apprentice
Group:
Members
Active Posts:
30 (0.03 per day)
Joined:
24-July 11
Profile Views:
1,444
Last Active:
User is offline May 13 2013 06:38 AM
Currently:
Offline

Previous Fields

Country:
ID
OS Preference:
Windows
Favorite Browser:
Chrome
Favorite Processor:
Intel
Favorite Gaming Platform:
Playstation
Your Car:
Who Cares
Dream Kudos:
0

Latest Visitors

Icon   leixnt newbie

Posts I've Made

  1. In Topic: How to get the number of sunday from date

    Posted 8 Oct 2012

    use weekday() function & looping to count day from monday-friday

    note:
    weekday() to check what day is it.
    return value (cmiiw)
    1 Sunday
    2 Monday
    3 Tuesday
    4 Wednesday
    5 Thursday
    6 Friday
    7 Saturday
  2. In Topic: Count the number of days between two dates excluding Sun and Sat.

    Posted 8 Oct 2012

    use weekday() function & looping to count day from monday-friday

    note:
    weekday() to check what day is it.
    return value (cmiiw)
    1 Sunday
    2 Monday
    3 Tuesday
    4 Wednesday
    5 Thursday
    6 Friday
    7 Saturday
  3. In Topic: run time error 3709

    Posted 17 Sep 2012

    the code should be like this to run normally

    Dim strUserName As String, strPassword As String
    Dim con As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    
    
    Public Sub OpenCon()
        if con.state = 0 then
        con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\database\enrollment.mdb"
        end if
    End Sub
    
    Private Sub cmdlogin_Click()
    OpenCon
    rs.Open "SELECT * FROM [tbladmin] WHERE [username]= '" & txtUsername.Text & "'", con, adOpenStatic, adLockOptimistic
    
            If rs.RecordCount <> 0 Then
                If rs![Password] = txtPassword.Text Then
                    If rs![user_type] = "Principal" Then
                             
                        MsgBox "The Principal has login", vbOKOnly + vbInformation, "LOGIN"
                            frmMain.Transaction.Visible = True
                            frmMain.Maintenance.Visible = True
                            frmMain.Reports.Visible = True
                            frmMain.Exit.Visible = True
                            frmMain.Others.Visible = True
                            frmMain.Files.Visible = True
                            Login1 = 1
                            'frmMain.Text3 = Text1.Text
                            'frmMain.Text4 = TimeValue(Now)
                        End If
               End If
          End If
    End Sub
    
    
    
    
  4. In Topic: Help with Run Time Error 13

    Posted 17 Sep 2012

    which line code shown error?

    what database are you used?
  5. In Topic: button click in form 1 to display picture in form 2

    Posted 17 Sep 2012

    just write (i assume form 2 appear with picturebox):

    form2.[picturebox name].picture = loadpicture([picture path])

    for example
    picture box name : picture1
    picture path name : C:\picture.jpg

    then u should write like this

    form2.picture1.picture = loadpicture("C:\picture.jpg")
    

My Information

Member Title:
New D.I.C Head
Age:
24 years old
Birthday:
January 6, 1990
Gender:
Location:
Indonesia
Interests:
dota, programming
Full Name:
Hendra
Years Programming:
2
Programming Languages:
VB6, php, java

Contact Information

E-mail:
Click here to e-mail me
Website URL:
Website URL  http://dlplace.com
Yahoo:
Yahoo  hendra_0601
Skype:
Skype  hendra_clg
Facebook:
http://facebook.com/leixnt
Twitter:
leixnt

Friends

leixnt hasn't added any friends yet.

Comments

leixnt has no profile comments yet. Why not say hello?