Hola
Espero me puedan dar alguna solución a este extraño problema
Estoy trabajando con acces 2007, y si quiero a través de código vba asigno cualquier cosa a un campo de texto, por ejemplo un "hola mundo" y no hay problema, cierro la base de datos vuelvo y la abro y todo normal.
pero cuando uso este código pasa lo siguiente: Funciona perfecto hasta que cierro el acces y luego lo vuelvo a abrir y nada queda todo muerto ya ni siquiera un hola mundo se me asigna a los campos asi vuelva y los cree, me toca volver y crear la base de datos pero vuelve y se daña cuando la cierro.
Aqui el código: que lo tengo dentro de un boton cualquiera
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\AdminCS\Desktop\bdprueba1.accdb;Pe rsist Security Info=False"
Set cmd.ActiveConnection = cnn
cmd.CommandText = "SELECT (MAX(Id+1)) AS inc FROM datos"
rs.CursorLocation = adUseClient
rs.Open cmd, , adOpenStatic, adLockBatchOptimistic
vari = CLng(rs.Fields("inc"))
rs.Close
Me.Texto0.SetFocus
Me.Texto0.Text = vari
cnn.Execute "INSERT INTO datos(Id)values (" & vari & ")"
Gracias por su ayuda.