Здравствуйте форумчане!
Вопрос. Имеется форма, в которой содержатся данные клиентах, дате добавления, сумме покупке, и т.д. и т.п.
никак не могу разобраться как редактировать записи. Т.е нажимаю кнопку редактировать, открывается форма, где автоматически заполняются поля, имя клиента, дата, вид прихода и т.д. все это можно редактировать. Но когда изменяю данные и сохраняю их, то старые данные не изменяются, а просто добавляется новая строка с новой информацией. я не опытен еще. знаю, что как то надо по колдовать с первичным ключом, но как?
Вот код двух процедур одна на добавление новой записи а другая по идеи на редактирование. форма для добавления и редактирования одна, просто запускается в двух разных режимах.
добавление новой записи (тут все работает)

Private Sub Сохранить1_Click()
 
On Error GoTo Err_сохранить1_Click
MsgBox "Новые данные успешно были добавлены", vbOKOnly
 
 
'-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\
'-\-\-\-\-\ДОБАВЛЕНИЕ ИНФОРМАЦИИ В ТАБЛИЦУ \-\-\-\-\-\-\-
'-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-
 
    Dim cmd As ADODB.Command
    Dim prm As ADODB.Parameter
    
    Set cmd = New ADODB.Command
    Set cmd.ActiveConnection = CurrentProject.Connection
 
    cmd.CommandText = "spPrih_tAdd"
    cmd.CommandType = adCmdStoredProc
    cmd.CommandTimeout = 250
''
    Set prm = cmd.CreateParameter("DAT_R", adDate, adParamInput, , Me.DAT_P)
        cmd.Parameters.Append prm
    Set prm = cmd.CreateParameter("COD_KLI", adInteger, adParamInput, , Me.edtClientId)
        cmd.Parameters.Append prm
    Set prm = cmd.CreateParameter("SUM_PR", adInteger, adParamInput, , Me.SUM_V)
        cmd.Parameters.Append prm
    Set prm = cmd.CreateParameter("NDSPR", adInteger, adParamInput, , SUM_V)
        cmd.Parameters.Append prm
    Set prm = cmd.CreateParameter("VID", adInteger, adParamInput, , Me.VID)
        cmd.Parameters.Append prm
    Set prm = cmd.CreateParameter("NDS", adInteger, adParamInput, , Me.NDS)
        cmd.Parameters.Append prm
    Set prm = cmd.CreateParameter("CustN", adInteger, adParamInput, , CInt(Me.CUST_N))
        cmd.Parameters.Append prm
    Set prm = cmd.CreateParameter("OTSR", adInteger, adParamInput, , Me.OTSR)
        cmd.Parameters.Append prm
    Set prm = cmd.CreateParameter("RASH_NTTN", adInteger, adParamInput, , Me.R_NTTN)
       cmd.Parameters.Append prm
    Set prm = cmd.CreateParameter("CAN_OPT", adInteger, adParamInput, , Me.FlagCanOpt)
        cmd.Parameters.Append prm
    Set prm = cmd.CreateParameter("Nsek", adInteger, adParamInput, , Me.R_NSEK)
        cmd.Parameters.Append prm
    
 
    cmd.Execute
 
    Set cmd = Nothing
    Set prm = Nothing
 
Exit_сохранить1_Click:
    Exit Sub
 
Err_сохранить1_Click:
    MsgBox Err.Description
    Resume Exit_сохранить1_Click
 
 
End Sub

а вот та которая должна редактировать

Public Function Save() As Boolean
Dim StrSql As String
Dim ExSql As New ADODB.Recordset
Dim col As Integer
Dim rst As ADODB.Recordset
Dim StrLog1 As String
Dim StrLog2 As String
On Error GoTo HandleErrors
 
Set rst = New ADODB.Recordset
Set rst.ActiveConnection = CurrentProject.Connection
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Source = "PRIH_t"
rst.Open Options:=adCmdTable
With rst
     
    If EditMode Then
        .Find "NTTN=" + CStr(Me.edtNTTN)
        StrLog1 = " После редактирования док-та "
        StrLog2 = " До редактирования док-та "
    End If
    
    If RTrim(MyCStr(!COD_KLI)) <> MyCStr(Me.edtClientId) Then
        StrLog1 = StrLog1 + " COD_KLI:" + MyCStr(Me.dtClientId)
        StrLog2 = StrLog2 + " COD_KLI:" + RTrim(MyCStr(!COD_KLI))
    End If
       !COD_KLI = Me.edtClientId
    
    If RTrim(MyCStr(!SUM_PR)) <> MyCStr(Me.SUM_V) Then
        StrLog1 = StrLog1 + " SUM_PR:" + MyCStr(Me.SUM_V)
        StrLog2 = StrLog2 + " SUM_PR:" + RTrim(MyCStr(!SUM_PR))
    End If
       !SUM_PR = Me.SUM_V
    
    If RTrim(MyCStr(!NDSPR)) <> MyCStr(Me.SUM_V) Then
        StrLog1 = StrLog1 + " SUM_PR:" + MyCStr(Me.SUM_V)
        StrLog2 = StrLog2 + " SUM_PR:" + RTrim(MyCStr(!NDSPR))
    End If
       !NDSPR = Me.SUM_V
    
    If RTrim(MyCStr(!VID)) <> MyCStr(Me.VID) Then
        StrLog1 = StrLog1 + " VID:" + MyCStr(Me.VID)
        StrLog2 = StrLog2 + " VID:" + RTrim(MyCStr(!VID))
    End If
       !VID = Me.VID
    
    
    If RTrim(MyCStr(!NDS)) <> MyCStr(Me.NDS) Then
        StrLog1 = StrLog1 + " NDS:" + MyCStr(Me.NDS)
        StrLog2 = StrLog2 + " NDS:" + RTrim(MyCStr(!NDS))
    End If
       !NDS = Me.NDS
 
    If RTrim(MyCStr(!OTSR)) <> MyCStr(Me.OTSR) Then
        StrLog1 = StrLog1 + " OTSR:" + MyCStr(Me.OTSR)
        StrLog2 = StrLog2 + " OTSR:" + RTrim(MyCStr(!OTSR))
    End If
       !OTSR = Me.OTSR
       
    If RTrim(MyCStr(!RASH_NTTN)) <> MyCStr(Me.R_NTTN) Then
        StrLog1 = StrLog1 + " RASH_NTTN:" + MyCStr(Me.R_NTTN)
        StrLog2 = StrLog2 + " RASH_NTTN:" + RTrim(MyCStr(!RASH_NTTN))
    End If
       !RASH_NTTN = Me.R_NTTN
        
    If RTrim(MyCStr(!CAN_OPT)) <> MyCStr(Me.FlagCanOpt) Then
        StrLog1 = StrLog1 + " CAN_OPT:" + MyCStr(Me.FlagCanOpt)
        StrLog2 = StrLog2 + " CAN_OPT:" + RTrim(MyCStr(!CAN_OPT))
    End If
       !CAN_OPT = Me.FlagCanOpt
     
    
    If RTrim(MyCStr(!NSek)) <> MyCStr(Me.R_NSEK) Then
        StrLog1 = StrLog1 + " NSek:" + MyCStr(Me.R_NSEK)
        StrLog2 = StrLog2 + " NSek:" + RTrim(MyCStr(!NSek))
    End If
       !NSek = Me.R_NSEK
    
    .update
 
    Me.edtNTTN = !NTTN
    If EditMode Then StrLog2 = "ID: " + CStr(Me.recID) + StrLog2
    StrLog1 = "ID: " + CStr(Me.recID) + StrLog1
End With
 
If EditMode Then SaveToLog StrLog2, 80
SaveToLog StrLog1, 80
 
 
HandleExit:
    Exit Function
HandleErrors:
    Save = False
    MsgBox Err.Description, vbCritical, ""
End Function

Это скорее набросок, я просто примерно так думаю что надо сделать, но это скорее всего не правильно
Просто при редактировании какой то записи, нужно что бы первичный ключ оставался прежним, а информация в столбцах таблицы, которые привязаны к нему, обновлялись.

буду рад любой помощи

http://www.sql.ru/forum/1121902/update-tablicy-s-sohraneniem-pervichnogo-klucha