[Resolvido]CRIAR CHAVE PRIMÁRIA, VIA CÓDIGO VBA

Alo amigos,
Cá estou eu novamente pedindo "help".

Seguinte, quando executo a rotina abaixo, é criada uma nova tabela sequencial,
conforme o valor de I. Até aí, tudo bem.
Só que a tabela fica sem chave primária.

Minha pergunta:
Como faço para, via código, criar por exemplo, a tabela com o campo F1 como
chave primária.

É possível cria-se uma tabela via VB, com chave primária ?
Como crio a tabela com um campo sendo chave ?

Agradeço à todos que me auxiliarem.
Abraço
==============================================================================
'Gerar estrutura das tabelas DEFINITIVAS das faturas
Set db = CurrentDb
For I = 1 To QtPlan
Set rs1 = Nothing
Set tdfNew = db.CreateTableDef("FatBRT_" & ArqSemExt(I))
With tdfNew
.Fields.Append .CreateField("F1", dbLong)
.Fields.Append .CreateField("F2", dbText, 100)
.Fields.Append .CreateField("F3", dbText, 100)
.Fields.Append .CreateField("F4", dbText, 100)
.Fields.Append .CreateField("F5", dbText, 100)
.Fields.Append .CreateField("F6", dbText, 100)
.Fields.Append .CreateField("F7", dbDate)
.Fields.Append .CreateField("F8", dbText, 100)
.Fields.Append .CreateField("F9", dbText, 100)
.Fields.Append .CreateField("F10", dbDouble)
.Fields.Append .CreateField("F11", dbText, 1)
.Fields.Append .CreateField("F12", dbDate)
db.TableDefs.Append tdfNew
End With
Next I

Não testei mas penso que será:

With tdfNew
.Fields.Append .CreateField("F1", dbLong)
.Primary = True
.Fields.Append .CreateField("F2", dbText, 100)
.Fields.Append .CreateField("F3", dbText, 100)
.Fields.Append .CreateField("F4", dbText, 100)
.Fields.Append .CreateField("F5", dbText, 100)
.Fields.Append .CreateField("F6", dbText, 100)
.Fields.Append .CreateField("F7", dbDate)
.Fields.Append .CreateField("F8", dbText, 100)
.Fields.Append .CreateField("F9", dbText, 100)
.Fields.Append .CreateField("F10", dbDouble)
.Fields.Append .CreateField("F11", dbText, 1)
.Fields.Append .CreateField("F12", dbDate)

Prezado JPaulo,

Não funcionou a sua sugestão.
Ocorre um erro cuja mensagem diz:
Erro de compilação:
Método ou membro de dados não encontrado.
Será que temos alternativas ?
Será que é viável a criação de chave primária, via VBA ?

(enviei a mensagem em anexo).

Abraço

Teste assim, mas ainda não entendo o que faz ae o Set rs1 = Nothing

Dim strIndex As Index
Set db = CurrentDb
For I = 1 To QtPlan
Set rs1 = Nothing
Set tdfnew = db.CreateTableDef("FatBRT_" & ArqSemExt(I))
With tdfnew
Set strIndex = .CreateIndex("PrimaryKey")
With strIndex
.Fields.Append .CreateField("F1")
.Primary = True
.Unique = True
.Fields.Append .CreateField("F2", dbText, 100)
.Fields.Append .CreateField("F3", dbText, 100)
.Fields.Append .CreateField("F4", dbText, 100)
.Fields.Append .CreateField("F5", dbText, 100)
.Fields.Append .CreateField("F6", dbText, 100)
.Fields.Append .CreateField("F7", dbDate)
.Fields.Append .CreateField("F8", dbText, 100)
.Fields.Append .CreateField("F9", dbText, 100)
.Fields.Append .CreateField("F10", dbDouble)
.Fields.Append .CreateField("F11", dbText, 1)
.Fields.Append .CreateField("F12", dbDate)
db.TableDefs.Append tdfnew
End With
.Indexes.Append strIndex
.Indexes.Refresh
End With
Next I

JPaulo,

Continua ocorrendo erro, mas agora outra modalidade.

na linha: db.TableDefs.Append tdfNew
está ocorrendo a seguinte mensagem:

erro em tempo de execução - 3264:
Nenhum campo definido - não é possível acrescentar Tabledef ou Index.

Quanto ao seu questionamento relativo ao "ser rs1=nothing", a minha idéia era
de após reiniciar novo loop, para criação de nova tabela, estar com o recordset
sempre vazio (até acho que não seria necessário....)

Abraço

Oi Domingos,

A regra 12 do Fórum, que trata sobre o uso de letras maiúsculas, também se aplica ao título do tópico, ou seja, evite escrever o título todo em letras maiúsculas.

Cumprimentos.

Alo Dilson,

Desculpe-me pelo "ato falho", mas só pensei na "estética do título" e jamais
em estar "gritando" (embora seja o significado).

A partir de agora cumprirei fielmente as normas.

Abraço

Eu deduzi isso também, jamais tive malicias.

Abração!

Domingos, coloque parte do seu banco num site publico para eu ver isso, pelo que vejo falta qualquer coisa ae no codigo.

JPaulo,

Segue abaixo o link.

Abraço


http://www.megaupload.com/?d=P61SDFFX

Bom final de semana.

Download

JPaulo,

Muito grato pela atenção na solução do problema.
(meus conhecimentos só estão enriquecendo nessas trocas
através do fórum).

Funcionou tudo bem na criação da tabela.

Abraço e um ótimo final de semana.

Obrigado pelo retorno o forum agradece.