Jag håller på och gör ett hobby mäklarprogram. Det går ut på att man får fylla i lite uppgifter (bl.a. genom kryssrutor, alternativknappar och listrutor) om den blivande bostaden. När det är klart så ska man trycka på sökknappen och en lista med de matchande svaren ska visa resultaten (helst i en listbox). Hur gör jag, det jag har problem med är själva sökmotorn och ett sätt att få upp de matchande alternativen (inte som nu genom msgbox). Hoppas på svar så fort som möjligt... Tack på förhand ps. du kan även i allmänt ge synpunkter på koden ds.

LITE KOD:
<code>
Dim rumantal As Integer

Private Sub Command2_Click()
End
End Sub

Private Sub sök_Click()
For i = 1 To 15 ' Max 25!
T_läge = objekt(i).läge
T_typ = objekt(i).Typ
T_rum = objekt(i).rum
T_adress = objekt(i).Adress

If objekt(i).rum = rumantal Then MsgBox ("En/ett " & objekt(i).Typ & " med " & rumantal & " rum finns på: " & objekt(i).Adress & " finns " & objekt(i).läge)

Next i
End Sub
Private Sub rum_Click(Index As Integer)
rumantal = Index
End Sub

Private Sub Form_Load()


objekt(1).läge = "Centralt"
objekt(1).Typ = "Våning"
objekt(1).rum = 1
objekt(1).Adress = "A-gatan 1"

objekt(2).läge = "Förort"
objekt(2).Typ = "Villa"
objekt(2).rum = 2
objekt(2).Adress = "B-gatan 2"

objekt(3).läge = "Lantligt"
objekt(3).Typ = "Radhus"
objekt(3).rum = 2
objekt(3).Adress = "C-gatan 3"

objekt(4).läge = "Centralt"
objekt(4).Typ = "Våning"
objekt(4).rum = 3
objekt(4).Adress = "D-gatan 4"

objekt(5).läge = "Centralt"
objekt(5).Typ = "Villa"
objekt(5).rum = 4
objekt(5).Adress = "E-gatan 5"

objekt(6).läge = "Förort"
objekt(6).Typ = "Radhus"
objekt(6).rum = 2
objekt(6).Adress = "F-gatan 6"

objekt(7).läge = "Lantligt"
objekt(7).Typ = "Radhus"
objekt(7).rum = 4
objekt(7).Adress = "G-gatan 7"

objekt(8).läge = "Centralt"
objekt(8).Typ = "Villa"
objekt(8).rum = 3
objekt(8).Adress = "H-gatan 8"


objekt(9).läge = "Lantligt"
objekt(9).Typ = "Våning"
objekt(9).rum = 4
objekt(9).Adress = "I-gatan 9"

objekt(10).läge = "Lantligt"
objekt(10).Typ = "Villa"
objekt(10).rum = 5
objekt(10).Adress = "J-gatan 10"

objekt(11).läge = "Centralt"
objekt(11).Typ = "Våning"
objekt(11).rum = 5
objekt(11).Adress = "K-gatan 11"

objekt(12).läge = "Förort"
objekt(12).Typ = "Villa"
objekt(12).rum = 5
objekt(12).Adress = "L-gatan 12"

objekt(13).läge = "Centralt"
objekt(13).Typ = "Radhus"
objekt(13).rum = 4
objekt(13).Adress = "M-gatan 13"

objekt(14).läge = "Förort"
objekt(14).Typ = "Våning"
objekt(14).rum = 1
objekt(14).Adress = "N-gatan 14"

objekt(15).läge = "Lantligt"
objekt(15).Typ = "Villa"
objekt(15).rum = 3
objekt(15).Adress = "O-gatan 15"

End Sub




Modul
Type objekt_typ ' Ett paket med data
läge As String
Typ As String
rum As Integer
Adress As String
End Type

Public objekt(25) As objekt_typ ' Plats för 25 paket
</code>


Kommentarer
modulen kanske saknar nåt? jag behöver hjälp...

Hej, jag skulle bara vilja veta vartifrån du får rumantal för det ser jag inte. Förmodar att det är en textbox och då är värdet variant. Din rutin kan spricka på att du jämför äpplen å päron, använd istället cInt för att konvertera båda värdena likvärdigt...

<code>
maxobjekt = ubound(objekt) - 1
For i = 1 To maxobjekt

rumantal = text1.text

If cInt(objekt(i).rum) = cInt(rumantal) Then
T_läge = objekt(i).läge
T_typ = objekt(i).Typ
T_rum = objekt(i).rum
T_adress = objekt(i).Adress

' visa en messagebox för varje träff...
MsgBox ("En/ett " & objekt(i).Typ & " med " & rumantal & " rum finns på: " & objekt(i).Adress & " finns " & objekt(i).läge)
end if

Next i
</code>

Ps. Varför i fridens namn la du in din fråga i tips & tricks???? Jag har nu i alla fall tagit bort detta...

Hälsningar
/Pelle