[Resolvido]Gravar o Nome do Rótulo em vez do nome do control

Olá, ótimo dia a todos.
Tenho o código abaixo que grava o ctl.name na tabela de log, e preciso que grave o nome(label) do rótulo associado ao ctl

Por exemplo: Tenho o campo texto127 com o dado DATAINICIAL, associado a este campo está o Rótulo128, cujo nome (label) é DATA INICIAL, no código abaixo está gravando (ctl.name)texto127 no log e eu gostaria que gravasse DATA INICIAL(label do Rótulo128).

Linha de gravação:
strSQL = "INSERT INTO tblLog (Utilizador, LogData, NomeForm, NomeCampo, ValorAntigo, ValorAtual, Status) Values('" & strUser & "', Now(),'" & Screen.ActiveForm.Form.Name & "','" & ctl.Name & "','" & ctl.OldValue & "','" & ctl.Value & "','" & "Registro Alterado" & "')"


Código inteiro:
Public Sub gravalog()
Dim strChekaDiferente As Boolean
Dim strSQL As String
Dim ctl As Control
Dim strUser As String
'Importante: Todos os botões de navegação devem conter a
'chamada de toda esta instrução.
'O form não deve ter o botão fechar ativo, deve colocar um botão para esse efeito e chamar a instrução.

strChekaDiferente = False
strUser = GetUserName_TSB
If NewRecord Then 'verifica se é um novo registro, se for registra com novo
strChekaDiferente = True

For Each ctl In Screen.ActiveForm.Form.Controls
' Percorre todos os tipos de controles
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox
If ctl.Locked = False Then
DoCmd.SetWarnings False
If Nz(ctl.Value, "") <> Nz(ctl.OldValue, "") Then

strSQL = "INSERT INTO tblLog (Utilizador, LogData, NomeForm, NomeCampo, ValorAntigo, ValorAtual, Status) Values('" & strUser & "', Now(),'" & Screen.ActiveForm.Form.Name & "','" & ctl.Name & "','" & "" & "','" & ctl & "','" & "Novo Registro" & "')"
DoCmd.RunSQL strSQL

strChekaDiferente = False
End If
End If
End Select
Next ctl

Else
' se não for um novo registro, coloca a variável de chekar alterações como False
strChekaDiferente = False

For Each ctl In Screen.ActiveForm.Form.Controls
' Percorre todos os tipos de controles
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox
If ctl.Locked = False Then
'On Error Resume Next
If Nz(ctl.Value, "") <> Nz(ctl.OldValue, "") Then
' se algum valor foi alterado ou deletado, coloca a variável de chekar alterações como True
strChekaDiferente = True
'e registra na tabela do Log
DoCmd.SetWarnings False
strSQL = "INSERT INTO tblLog (Utilizador, LogData, NomeForm, NomeCampo, ValorAntigo, ValorAtual, Status) Values('" & strUser & "', Now(),'" & Screen.ActiveForm.Form.Name & "','" & ctl.Name & "','" & ctl.OldValue & "','" & ctl.Value & "','" & "Registro Alterado" & "')"
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
'termina e volta a colocar a variável de chekar alterações como False
strChekaDiferente = False
Else
Cancel = True
End If
End If
End Select
Next ctl
End If
'Salva tudo o que foi feito
DoCmd.RunCommand acCmdSaveRecord

End Sub

Não funcionou diz que não aceita. Mas tentei este abaixo:
ctl.Properties("LabelName")
e gravou o rótulo correspondente no form, Rótulo128, porém preciso gravar o Label ou caption deste rótulo128

Marcelo,

Inclua o tipo label nesta linha:

Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox, acLabel

Para obter o valor do label, utilize a propriedade "Caption".

Só para tirar dúvida, faça um teste com essa rotina:

Código:



Public Sub teste()
Dim ctl As Control
Dim vDados As String
   
    For Each ctl In Me.Controls
        Select Case ctl.ControlType
            Case acTextBox
                ctl.SetFocus
                vDados = ctl.Text
                MsgBox "TextBox = " & vDados & ""
            Case acComboBox
                ctl.SetFocus
                vDados = ctl.Text
                MsgBox "ComboBox = " & vDados & ""
            Case acListBox
                vDados = ctl.Text
                MsgBox "ListBox = " & vDados & ""
            Case acOptionGroup
                vDados = ctl.Name
                MsgBox "OptionGroup = " & vDados & ""
            Case acCheckBox
                vDados = ctl.Text
                MsgBox "CheckBox = " & vDados & ""
            Case acLabel
                vDados = ctl.Caption
                MsgBox "Label = " & vDados & ""
        End Select
    Next

End Sub



Copie e cole no seu form, e no Evento Load coloque:

Call teste

O Access irá exibir mensagens com os valores de cada controle.

Espero ter ajudado.

Att,

FIM

O Código Teste funcionou, só alterei a primeira linha para
For Each ctl In SCreen.ActiveForm.Controls
porém ele passa separadamente pelo AcLabel,
e o que Preciso é do Caption do acLabel que está na ctl.Properties("LabelName"), sendo que no meu caso o ctl é um AcTextBox, para colocar no log

Não testei, mas teste

ctl.controls(0).caption
ou
ctl.controls(1).caption

Resolvido. Muito obrigado.

O fórum agradece o retorno. Sucesso.