[Resolvidos]Formas de inserir e carregar dados por meio de formulários desvinculados

Olá,

Tenho uma dúvida menos técnica e mais conceitual sobre o uso de formularios em BD do MS-ACCESS.

Sempre, nos BDs que tenho feito, tenho utilizado fomularios de entrada de dados acoplados diretamente à tabelas, ou à consultas seleção, usadas nestes caso basicamente como para filtrar determinadas caracteristicas.

Tenho pensado em usar fomularios desacoplados, que enviam dados atraves de recursos avançados e codigos VBA, porém não tenho certeza se isso é uma boa solução.

Por isso gostaria de saber dos mestres como vocês tem utilizado este recurso, de forma geral.

obrigado desde já,

Grande abraço.

Ola bom dia !

Na minha modesta opinião, carregar os dados por vba é pouco seguro ao invés de um formulario vinculado a uma tabela ou consulta.
Por vezes a demora a carregar é maior e pode provocar erros, ou até paragem dos códigos.

Já no adicionar dados através de um formulario totalmente desvinculado, é o contrário.
Mais rápido, mais seguro e eficiente.

Particularmente utilizo assim, para inserir:

Private Sub cmdInsere_Click()
Dim StrSQL As String
DoCmd.SetWarnings False
StrSQL = "INSERT INTO tblExemplo ( txtNome, DataIni, DataFim ) " _
& "SELECT '" & Me![txtNome] & "' AS F1, #" _
& Format(Me![txtDataInicio], "mm/dd/yy") & "# AS F2, #" & Format(Me![txtDataFim], "mm/dd/yy") & "# AS F3;"
DoCmd.RunSQL StrSQL
DoCmd.SetWarnings True
MsgBox "Registo Adicionado com sucesso !!!"
End Sub


Para carregar dados através de um formulario desvinculado, utilizo;

Private Sub Form_Current()
On Error Resume Next

Dim rs As ADODB.Recordset
Dim strSQL As String

strSQL = "SELECT * FROM SuaTabela "

Set rs = CreateObject("ADODB.Recordset")
rs.Open strSQL, CurrentProject.Connection

If Not rs.BOF Then
Me.CampoID = rs("CampoID")
Me.Campo1 = rs("Campo1")
Me.Campo2 = rs("Campo2")
Me.Campo3 = rs("Campo3")
Me.Campo4 = rs("Campo4")
Me.Campo5 = rs("Campo5")
Me.Campo6 = rs("Campo6")
Me.Campo7 = rs("Campo7")
End If
rs.Close
Set rs = Nothing
End Sub

A opinião de todos é a solução para um trabalho mais eficaz, por isso vamos aguardar que outras feras coloquem aqui a sua bem vinda opinião.

obrigado JP por compartilhar seu ponto de vista...
achei bem interessante e prático. vamos aguardar outros colegas entao....

abraços.

Por vezes, utilizo formulários vinculados mas, a maior parte das vezes utilizo instrução SQL tipo Currentdb.Execute instruçãoSQL tendo o cuidado de validar os dados antes de executar a instrução.

Legal Alexandre,
Não tenho muita intimidade com o SQL mas com a sua explicação, penso que já é hora de ter.
obrigado.

Excelente dica do Alexandre;

A instrução é nestes moldes, espero que ajude:

Private Sub Command0_Click()
CurrentDb.Execute "INSERT INTO [tblExemplo] (Campo1, Campo2, Campo3) VALUES (" & Campo1SeNumerico & " , '" & Campo2SeTexto & "',#" & Campo3SeData & "#);"
End Sub