Search:

Type: Posts; User: jpark

Page 1 of 2 1 2

Search: Search took 0.19 seconds.

  1. Replies
    2
    Views
    501

    Right mouse click on the TreeView control, and...

    Right mouse click on the TreeView control, and select properties menu.
    Uncheck the HideSelection option.
    This makes selected node dimmed after the treeview lost focus.
    You can see which node has...
  2. Thread: Access 2000

    by jpark
    Replies
    1
    Views
    287

    Check out this previous post ...

    Check out this previous post

    http://www.vb-world.net/ubb/Forum3/HTML/002679.html

    For DAO, reference MS DAO 3.6 Object Library

    For ADO, use MS Jet 4.0 OLE DB Provider

    For dealing with...
  3. Thread: Listview

    by jpark
    Replies
    4
    Views
    393

    Assuming that the sztemp contains 5 strings that...

    Assuming that the sztemp contains 5 strings that are seperated by space.(e.g sztemp = "Hello Hutty, How are you?")

    This'll add 5 row items to column 1
    ==========================================...
  4. Replies
    1
    Views
    728

    Goto project => References... and select ...

    Goto project => References... and select
    Microsoft Remote Data Object 2.0

    Joon
  5. Replies
    2
    Views
    571

    ListView1.SelectedItem.ListSubItems(1).Text ...

    ListView1.SelectedItem.ListSubItems(1).Text


    Joon
  6. Replies
    4
    Views
    570

    Why don't we just post code without code tag? ...

    Why don't we just post code without code tag?

    It's hard to read and paste it as one long line.

    I usally highlight code part by bold it, or you can post it like this

    =============
    code
    here...
  7. Replies
    7
    Views
    636

    I've just got test out your code, and didn't get...

    I've just got test out your code, and didn't get any error.

    I use ADO and Access2000.(If Access97, then the provider should be Provider = Microsoft.Jet.OLEDB.3.51)

    Option Explicit
    Private cn...
  8. Replies
    21
    Views
    856

    Code Public Function RemQMark(strTest As...

    Code

    Public Function RemQMark(strTest As String) As String
    'Test for illegal SQL characters (' or ") in company name
    Dim intI As Integer, intL As Integer, intE As Integer
    Dim strMsg...
  9. Sorry if that didn't work out. If you post your...

    Sorry if that didn't work out.
    If you post your code, it'll be better for me to fix the problem.

    However, try this example.


    ' You need 4 TextBoxes

    Private flgInvalidInput As Boolean
  10. You can make a flag to indicate validation of...

    You can make a flag to indicate validation of input.


    'On the Form Module
    private flagInvalidInput as Boolean

    Private Sub txtWHCode_LostFocus()

    'Code for getting Warehouse Name
  11. Thread: Help

    by jpark
    Replies
    1
    Views
    501

    What do you want to do? maybe I can help you....

    What do you want to do?

    maybe I can help you.

    Joon
  12. Thread: Listview focus

    by jpark
    Replies
    3
    Views
    745

    ListView1.SelectedItem.EnsureVisible Joon

    ListView1.SelectedItem.EnsureVisible

    Joon
  13. Replies
    1
    Views
    831

    If it's ok try to use collection. Dim...

    If it's ok try to use collection.


    Dim testCol As New Collection
    testCol.Add "1"
    testCol.Add "2"
    testCol.Add "3"
    testCol.Add "4"
    testCol.Add "5"
    testCol.Add "6"
  14. Thread: Type mismatch

    by jpark
    Replies
    1
    Views
    658

    I have created an Active DLL, and added standard...

    I have created an Active DLL, and added standard EXE project that references the Active DLL.
    On my EXE project, I'm trying to create object, but it give me a "Type mismatch error"

    Here's my code...
  15. Thread: ListView Control

    by jpark
    Replies
    5
    Views
    663

    put ListView1.ListItems.Clear before adding...

    put ListView1.ListItems.Clear before adding ListItems.

    Joon
  16. Replies
    4
    Views
    713

    Or Try this Dim txtControl As Control Dim...

    Or Try this


    Dim txtControl As Control
    Dim lblControl As Control

    For Each varControl In Form1.Controls
    If TypeOf varControl Is TextBox Then
    If (varControl.name <> "txtdate_terminated"...
  17. Thread: Button Clicking

    by jpark
    Replies
    2
    Views
    499

    Use a Check Box, and set Style to 1-Graphical ...

    Use a Check Box, and set Style to 1-Graphical


    Private Sub Check1_Click()

    If Check1.Value Then
    Text1.Visible = False
    Text2.Visible = False
    Else
    Text1.Visible = True
  18. Replies
    5
    Views
    488

    Lyla, You are right. It dose not produce a...

    Lyla, You are right.

    It dose not produce a correct answer.

    Mark, If u had already been used my code (I don't think you are, though), I'm sorry that I suggested you the incorrect code.

    Joon
  19. Replies
    5
    Views
    488

    Input must include "/". ex) "3/22/70" ...

    Input must include "/". ex) "3/22/70"
    otherwise, use MaskEdBox control to mask it.



    Private Sub Text1_KeyPress(KeyAscii As Integer)
    Dim HowOld As String

    If KeyAscii = vbKeyReturn Then...
  20. Replies
    7
    Views
    1,166

    Just for minimize all windows Place a...

    Just for minimize all windows

    Place a CommandButton onto Form1.

    Copy and paste the following code into Form1's Code Window.



    Private Declare Sub keybd_event Lib "user32" ( _
    ByVal bVk...
  21. Thread: text box

    by jpark
    Replies
    3
    Views
    1,256

    Sorry, that was just my code for moving focus to...

    Sorry, that was just my code for moving focus to next control. :)

    Should be this

    If KeyAscii = 13 Then
    KeyAscii = 0
    ' Run ur Code here
    End If

    Joon
  22. Thread: text box

    by jpark
    Replies
    3
    Views
    1,256

    Insert KeyAscii = 0 when Enter Key is detected. ...

    Insert KeyAscii = 0 when Enter Key is detected.

    If KeyAscii = 13 Then
    KeyAscii = 0
    SendKeys "{TAB}"
    End If

    Joon
  23. Thread: Null Values

    by jpark
    Replies
    3
    Views
    373

    You can check null value with...

    You can check null value with IsNull(rsCustomer("Addr2")), or use Text1 = rsCustomer("Addr2") & "" to avoid null error.

    Joon
  24. Thread: Combo Box

    by jpark
    Replies
    1
    Views
    960

    How about TreeView? :)

    How about TreeView? :)
  25. Replies
    3
    Views
    1,120

    Private Sub txt1_KeyPress(KeyAscii As Integer) '...

    Private Sub txt1_KeyPress(KeyAscii As Integer)
    ' Allow only "(34), '(39), .(46), 0~9(48~57)
    ' I also allow "Backspace"(8)

    If KeyAscii <> 34 And KeyAscii <> 39 And KeyAscii <> 46 _
    ...
  26. Replies
    2
    Views
    459

    Post part of ur code. In one of my project, I...

    Post part of ur code.

    In one of my project, I have done same thing with no problem.

    my code is like this

    Private Sub txtCust_GotFocus(Index As Integer)
    '** Change BackColor to white
    ...
  27. Replies
    4
    Views
    532

    Copy JHausmann's code and paste it, and try...

    Copy JHausmann's code and paste it, and try again.

    Your changed code isn't exactly what JHausmann gave to you.

    The single quote shouldn't be there.

    Joon
  28. Replies
    9
    Views
    1,828

    mhayenga, I don't think it's a great deal, but...

    mhayenga,

    I don't think it's a great deal, but it still takes some of special characters, which ascii number is less than character "9"

    If u want to allow only numbers in the textbox, u have to...
  29. Replies
    9
    Views
    1,828

    Private Sub Text1_KeyPress(KeyAscii As Integer) ...

    Private Sub Text1_KeyPress(KeyAscii As Integer)
    If (KeyAscii >= 33 And KeyAscii <= 47) Or (KeyAscii >= 58 And KeyAscii <= 126) Then
    KeyAscii = 0
    End If
    End Sub


    HTH...
  30. Replies
    2
    Views
    3,846

    Clear mask first, then clear text. ...

    Clear mask first, then clear text.


    MaskEdBox1.Mask = ""
    MaskEdBox1 = ""
    MaskEdBox1.Mask = "(###)###-####"


    Joon
  31. Replies
    9
    Views
    874

    and somemore.... It's from MSDN for "!"(for...

    and somemore....

    It's from MSDN for "!"(for VB)

    The type-declaration character for Single is the exclamation point (!).

    so, dim i as Single = dim i!

    Or
  32. Replies
    5
    Views
    1,283

    Change ur variable data type, so that it can hold...

    Change ur variable data type, so that it can hold bigger number.

    Check out this early post.

    http://www.vb-world.net/ubb/Forum1/HTML/012219.html

    order of storage size : ...
  33. Replies
    7
    Views
    1,273

    U get an "Run-time Error: 380", cuz the procedure...

    U get an "Run-time Error: 380", cuz the procedure trying to set txtViewTable.SelLength to negative value when it didn't find matched item in the list.

    Try this

    Private Sub listTables_Click()...
  34. Replies
    7
    Views
    1,038

    Private Function IsEmail(email As String) As...

    Private Function IsEmail(email As String) As Boolean
    Dim firstAt As Integer
    Dim firstDot As Integer

    firstAt = InStr(1, email, "@")
    firstDot = InStr(1, email, ".")

    If firstAt > 0 And...
  35. Replies
    4
    Views
    622

    A form receives the focus only when all visible...

    A form receives the focus only when all visible controls are disabled.

    Try this example

    Have 2 forms and on the form1 place a command button.


    Private Sub Form_Click()
    Form1.SetFocus
    End...
  36. Thread: Cursor

    by jpark
    Replies
    4
    Views
    977

    Why do u have to make the sub for every textbox?...

    Why do u have to make the sub for every textbox? Make one and call it for each textbox's GotFocus event.

    Textbox control array example

    On the Form, draw a TextBox, and name it.
    (In this...
  37. Thread: Cursor

    by jpark
    Replies
    4
    Views
    977

    It would much easier if u created those textboxes...

    It would much easier if u created those textboxes as control array in first place.
    Just place the code in one sub
    Private Sub txtOrder_GotFocus(Index as Integer)
    h& = GetFocus&(): sb& =...
  38. Replies
    5
    Views
    966

    Set ComboBox style to 2-Dropdown List, and add...

    Set ComboBox style to 2-Dropdown List, and add all array items to comboBox.



    Private Sub Form_Load()
    myArr(0) = "Setting"
    myArr(1) = "Close"
    myArr(2) = "Testing"

    ...
  39. Thread: Multi Form .

    by jpark
    Replies
    2
    Views
    593

    Try below code, and hope this is what u want. ...

    Try below code, and hope this is what u want.

    On Form1, u have more than two, but let's say there's 2 buttons


    Option Explicit
    Private pvarButton As CommandButton

    Property Get GetButton()...
  40. Thread: Multi Form .

    by jpark
    Replies
    2
    Views
    538

    Try below code, and hope this is what u want. ...

    Try below code, and hope this is what u want.

    On Form1, u have more than two, but let's say there's 2 buttons


    Option Explicit
    Private pvarButton As CommandButton

    Property Get GetButton()...
Results 1 to 40 of 55
Page 1 of 2 1 2



Click Here to Expand Forum to Full Width