Подскажите PLEASE!
У меня есть готовая Б.Д. с пятью модулями и тремя формами (в общем говоря - это просто красивая заставка). Так вот, я делаю импорт всех этих элементов в мою Б.Д., подразумевая то, что они у меня будут работать, а почему - то ничего не работает. Подключения библиотек проверил. В чем может быть дело? Причем все формы не работают, а выдают ошибки.
:-)

Этот топик я уже читал, у меня все работает на одном компе, и ссылки на библиотеки одни и те же, а если Accessу не хватало бы ссылок, то он и "Готовую Б.Д. с пятью модулями и тремя формами" не запускал бы.
:-)

1. Run time error 13
2. Run time error 2465 Не удается найти поле F0
3. Run time error 7777 Неправильное использование свойства ListIndex

:-)

Для1.
Public Sub InitParam()
Dim tmpRS As Recordset
Set tmpRS = CurrentDb.OpenRecordset("Parameters")
With GameParam
.UserName = tmpRS!UserName
.UserIndex = tmpRS!UserIndex
.CompName = tmpRS!CompName
.CompIndex = tmpRS!CompIndex
.SymbolColor(1) = tmpRS!SymbolColor1
.SymbolColor(2) = tmpRS!SymbolColor2
.Symbol(1) = Asc(tmpRS!Symbol1)
.Symbol(2) = Asc(tmpRS!Symbol2)
End With
tmpRS.Close
End Sub
Для 2.
Private Sub MakeAutoStep()
Dim ButtonName As String
ButtonName = "F" & LTrim(Str(Strategy.Strategy))
Controls(ButtonName).ForeColor = CompColor
Controls(ButtonName).Caption = CompSymbol
Controls(ButtonName).Tag = LTrim(Str(CompIndex))
SetVal CByte(Controls(ButtonName).TabIndex + 1), CompIndex
EmptyButton.SetFocus
End Sub
Для 3.
Private Sub Form_Load()
If UserIndex = 1 Then
ColorXButton.ForeColor = UserColor
ColorOButton.ForeColor = CompColor
Else
ColorXButton.ForeColor = CompColor
ColorOButton.ForeColor = UserColor
End If
GameVariant.SetFocus
GameVariant.ListIndex = UserIndex - 1
End Sub