Microsoft Office Access

Option Compare Database
Public strConnect As String
Public strConnect1 As String
Public cnn As ADODB.Connection
Public cnn1 As ADODB.Connection
Public cmd As ADODB.Command
Public rst As ADODB.Recordset
Public rst1 As ADODB.Recordset
Public strVibrano As String
 
Private Sub connect()
strConnect = "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & CurrentProject.Path & _
"\Korrespondenciya_be.mdb" 'Data Source - источник данных,CurrentProject - текущий проект
Set cnn = New ADODB.Connection 'Новый экземпляр объектов Command
cnn.ConnectionString = strConnect 'Строка подключения
cnn.Mode = adModeReadWrite 'Определяет режим доступа к данным,чтение/запись
cnn.Open 'Устанавливается соединение с источником данных
 
Set rst = New ADODB.Recordset 'объект Recordset обеспечивает работу с записями
rst.Open Source:="tblGlavnaya", ActiveConnection:=cnn, Options:=adCmdTableDirect, CursorType:=adOpenDynamic, LockType:=adLockOptimistic
'Source - cтрока-источник запроса, т.е. SQL-выражение, имя таблицы или хранимой процедуры
'Option - переменная типа Long,позволяющая задать тип запроса
'adCmdTableDirect - непосредственно открываемая таблица
rst.AddNew 'Добавляет записи в Recordset
rst.Fields("Дата") = Now()
rst.Fields("Регистрационный номер") = txtReg_nomer.Value
rst.Fields("Получатель") = txtPol.Value
'Набор объектов Fields и объект Field позволяют получить доступ к данным любой колонки в текущей записи.
rst.Update 'Сохраняет изменения в текущей записи
End Sub
 
Function Kor()
Dim intKol_vo As Integer
Dim strReg As String
Dim strSQL As String
Set cnn1 = New ADODB.Connection
strConnect1 = "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & CurrentProject.Path & _
"\Korrespondenciya_be.mdb" 'Data Source - источник данных,CurrentProject - текущий проект
cnn1.ConnectionString = strConnect1 'Строка подключения
cnn1.Mode = adModeReadWrite 'Определяет режим доступа к данным, чтение/запись
cnn1.Open 'Устанавливается соединение с источником данных
strSQL = "SELECT tblGlavnaya.[Регистрационный номер] As Masha " & _
"FROM tblGlavnaya " & _
"WHERE (((tblGlavnaya.[Регистрационный номер]) Like '" & strVibrano & "-1' ));"
 
Set rst1 = New ADODB.Recordset
rst1.Open Source:=strSQL, ActiveConnection:=cnn1, Options:=adCmdTableDirect, CursorType:=adOpenKeyset, LockType:=adLockOptimistic
rst1.MoveLast
per = rst1.Fields("Masha")
If rst1.RecordCount = 0 Then
intKol_vo = 1
 
txtReg_nomer.Value = intKol_vo
Else
rst1.MoveFirst
strReg = rst1.Fields("Max-Nomer")
intNom = CInt(Mid(strReg, 3))
intNom = intNom + 1
txtReg_nomer.Value = strVibrano & intNom
End If
End Function
 
Private Sub cboKor_AfterUpdate()
strVibrano = cboKor.Value
Kor
End Sub
 
Private Sub Form_Timer()
 txtData = Now()
End Sub
 
Private Sub cmdGo_Click()
connect
txtReg_nomer.Value = ""
cboKor.Value = ""
txtPol.Value = ""
End Sub