Tengo lo siguientes codigos que mandan a llamar la fecha del server, pero al momento de guardar me aparece el mensaje, aunque en realidad si lo guarda. Solo necesito que ese mensaje no apararezca:
"FIELD NO UPDATABLE, BOUND PROPIERTY NAME:TEXT TEXT, FIELD NAME:CURRENTDATE"
Public Sub RellenarFecha()
Dim cnn4 As New ADODB.Connection
Dim sQuery4 As String
Dim Rs4 As New ADODB.Recordset
With cnn4
.CursorLocation = adUseClient
.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=base_tel;Initial Catalog=base_tel"
.Open
End With
sQuery4 = "SELECT CONVERT(VARCHAR(10), GETDATE(), 103) AS [CurrentDate]"
Rs4.Open sQuery4, cnn4, adOpenForwardOnly, adLockOptimistic
Rs4.ActiveConnection = Nothing
TxtFechaCap2.DataField = "CurrentDate"
Set TxtFechaCap2.DataSource = Rs4
TxtFechaCap.Text = TxtFechaCap2 'este lo puse porque encontre que el error se debia a controles enlazados asi que puse este de mas , pero no funciono
Set Rs4 = Nothing
cnn4.Close
Set cnn4 = Nothing
End Sub
ALGUIEN PUEDE AYUDARME???? PLISS
