Получение ошибки (3163) на MS Access 2003

Question

Ошибка говорит: «Это поле слишком мало, чтобы принять объем данных, которые вы пытались добавить. Попробуйте вставить или вставить меньше данных».

База данных должна извлекать информацию из листа Excel, которая передается ей, и импортировать информацию в набор записей текстового поля. Однако текстовое поле, расположенное где-то вниз, ограничено 50 символами. Как изменить максимальный размер текстового поля? Спасибо за любую помощь

Это только часть коды, и текстовое поле, я пытаюсь сделать больше в «Idea_ #», которая является последней строкой коды я разместил

Sub Read_Recommendations () On Error GoTo ERROR_CODE дим FD Как Office.FileDialog Тусклое xlapp As Excel.Application Тусклое xlsheet Как Excel.Worksheet дим xlbook Как Excel.Workbook

Dim db As Database 
Dim rs As Recordset 
Dim sql As String 

Dim WP As String 
Dim row As Integer 

Dim File As String 
Set db = CurrentDb 

Set FD = Application.FileDialog(msoFileDialogOpen) 
If FD.Show = True Then 
    File = FD.SelectedItems(1) 
    Set xlapp = CreateObject("Excel.Application") 
    Set xlbook = GetObject(File) 
    Set xlsheet = xlbook.Worksheets("Recommendation Approval Form") 

    Dim protection As Boolean 
    With xlsheet 

     'support unprotected worksheets 
     protection = xlsheet.ProtectContents 
     If protection Then xlsheet.Unprotect "veproject" 

     WP = .Range("WP_Number") 
     ' Check that active WP and the WP of the uploading form is the same 
     ' If WPs are different, awares users and prompts user whether or not to continue 
     Dim DifferentProject As String 
     If Not get_WP = WP Then 
      DifferentProject = MsgBox("You are uploading to the project with WP number: " & WP & " which is not the active project. Do you wish to continue?", vbYesNo) 
      If DifferentProject = 7 Then Exit Sub 
     End If 

     ' Check that WP is correct by checking if it exists in the Record Information table 

     ' delete the existing recomendations, we want to keep the most recent recomendations 
     ' perhaps change this to a dialog in the future 
     sql = "DELETE * from tbl_recomendations WHERE WP_Number = '" & WP & "'" 

     db.Execute (sql) 
     row = 8 

     Set rs = db.OpenRecordset("tbl_recomendations") 
     Do While .Range("D" & row) <> "" 
      rs.AddNew 
      rs("WP_Number") = WP 
      rs("Idea_#") = (.Range("C" & row)) 

........

Answer 1

В режиме доступа открыта tbl_recomendations в дизайне. Это звучит как Размер поля свойства для Idea_# установлено на 50. Вы можете изменить это до 255.

Если вам нужно хранить более 255 символов в Idea_#, изменить его тип данных из Текста до Записка.