Кодирование VBA для определения «х» текстовое поле, чтобы быть неизменяемыми после источника DLookUp

Question

мне нужно, что после того, как этот код писать результаты поиска, что одни и те же поля становятся недоступными для редактирования, а затем сосредоточиться на «Texto696»

Это то, что у меня есть до сих пор.

UPDATE DE MARCA, MODELO, MOTORIZAÇÃO, ANO INICIO, ANO FIM, DATA MATRICULA, NUMERO DE PORTAS E COMBUSTIVEL QUANDO VFV EXISTIR

Private Sub Comando713_Click() 
If Not IsNull(Me!Texto689.Value) Then 
    Me!Combinação65.Value = DLookup("[MARCA]", "[CONSULTA DE VFV INSERIR PEÇAS]") 
    Me!Combinação69.Value = DLookup("[MODELO]", "[CONSULTA DE VFV INSERIR PEÇAS]") 
    Me!Texto73.Value = DLookup("[ANO INICIAL]", "[CONSULTA DE VFV INSERIR PEÇAS]") 
    Me!Texto75.Value = DLookup("[ANO FINAL]", "[CONSULTA DE VFV INSERIR PEÇAS]") 
    Me!Texto137.Value = DLookup("[MOTORIZAÇÃO]", "[CONSULTA DE VFV INSERIR PEÇAS]") 
    Me!Combinação611.Value = DLookup("[NUMERO DE PORTAS]", "[CONSULTA DE VFV INSERIR PEÇAS]") 
    Me!Texto137.Value = DLookup("[MOTORIZAÇÃO]", "[CONSULTA DE VFV INSERIR PEÇAS]") 
    Me!Texto445.Value = DLookup("[CODIGO MOTOR]", "[CONSULTA DE VFV INSERIR PEÇAS]") 
    Me!Combinação435.Value = DLookup("[COMBUSTIVEL]", "[CONSULTA DE VFV INSERIR PEÇAS]") 
    Me.Texto696.SetFocus 
End If 

End Sub

Я сделал тест этот код и ничего не происходит, по-прежнему доступны для редактирования.

Me.Combinação65.AllowValueListEdits = False 

Answer 1

Вы можете использовать .Locked = True свойство над элементами управления, чтобы запретить пользователям изменять данные. Вы также можете использовать свойство .Enabled = False, чтобы запретить пользователям использовать элемент управления вообще.

Private Sub Comando713_Click() 

If Not IsNull(Me!Texto689.Value) Then 

    ' Get values 

    Me!Combinação65.Value = DLookup("[MARCA]", "[CONSULTA DE VFV INSERIR PEÇAS]") 
    Me!Combinação69.Value = DLookup("[MODELO]", "[CONSULTA DE VFV INSERIR PEÇAS]") 
    Me!Texto73.Value = DLookup("[ANO INICIAL]", "[CONSULTA DE VFV INSERIR PEÇAS]") 
    Me!Texto75.Value = DLookup("[ANO FINAL]", "[CONSULTA DE VFV INSERIR PEÇAS]") 
    Me!Texto137.Value = DLookup("[MOTORIZAÇÃO]", "[CONSULTA DE VFV INSERIR PEÇAS]") 
    Me!Combinação611.Value = DLookup("[NUMERO DE PORTAS]", "[CONSULTA DE VFV INSERIR PEÇAS]") 
    Me!Texto137.Value = DLookup("[MOTORIZAÇÃO]", "[CONSULTA DE VFV INSERIR PEÇAS]") 
    Me!Texto445.Value = DLookup("[CODIGO MOTOR]", "[CONSULTA DE VFV INSERIR PEÇAS]") 
    Me!Combinação435.Value = DLookup("[COMBUSTIVEL]", "[CONSULTA DE VFV INSERIR PEÇAS]") 

    ' Make controls non-editable 

    Me!Combinação65.Locked = True 
    Me!Combinação69.Locked = True 
    Me!Texto73.Locked = True 
    Me!Texto75.Locked = True 
    Me!Texto137.Locked = True 
    Me!Combinação611.Locked = True 
    Me!Texto137.Locked = True 
    Me!Texto445.Locked = True 
    Me!Combinação435.Locked = True 

    Me!Combinação65.Enabled = False 
    Me!Combinação69.Enabled = False 
    Me!Texto73.Enabled = False 
    Me!Texto75.Enabled = False 
    Me!Texto137.Enabled = False 
    Me!Combinação611.Enabled = False 
    Me!Texto137.Enabled = False 
    Me!Texto445.Enabled = False 
    Me!Combinação435.Enabled = False 

    Me.Texto696.SetFocus 

End If