Jag har en control array och det ska bara gå att skriva samma sifferkombination (tex 15) en gång, alltså när jag trycker på en knapp så säger den till om det finns flera av samma. Nån som kan ge mig ett litet tips kanske.... Hej ÄR det så här du menar?Dublett kontroll
Sv: Dublett kontroll
Finns lite olika sätt att angripa problemmet så här gör jag
On Error Resume Next
Load Label1(1)
Label1(1).Visible = True
If Err = 360 Then
MsgBox "Objektet är redan laddat"
On Error GoTo 0
/SvenSv: Dublett kontroll
<code>
Private Sub Command1_Click()
Dim Index As Long
Dim SubIndex As Long
Dim strResult As String
For Index = Text1.LBound To Text1.UBound - 1
For SubIndex = Index + 1 To Text1.UBound
If Text1(Index) = Text1(SubIndex) Then
strResult = strResult & vbCrLf & Text1(Index)
End If
Next
Next
If Len(strResult) Then
MsgBox "Du har angivit: " & strResult & vbCrLf & "flera gånger"
Else
'Gör det du skall göras
End If
End Sub
</code>