в этом примере я закоментировал сообщения, которыми проверял:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
Option Explicit
Public fileSrv As String, fileLocal As String
Private Sub cmbSrvFind_Click()
Me.cboSrvClient.Text = OpenDialogFileName
'Me.cboSrvClient.DefaultValue = OpenDialogFileName
End Sub
Private Sub Command1_Click()
cboFileClient = OpenDialogFileName
End Sub
Private Sub Command2_Click()
Dim retval As Long ' возвращаемое значение
' копируем файл
retval = CopyFile(Me.cboSrvClient.Text, Me.cboFileClient.Text, 0 )
If retval = 0 Then ' если ошибка
MsgBox "Не могу скопировать файл "
Else ' если все нормально
MsgBox "Файл скопирован."
End If
End Sub
Private Sub Form_Load()
If Me.cboSrvClient.Tag <> "" Then
Me.cboSrvClient.Text = Me.cboSrvClient.Tag
'MsgBox "В момент открытия программы свойство Tag текстбокса имеет значение: " & Me.cboSrvClient.Tag
Else
'MsgBox "В момент открытия программы свойство Tag текстбокса пустое!"
End If
fileSrv = Me.cboSrvClient.Text
Dim ws As DAO.Workspace, db As DAO.Database, rs As DAO.Recordset
Set ws = DBEngine( 0 )
Set db = ws.OpenDatabase(fileSrv)
On Error GoTo LblError
Dim strSQL As String
strSQL = "SELECT tblVersions.NewID, tblVersions.NewNomber, tblVersions.NewDate, tblVersions.NewEdit, " & _
" tblVersions.NewDescription From tblVersions ORDER BY tblVersions.NewNomber DESC , tblVersions.NewDate DESC;"
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
If rs.RecordCount = 0 Then
MsgBox "Информация о версиях отсутствует. Сопоставление произвести нет возможности.", vbInformation + vbOKOnly, _
"Внимание"
GoTo LblNext
End If
rs.MoveFirst
MsgBox "Номер последнего обновления: " & rs!NewNomber, vbInformation + vbOKOnly, "Инфо"
GoTo LblNext
LblError:
MsgBox "Операция прервана в виду возникновения ошибки!", vbCritical + vbOKOnly, "Выполнение прервано"
LblNext:
rs.Close
db.Close
ws.Close
Set rs = Nothing
Set db = Nothing
Set ws = Nothing
If Command <> "" Then
MsgBox "При запуске программы использованы параметры: " & Command
End If
Me.cboSrvClient.Tag = Me.cboSrvClient.Text
End Sub
Private Sub Form_Unload(Cancel As Integer)
Me.cboSrvClient.Tag = Me.cboSrvClient.Text
'MsgBox "В момент закрытия программы свойство Tag текстбокса имеет значение: " & Me.cboSrvClient.Tag
End Sub
____________________________________________________________
З.Ы. Windows XP SP2. Access 2003 СП2. Да, и... английским не владею.
