Как я могу передать параметр LONGTEXT, используя DAO? - PullRequest
0 голосов
/ 17 апреля 2019

Я пытаюсь передать текстовое поле пользовательской формы длиной более 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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...