|
|
Postada em 21/07/2008 17:13 hs
Dim venda_b(1) As Field
fd = "vendab"
Set td = td.TableDefs("vendab")
Set venda_b(0) = td.CreateField("n_lote", dbText, 30) : vz (0)
td.Fields.Append venda_b(0) MsgBox "Processo terminado", vbInformation, "Informação" End Sub
Function vz(opc As Integer)
If opc = 1 Then
fd.Required = True
fd.AllowZeroLength = True
End If
tb.Fields.Append fd
End Function
Pessoal uso o access 97. Montei uma rotina para criar os campos automaticamente em meu banco de dados. Só que alguns campo, o PERMITIR COMPRIMENTO ZERO deveria ser SIM. e tanto faz eu coloca 0 ou 1 na programação não dá certo. Alguem poderia me ajudar? Abraços Vanderlei A M Lamazale |
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 21/07/2008 17:33 hs
Não sei vanderlei mas crio minhas tabelas um pouco diferente veja em um módulo: Global DB As Database
Global TB As TableDef
Global FD(1) As Field
Global IX As Index
Public Sub CriarTabelas() Set TB = DB.CreateTableDef("vendab") ' cria a tabela com nome "tbclientes"
Set FD(0) = TB.CreateField("n_lote", dbText): vz (0) ' não permite que seja vazio
'
' O código a seguir cria uma chave primária na tabela
'
DB.TableDefs.Append TB
Set IX= TB.CreateIndex("idxlote")
Set FD(0)= IX.CreateField("n_lote") ' isto indica que o campo "n_lote" sera a chave primaria
IX.Fields.Append FD IX.Primary = True TB.Indexes.Append IX End Sub Function vz(opc As Integer)
If opc = 1 Then
FD(0).Required = True
FD(0).AllowZeroLength = True
End If
TB.Fields.Append FD(0)
End Function ai basta chamar no form assim: CriarTabelas |
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 21/07/2008 17:42 hs
No caso, eu preciso criar apenas os campos que quero. E nao uma tabela. |
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 21/07/2008 17:50 hs
Desculpe tenta isto Function vz(opc As Integer)If opc = 1 Then venda_b(0).Required = Truevenda_b(0).AllowZeroLength = TrueEnd Iftb.Fields.Append venda_b(0) End Function |
|
TÓPICO EDITADO
|
|
|
|
Donkey
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 21/07/2008 20:02 hs
alter table tabela add nome campo tipo
ex:
alter table cad_clientes add bairro varchar(50) not null default ''
Cria o campo bairro com 50 caracteres do tipo varchar, onde nao pode ser vazio....
t+
|
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 21/07/2008 20:17 hs
Onde eu programaria isso? |
|
|
|
