Я пытаюсь передать текстовое поле пользовательской формы длиной более 255 символов в поле MS Access через параметр.Я не могу сделать это, учитывая длину символов в моем текстовом поле, что приводит к ошибке во время выполнения.Я хотел бы избежать написания инструкции SQL непосредственно в моем макросеЕсть ли способ обойти это ограничение без использования ADO?
CODE
Sub updateRecord()
Dim db As Database
Dim qdf As QueryDef
Application.StatusBar = "Connecting to PBS Database......"
Set db = OpenDatabase("Z:\UBPB CRM Project\pbsbackup.mdb")
Set qdf = db.QueryDefs("addclient")
Application.CalculateUntilAsyncQueriesDone
Application.StatusBar = "Uploading Client Data to PBS server...."
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
qdf!pbsbranch = Sheet4.Range("A2")
qdf!pbsclient = addnewClient.client
qdf!pbspriority = addnewClient.priority_
qdf!pbssource = addnewClient.priority
qdf!pbscontact = addnewClient.contact
qdf!pbsresult = addnewClient.result
qdf!pbsnextsteps = addnewClient.segmentType
qdf!pbsattempts = addnewClient.Label11
qdf!pbsnotes = addnewClient.notes
qdf.Execute dbFailOnError
qdf.Close
db.Close
Application.StatusBar = "Upload Successful!"
Set qdf = Nothing
Set db = Nothing
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub