I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Private Sub Command1_Click() Dim itm As ListItem With ListView1 Set itm = .FindItem(Text1.Text, lvwText, , lvwPartial) If Not itm Is Nothing Then .ListItems(itm.Index).Selected = True .SetFocus End If End With Set itm = Nothing End Sub
jeg kan ikke rigtig få noget af det til at virke, måske du kunne give lidt mere hjælp. Det er ligemeget hvilken af de 2 jeg bruger, den finder ikke noget.
For Find = 1 To j ListView1.ListItems.Item(Find).Selected = True ListView1.SelectedItem.EnsureVisible If Navn = ListView1.SelectedItem.SubItems(1) Then MsgBox "Personen er allerede i databasen!" Exit Sub End If Next
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
