2012-05-04 1 views
3

Я постоянно получаю «Несоответствие типов данных» при запуске этого в доступе 2007,несоответствие типов VBA Редактор данных

Я смотрел на нее некоторое время и не могу понять это.

Private Sub Combo7_AfterUpdate() 
    Dim clString As Integer 
    clString = Me![Combo7].Value 
    strSQL = "SELECT [Categorized Tables].[Name of Table] " & _ 
      "INTO [catTemp] " & _ 
      "FROM [Categorized Tables] " & _ 
      "WHERE [Categorized Tables].[Category] = " & clString 
    DoCmd.SetWarnings False 
    DoCmd.RunSQL strSQL 
    DoCmd.SetWarnings True 
End Sub 

Отладчик указывает на строку strCQL DoCmd.RunSQL.

У кого-нибудь есть идея, где я ошибаюсь?

+3

Попробуйте 'clString = Val (Me [Combo7] .Value!)' –

+0

что фик его спасибо! – BadgerBeaz

+0

@Siddharth Вы должны разместить это как ответ вместо этого. – JimmyPena

ответ

0

Ответа на этот вопрос Сиддхарт Мамаевом:

"Попробуйте clString = Val(Me![Combo7].Value)"