Возврат каретки как запись поля Access 2007 VBA - PullRequest
Новая
       19

Возврат каретки как запись поля Access 2007 VBA

2 голосов
/ 02 марта 2012

У меня есть форма в Excel, с которой я хотел бы обновить список SharePoint. Я обнаружил, что самый простой / законный / выполнимый способ - связать список SharePoint с базой данных Access и обновить его из Excel. Я получил его, чтобы обновить список, но я могу получить доступ, чтобы сохранить возврат каретки. Я пробовал vbCrLf, Chr (13) и Chr (10) и / n (синтаксис C, очевидно, не работал). Я попытался написать их как есть, и с "", но с "" он записывает их дословно (конечно) .. Я попытался добавить возврат каретки в переменную и в строку, чтобы создать поле. Я застрял! Вот фрагмент моего кода: 

 ProblemStatement = txtProblem.Value & vbCrLf
    SolutionStatement = txtSolution.Value & vbCrLf
    Set oAcc = CreateObject("Access.Application")

    'Open Database in Microsoft Access window
     oAcc.OpenCurrentDatabase "C:\Documents and Settings\ecook\MyDocuments\NoneArchived.accdb", True

    oAcc.Visible = False

    'Create a Recordset based on <Table name>
    Set rstTable = oAcc.CurrentDb.OpenRecordset("NoneArchived")
    With rstTable
      .AddNew
        ![PrintedPassdown] = ProblemStatement & _
        SolutionStatement & _
        Maintenance
        ![ToolSet] = ToolSet
        ![Tool] = Chamber

      .Update
    End With


    oAcc.Application.Quit
    Set oAcc = Nothing
Workbooks(MyWorkbook).Activate

У меня также проблема с закрытием приложения Access. БД закрывается, но не приложение ... Весело! Буду очень признателен за вашу помощь. CookieCoder

...