listbox again!

[[DBH]Longbow]

hy, why is this code wrong?

vberror: "13"


help

Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const LB_FINDSTRING = &H18F
Private Const LB_FINDSTRINGEXACT = &H1A2

Private Sub Command1_Click()
Dim startfrompoint As Long
Dim firstFind As Long
Dim DatumAdd1 As Currency

startfrompoint = -1 'immer von ganz oben suchen
DatumAdd1 = txtDateadd1.Text

firstFind = SendMessage(ListReminderAll.hwnd, LB_FINDSTRINGEXACT, startfrompoint, ByVal "f")

If firstFind <> -1 Then
MsgBox "Eintrag gefunden. Index:" & firstFind
Else
ListReminderAll.AddItem DatumAdd1
End If


End Sub

i dont get it!!

thx Longbow

[chrisjk]

On which lines does it stop?

[filburt1]

If that's a type mismatch and it occurs on the line ListReminderAll.AddItem DatumAdd1, then try making it ListReminderAll.AddItem CStr(DatumAdd1).

[[DBH]Longbow]

nope .. doesn't work !!


vb blocked @


DatumAdd1 = txtDateadd1.Text

[filburt1]

Well, like Chris said, which line is it on?

[chrisjk]

Actually I think it's more likely to be this line

DatumAdd1 = txtDateadd1.Text

since DatumAdd1 is a currency type.

[filburt1]

Originally posted by [DBH]Longbow
nope .. doesn't work !!


vb blocked @


DatumAdd1 = txtDateadd1.Text

Then try DatumAdd1 = CDate(txtDateadd1.Text).

[chrisjk]

Originally posted by filburt1


Then try DatumAdd1 = CDate(txtDateadd1.Text).

DatumAdd1 is currency you numnut! Try CCur instead

[[DBH]Longbow]

no ..

what could it be ??
error on same line!!

-> DatumAdd1 = CDate(txtDateadd1.Text)

vb suxx

[Kings]

DatumAdd1 = CCur(txtDateadd1.Text)

What does CCur mean?

[[DBH]Longbow]

sure .. doesnt work!!#


hmm if i kick this ?? would be better!

[chrisjk]

Originally posted by Kings
What does CCur mean?

Should convert expression to currency...does it not?

[filburt1]

Originally posted by Kings
What does CCur mean?

http://msdn.microsoft.com/library/de.../vsfctCCur.asp

[beachbum]

you're all gonna do a collective d]oh!!

firstFind = SendMessage(ListReminderAll.hwnd, _
LB_FINDSTRINGEXACT, startfrompoint, [b]ByVal "f"[/b])

Searching for "f" all the time.

Ok, so the entry if it is a date should be string formatted using dd/mm/yy. If it is currency still convert to a string.

eg

Private Sub Command1_Click()
    Dim startfrompoint As Long
    Dim firstFind As Long
    Dim DatumAdd1 As String
    
    startfrompoint = -1 'immer von ganz oben suchen
    [b]DatumAdd1 = Format$(txtDateadd1.Text, "dd/mm/yy") 'OR "0.00" IF Currency[/b]
    
    firstFind = SendMessage(ListReminderAll.hwnd, LB_FINDSTRINGEXACT, startfrompoint, ByVal [b]Datumadd1[/b])
    If firstFind <> -1 Then
        MsgBox "Eintrag gefunden. Index:" & firstFind
    Else
        ListReminderAll.AddItem DatumAdd1
    End If
End Sub

Regards
Stuart