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

Тема в разделе "Остальные БД", создана пользователем Kelt2012, 29 май 2014.

  1. Kelt2012

    Kelt2012 New Member

    Регистрация:
    29 май 2014
    Сообщения:
    2
    Симпатии:
    0
    такая проблема, если что я еще новичок, нужно в форме создать кнопку, чтобы осуществлялся переход на другую форму и атоматически добавлялась новая пустая запись. как сделать переход на другую форму я нашел, но дело в том, что при переходе она переходит на первую запись в нужной мне форме и чтобы осуществить новую запись нужно пролистать все записи которые уже есть(((
     
  2. BOPOHA

    BOPOHA Well-Known Member

    Регистрация:
    26 апр 2006
    Сообщения:
    118
    Симпатии:
    0
    Надеюсь речь идет про MS Access.

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

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

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

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

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

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

    Call CM_FormGoToRecord("K_KLIENT", lK_KLIENT, frmKlient)
    Функция:
    Код (LotusScript):
    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
     
  3. Kelt2012

    Kelt2012 New Member

    Регистрация:
    29 май 2014
    Сообщения:
    2
    Симпатии:
    0
    Спасибо)
     
Загрузка...

Поделиться этой страницей