listbox again!

hy, why is this code wrong?

vberror: "13"


help :confused: :confused:

Code:

---

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

On which lines does it stop?

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

nope .. doesn't work !! :confused:


vb blocked @


DatumAdd1 = txtDateadd1.Text

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

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

VB Code:

DatumAdd1 = txtDateadd1.Text

since DatumAdd1 is a currency type.

Quote:

---

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


vb blocked @


DatumAdd1 = txtDateadd1.Text

---

Then try DatumAdd1 = CDate(txtDateadd1.Text).

Quote:

---

Originally posted by filburt1


Then try DatumAdd1 = CDate(txtDateadd1.Text).

---

DatumAdd1 is currency you numnut!;) Try CCur instead

no .. :(

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

-> DatumAdd1 = CDate(txtDateadd1.Text)

Code:

---

vb suxx

---

VB Code:

DatumAdd1 = CCur(txtDateadd1.Text)

What does CCur mean?

sure .. doesnt work!!#


hmm if i kick this ?? would be better!

Quote:

---

Originally posted by Kings
What does CCur mean?

---

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

Quote:

---

Originally posted by Kings
What does CCur mean?

---

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

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

VB Code:

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

VB Code:

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