De acordo com Allen Browne, a propriedade do nome do subdataseet é um problema no acesso da Senhora e deve ser desligada. (A propriedade conhecida de Subdatasheet ajustada a [automóvel] deve ser [nenhum].) Ver esta ligação, excerpted abaixo:
http://allenbrowne.com/bug-09.htmlEu acredito que os subdatasheets ainda funcionarão com base nas ligações do mestre e da criança mesmo que a propriedade do nome do subdatasheet seja desligada. Como sempre, certificar-se de você ter apoios adequados antes de fazer alguma mudança.
________________________________________________________________
Tabelas: SubdatasheetName
Em Access 2000, as tabelas começ uma propriedade nova chamada SubdatasheetName. Se a propriedade não é ajustada, opta “[automóvel]”. Sua folha de dados indica a mais o sinal que o usuário pode estalar para indicar registros relacionados de alguma outra tabela que o acesso pensa pode ser útil.
Esta propriedade automaticamente atribuída é herdada pelos formulários e pelos subforms indicados na opinião da folha de dados. Claramente, esta não é uma boa idéia e pode ter conseqüências sem intenção nas aplicações importadas das versões anteriores. Mais mau ainda, há umas edições de desempenho sérias associadas com o carregamento de um formulário que tenha diversos subforms onde o acesso está figurando para fora e está coletando dados de umas tabelas mais relativas do múltiplo.
Além disso, a solução é desligar subdatasheets ajustando a propriedade para “[nenhum]”. Além disso, não há nenhuma maneira de fazer à revelia isto, assim que você deve recordar fazer assim cada vez que você cria uma tabela. Este código dará laços através de suas tabelas e desligará a propriedade:
Função TurnOffSubDataSh ()
DB não ofuscante como DAO.Database
Tdf não ofuscante como DAO.TableDef
Prp não ofuscante como DAO.Property
conPropName de Const = “SubdatasheetName”
conPropValue de Const = “[nenhum]”
Ajustar DB = DBEngine (0) (0)
Para cada tdf em db.TableDefs
Se (tdf. Atributos e dbSystemObject) = 0 então
Se tdf. Conetar = vbNullString e Asc (tdf. Nome) <> 126 então 'não unidos, ou temp.
Se não HasProperty (tdf, conPropName) então
Ajustar o prp = o tdf.CreateProperty (conPropName
, dbText, o conPropValue)
prp do tdf. Properties.Append
Mais
Se tdf. conPropValue das propriedades (
conPropName <> ) então
tdf. Propriedades (conPropName
) = conPropValue
Terminar se
Terminar se
Terminar se
Terminar se
Em seguida
Ajustar o prp = nada
Ajustar o tdf = nada
Ajustar DB = nada
Terminar a função
Função pública HasProperty (obj como o objeto, strPropName como a corda) como bôoleano
'Finalidade: Do retorno retificar se o objeto tem a propriedade.
Escurecer varDummy como a variação
No erro recomeçar em seguida
varDummy = obj. Propriedades (strPropName
)
HasProperty = (Err.Number = 0)
Função do fim