Bom dia,
Tenho um form com um campo para preencher o nome que seria o novo modelo de livro, e quando clico no botao criar ele abrisse um form com design padrao para o usuario dar procedimento com o cadastro de itens referente aquele livro.
o codigo que estou usando é o seguinte:
Private Sub Comando0_Click()
Dim novo_modelo As Form
Set novo_modelo = CreateForm("Banco de dados7.accdb", "modelo")
DoCmd.Restore
novo_modelo.RecordSource = "modelo"
End Sub
porem ao executar ele abre um form em branco e em modo design. Segue o link abaixo para download do exemplo.
https://mega.nz/#!8fB3CARb
Tenho um form com um campo para preencher o nome que seria o novo modelo de livro, e quando clico no botao criar ele abrisse um form com design padrao para o usuario dar procedimento com o cadastro de itens referente aquele livro.
o codigo que estou usando é o seguinte:
Private Sub Comando0_Click()
Dim novo_modelo As Form
Set novo_modelo = CreateForm("Banco de dados7.accdb", "modelo")
DoCmd.Restore
novo_modelo.RecordSource = "modelo"
End Sub
porem ao executar ele abre um form em branco e em modo design. Segue o link abaixo para download do exemplo.
https://mega.nz/#!8fB3CARb