🚀 go-pugleaf

Public Function LanEditFrm(frm As Form, domain, keyName As String, whereValue As String, KeyNameType As String, _
                                Optional keyName2 As String, Optional whereValue2 As String, Optional KeyName2Type As String, _
                                            Optional OrderBy As String) As Boolean
' edycja jednego recordu wg strSQL

Dim rs As DAO.Recordset
Dim ctl As Control
Dim vartemp As Variant
Dim StrSQL As String

 
       StrSQL = mSQLString.SQLString(domain, keyName, whereValue, KeyNameType, _
                                 keyName2, whereValue2, KeyName2Type, _
                                            OrderBy)
                              
 
    
   On Error GoTo ErrorHandler
  
     'Otwarcie połączenia utworzenie rs

     Set rs = CurrentDb.OpenRecordset(StrSQL, dbOpenDynaset)
     
    'sprawdzi czy istnieją rekordy
    
    If rs.RecordCount = 1 Then
 
     
             'Iteracja poprzez poszczególne pola formularza, których nazwy odpowiadają
             ' nazwom elementów obiektu Recordset
         
         For Each ctl In frm.Controls
            'pola nie ma w formularzu - błąd
            
            On Error Resume Next
            Err = 0
            ctl.Value = rs.Fields(ctl.Name)
            
            If Err = 0 Then
                On Error GoTo ErrorHandler
                
                    End If
                       
        Next
        
    Else
    
      ' jeśli brak rekordów lub więcej jak jeden wyswietl komunikat
     MsgBoxID EditFalse, vbInformation, LoadString(BazaNazwa)
     
       
       End If
       
       
     
Exit Function

ErrorHandler:

              
  MsgBox "Error :" & "  mRecordset.EditFrm" & "  " & _
  Err.Number & vbCrLf & vbCrLf & Err.Description, vbInformation, LoadString(BazaNazwa)

 
End Function

to pracuje