Propriedade ToggleButton.ColumnOrder (Access)

Use a propriedade ColumnOrder para especificar a ordem das colunas na exibição Datasheet. número inteiro de leitura/gravação.

Sintaxe

expressão. ColumnOrder

Expressão Uma variável que representa um objeto ToggleButton .

Comentários

Para definir ou alterar essa propriedade para uma tabela ou consulta usando o Visual Basic, você deve usar o conjunto de Propriedades de uma coluna. Para obter mais informações sobre como usar a coleção Propriedades , consulte Propriedades.

[!OBSERVAçãO] A propriedade ColumnOrder não está disponível no modo Design.

A propriedade ColumnOrder se aplica a todos os campos no modo folha de dados e aos controles de formulário quando o formulário está no modo folha de dados.

No modo de folha de dados, a configuração da propriedade ColumnOrder um campo é determinada pela posição do campo. Por exemplo, o campo na coluna mais à esquerda no modo folha de dados tem uma configuração de propriedade ColumnOrder de 1, o próximo campo tem uma configuração de 2 e assim por diante. Alterando a propriedade ColumnOrder de um campo redefine a propriedade para esse campo e para cada campo à esquerda da sua posição original no modo folha de dados.

Nos outros modos, a configuração da propriedade é 0, a menos que você altere explicitamente a ordem de um ou mais campos no modo de folha de dados (seja arrastando os campos para novas posições ou alterar suas configurações de propriedade ColumnOrder ). Campos à direita da nova de posição do campo movido terão uma definição de propriedade de 0 nos modos de exibição que não seja o modo folha de dados.

A ordem dos campos no modo de folha de dados não afeta a ordem dos campos no modo de design da tabela ou modo de formulário.

Exemplo

O exemplo a seguir exibe os campos ProductName e QuantityPerUnit nas duas primeiras colunas na exibição Datasheet do formulário Produtos .

Forms!Products!ProductName.ColumnOrder = 1 
Forms!Products!QuantityPerUnit.ColumnOrder = 2

O exemplo a seguir exibe os campos ProductName e QuantityPerUnit nas duas primeiras colunas da tabela Produtos na exibição Datasheet. Para definir a propriedade ColumnOrder , o exemplo usa o procedimento SetFieldProperty . Se esse procedimento for executado enquanto a tabela estiver aberta, as alterações não serão exibidas até que ele é fechado e reabri-lo.

Public Sub SetColumnOrder() 
 
 Dim dbs As DAO.Database 
 Dim tdf As DAO.TableDef 
 
 Set dbs = CurrentDb 
 Set tdf = dbs!Products 
 
 ' Call the procedure to set the ColumnOrder property. 
 SetFieldProperty tdf!ProductName, "ColumnOrder", dbLong, 2 
 SetFieldProperty tdf!QuantityPerUnit, "ColumnOrder", dbLong, 3 
 
 Set tdf = Nothing 
 Set dbs = Nothing 
 
End Sub 
 
Private Sub SetFieldProperty(ByRef fld As DAO.Field, _ 
 ByVal strPropertyName As String, _ 
 ByVal intPropertyType As Integer, _ 
 ByVal varPropertyValue As Variant) 
 ' Set field property without producing nonrecoverable run-time error. 
 
 Const conErrPropertyNotFound = 3270 
 Dim prp As Property 
 
 ' Turn off error handling. 
 On Error Resume Next 
 
 fld.Properties(strPropertyName) = varPropertyValue 
 
 ' Check for errors in setting the property. 
 If Err <> 0 Then 
 If Err <> conErrPropertyNotFound Then 
 On Error GoTo 0 
 MsgBox "Couldn't set property '" & strPropertyName & _ 
 "' on field '" & fld.Name & "'", vbCritical 
 Else 
 On Error GoTo 0 
 Set prp = fld.CreateProperty(strPropertyName, intPropertyType, _ 
 varPropertyValue) 
 fld.Properties.Append prp 
 End If 
 End If 
 
 Set prp = Nothing 
 
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.