[Resolvido]Tamanho dos campos.

Olá

Como posso manter um tamanho nos campos e não serem todos iguais, isto de um form com vista folha de dados ?
Obrigado.

Olá AnabelaSousa.

Quero ajudar, mas não ficou muito claro para mim o que exatamente você quer.

Você está se referindo a largura dos campos no modo folha de dados certo?

Se for isso, é só você ajustar para o tamanho desejado através da linha de ajuste que há entre os títulos da cada campo e salva, igual é feito no Excel.

Se não for isso, por favor, me explique de uma outra forma para que eu possa tentar te ajudar.

Olá

Citando o amigo Lindomar:
"Você está se referindo a largura dos campos no modo folha de dados certo?"
Sim é isso mesmo, só que ao ajustar quando volta a entrar já não estão com o tamanho deixado anteriormente. Obrigado.

Boa tarde Anabela

Aqui no forum, neste link

http://www.dropbox.com/s/51vkqgf04sirn95/BloqueiaRedimensionamentoDasColunasDoFormFolhaDados.txt?dl=0

AnabelaSousa

Qual é a versão do Access que você está usando?

Pois, aqui no meu deu certo o teste.
Formulário no modo folha de dados, ajusto o tamanho que quero das colunas e permanece o tamanho após fechar, nem preciso clicar em Salvar.

Estou usando o Access 2016.

Lindomar

Desculpe responder tarde e más horas, desculpe mesmo e obrigado.
Eu utilizo o 2016 no trabalho e 2019 em casa, nos dois faz o mesmo. Obrigado.

Olá Assis

Coloquei o código que indicou, deixa ajustar e fixa as colunas, mas não encontrei o "com visualizar tecla = Sim"... Obrigado. Desculpe responder tarde e más horas, desculpe mesmo e obrigado.

Coloque o formulário, com visualizar tecla = Sim

No evento VBA MouseDown do seu Formulário;


Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'By JPaulo Maximo Access
If Button = acLeftButton Then
MsgBox "Você não pode Redimensionar as Colunas.", vbCritical
End If
If Button = acRightButton Then
MsgBox "Você não pode Redimensionar as Colunas.", vbCritical
End If
If Button = acMiddleButton Then
MsgBox "Você não pode Redimensionar as Colunas.", vbCritical
End If
End Sub

AnabelaSousa,

Se possível, poste o seu BD, talvez fique mais fácil ajudar.

Olá

Resolvido com a sms do amigo Assis. Obrigado e obrigado também ao Lindomar. Obrigado mesmo.