• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

  • Автор темы Kelt2012
  • Дата начала
K

Kelt2012

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

BOPOHA

Надеюсь речь идет про 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
 
K

Kelt2012

Надеюсь речь идет про 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
Спасибо)
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!