Olá!

   Preciso muito saber como adicionar mais uma coluna em uma tabela,

no meu BANCO.MDB, em tempo de execução...

 

   A quem puder ajudar, grato.

 

Tenta assim...

 

Dim Banco as Database

Dim Tabela as Recordset

Dim NomeCampo as Field

 

 

Set Banco = DBEngine.Workspaces(0).OpenDatabase(App.Path & "Banco.mdb")

 

'Aqui cria o campo que vc quer dentro da tabela

Set NomeCampo = Tabela.CreateField()

'Aqui ele joga na tabela

NomeCampo.Name = "NomeCampo"

NomeCampo.Required = True

NomeCampo.Type = dbText

 

'Anexa os campos com a tabela

Tabela.Fields.Append NomeCampo

 

Acho que é isso.....

 

obs: vc pode mudar o "NomeCampo" para fone, cpf ou algo parecido....No meu exemplo o meu banco de dados se chama "Banco" e a tabela se chama "Tabela"....

 

   K-ra, é isso aí!!

   Vc já reparou q alguns Label q explicam um CheckBox, quando

clicamos nele o próprio CheckBox é selecionado?

   Pois bem; consegui reproduzir este efeito, porém quando clico

no Label, ele não fica com aquele contorno pontilhado, que ge-

ralmente fica nos programas.

   C tb sober de algo, valeu...

 

Como assim.....Vc quer tipo deixar destacado a label?.....

   Sim!  Quando ela estiver em foco...

 

   Tipo aquele contorno pontilhado que fica dentro do CommandButton

quando ele também está em foco.

 

o que vc pode fazer é criar um quadrado em volta da label e deixar a visibilidade dele falso.....quando a label ganhar foco vc poe a visibilidade verdadeira.....configura a borda do quadrado como pontilhado vai ficar mais legal...