Ребят Помогите С Созданием Кнопки

Kelt2012

New Member
29.05.2014
2
0
#1
такая проблема, если что я еще новичок, нужно в форме создать кнопку, чтобы осуществлялся переход на другую форму и атоматически добавлялась новая пустая запись. как сделать переход на другую форму я нашел, но дело в том, что при переходе она переходит на первую запись в нужной мне форме и чтобы осуществить новую запись нужно пролистать все записи которые уже есть(((
 

BOPOHA

Well-Known Member
26.04.2006
118
0
35
Минск
#2
Надеюсь речь идет про MS Access.

Первый вариант.

Внимательно почитать справку про DoCmd

Второй вариант.

Пример использования:

перейти к записи в текущей форме
Код:
Call CM_FormGoToRecord("K_KLIENT", lK_KLIENT)
или

перейти к записи в открытой форме
Код:
Set frmKlient = Forms("f_klient")

Call CM_FormGoToRecord("K_KLIENT", lK_KLIENT, frmKlient)
Функция:
Код:
Public Function CM_FormGoToRecord(ByVal imPkFld As String, ByVal lPkVal As Long, Optional ByRef frm As Form = Nothing) As Boolean
'-- перейти на запись по ID
'-- frm можно не передавать, в этом случае она будет использован CodeContextObject
On Error GoTo Err_

If frm Is Nothing Then
Set frm = CodeContextObject
End If

If frm Is Nothing Then Exit Function

Dim rst As DAO.Recordset

Set rst = frm.RecordsetClone
rst.FindFirst imPkFld & " = " & lPkVal

If Not rst.NoMatch Then
frm.Bookmark = rst.Bookmark
End If

CM_FormGoToRecord = Not rst.NoMatch

rst.Close
Exit_:
Exit Function
Err_:
CM_FormGoToRecord = False
mc_Log.VC_LogErr ("CM_FormGoToRecord()")
Resume Exit_:
End Function
 

Kelt2012

New Member
29.05.2014
2
0
#3
Надеюсь речь идет про MS Access.

Первый вариант.

Внимательно почитать справку про DoCmd

Второй вариант.

Пример использования:

перейти к записи в текущей форме
Код:
Call CM_FormGoToRecord("K_KLIENT", lK_KLIENT)
или

перейти к записи в открытой форме
Код:
Set frmKlient = Forms("f_klient")

Call CM_FormGoToRecord("K_KLIENT", lK_KLIENT, frmKlient)
Функция:
Код:
Public Function CM_FormGoToRecord(ByVal imPkFld As String, ByVal lPkVal As Long, Optional ByRef frm As Form = Nothing) As Boolean
'-- перейти на запись по ID
'-- frm можно не передавать, в этом случае она будет использован CodeContextObject
On Error GoTo Err_

If frm Is Nothing Then
Set frm = CodeContextObject
End If

If frm Is Nothing Then Exit Function

Dim rst As DAO.Recordset

Set rst = frm.RecordsetClone
rst.FindFirst imPkFld & " = " & lPkVal

If Not rst.NoMatch Then
frm.Bookmark = rst.Bookmark
End If

CM_FormGoToRecord = Not rst.NoMatch

rst.Close
Exit_:
Exit Function
Err_:
CM_FormGoToRecord = False
mc_Log.VC_LogErr ("CM_FormGoToRecord()")
Resume Exit_:
End Function
Спасибо)