|
|
Postada em 18/08/2005 10:57 hs
Bom dia pessoal, Preciso criar uma tabela no ACCESS com diversos campos "string". Quando crio uma nova tabela por padrão os campos do tipo "string" ficam com a propriedade de não aceitar valor nulo, mas preciso que aceite... NULL Alguem saberia como fazer isso??? Att |
|
|
|
|
|
VACA
|
LIMEIRA
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 18/08/2005 11:25 hs
Dim tabela As TableDef
Dim campo As Field
'Pra campos
On Error Resume Next
Set tabeladef = db.TableDefs!<tabela>
Set campo = tabeladef!<campo>
If Err And Err.Description <> "No error." Then
Set campo = tabeladef.CreateField("<campo>", <tamanho>)
campo.Attributes = dbAutoIncrField 'tipo, no caso autonumeraçao
tabeladef.Fields.Append campo 'criar campo
End If
'Pra tabelas
On Error Resume Next
Set tabeladef = db.TableDefs!protocolo_exportacao
If Err And Err.Description <> "No error." Then
db.Execute ("create table <nome da tabela>(<campo> DATE)")
db.Execute ("create table <nome tabela>(<campo> LONG)")
End 'finalisa o programa pq c naum dah pau
End If
'long e date saum os tipos do campo
"Quando estou fraco, aí então é que sou Poderoso"
|
|
|
|
Cavalheiro
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 18/08/2005 14:49 hs
Se vc tiver usando o access, qdo vc cria a tabela vc pode definir nas suas propriedades e colocar "sim" na propriedade "permitir comprimento zero" e vc permitira que seja grvado valores nulos no campo em quetão e pra garantir é só não fazer nenhuma critica na hora de grvar o registroTé mais...
_______________________________________________ Depto de Águas e Energia Elétrica do Estado de São Paulo
Programador
Presidente Prudente-SP
http://vbprudente.blogspot.com
|
|
|
|
Rochª
|
RIO DE JANEIRO
RJ - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 18/08/2005 15:04 hs
Tente assim Global Def_tabela As TableDef, Def_campo As Field Global arq_aux as database
Set Def_tabela = arq_aux.CreateTableDef("NOME_TABELA") 'Definicao do campo Set Def_campo = Def_tabela.CreateField("NOME_CAMPO")
Def_campo.Type = dbtext ' pode ver dbmemo, dbbyte e etc
Def_campo.Attributes = dbFixedField
Def_campo.Size = 30
Def_campo.DefaultValue = ""
Def_campo.AllowZeroLength = True
' Repete mudando o nome do campo e as propriedades.
Def_tabela.Fields.Append Def_campo 'Cria os campos na tabela
arq_aux.TableDefs.Append Def_campo
'cria a tabela no banco arq_aux.TableDefs.Append Def_tabela
__________________________________________________________________________ Qualquer coisa post Rochª
|
|
|
|
xe
|
MOGI MIRIM
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 07/06/2006 09:57 hs
Bom dia, Muito obrigado pela ajuda.. Att Gustavo |
|
|
|
Maricelia Maria
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 27/05/2008 21:15 hs
Olá,
Estou me iniciando ainda na programação em access. Aliás, só agora estou tendo necessidades de trabalhar nisso....
Tenho uma tabela gerada com NOME, E-MAIL.
Quero que assim que o usuário clicar um botão em um formulário, o próprio prog envie os e-mails um a um automaticamente.
Estou como ACCESS 2003 em minha máquina.
A versão 2007 seria mais fácil de trabalhar com isso?
Obrigada!
|
|
|
|
