COMO PASSAR OS VALORES DO CAMPO "DTENTRADA", HR?

USUARIO.EXCLUIDOS 15/02/2005 15:14:34
#67760

Aqui esta a sub que eu estou trabalhando, sou iniciante tenho muitas duvidas.
Gostaria de saber se tem como alguem me ajudar com esse problema.

Obrigado.

Private Sub lsvAcesso_itemClick(ByVal item As MSComctlLib.ListItem)
Dim strimagem As String
strimagem = item.SubItems(lsvAcesso.ColumnHeaders("rg").SubItemIndex) & (lsvAcesso.ColumnHeaders("idvisitante").SubItemIndex) & item.Text
strimagem = objVarConfig.strPathImagem & strimagem & ".jpg"
LoadImagem strimagem, Me.ledAcesso
' If (lsvAcesso.ColumnHeaders("idvisitante").SubItemIndex) <> item.SubItems(lsvAcesso.ColumnHeaders("rg").SubItemIndex) Then
' If MsgBox("Deseja excluir a visita selecionada?", vbInformation + vbYesNo + vbDefaultButton2, "Controle de qtd. de visitas.") Then
' item.ListSubItems.Clear

' End If
' Else
txtAcesso(4).Text = item.SubItems(lsvAcesso.ColumnHeaders("cracha").SubItemIndex)
txtAcesso(5).Text = item.SubItems(lsvAcesso.ColumnHeaders("dtentrada").SubItemIndex)
txtAcesso(6).Text = item.SubItems(lsvAcesso.ColumnHeaders("hrentrada").SubItemIndex)
txtAcesso(8).Text = item.SubItems(lsvAcesso.ColumnHeaders("contato").SubItemIndex)
txtAcesso(9).Text = item.SubItems(lsvAcesso.ColumnHeaders("observacao").SubItemIndex)
' End If

End Sub