Hi and Hello
I just wonder where to put the click event of a commandbutton
in this code, the command button is for the alphebet and are
indexed from 0 to 28
Dim startpos, extpos
Dim Entry As ADRDATA, NumRecs, i
Dim tmpStr As String
Dim strDatum As String
'Dim x
'For x = 0 To 28 '*********************** Equal to the alphabet
' SSCommand2(x).ForeColor = vbblue
' Next
FileNum = FreeFile
Open DATAFILE For Random As #FileNum Len = Len(Entry)
CommFileNum = FreeFile
Open COMMENTSFILE For Binary As #CommFileNum
NumRecs = LOF(FileNum) / Len(Entry)
For i = 1 To NumRecs
Get #FileNum, i, Entry
If Not Entry.Deleted Then
tmpStr = Trim$(Entry.EfterNamn) & ", " & Trim$(Entry.FörNamn)
'****** efternamn = surename Förnamn = forname
AdressLista.AddItem tmpStr
'****** adresslista = adresslist
AdressLista.ItemData(AdressLista.NewIndex) = i
End If
TotProdId = TotProdId + 1
If AdressLista.ListCount > 0 Then AdressLista.ListIndex = 0
Next