Otórz mam taką funkcję znalezioną w sieci:
Private Sub Zdjęcia_NotInList(NewData As String, Response As Integer)
Dim rec As Recordset
If MsgBox("Dodać nową wartość?", vbOKCancel) = vbOK Then
Response = acDataErrAdded
Set rec = CurrentDb.OpenRecordset("Zdjęcia")
With rec
.AddNew
!Nazwisko = NewData
'klucz Access sam doda
.Update
End With
Else
Response = acDataErrContinue
Zdjęcia.Undo
End If
End Sub
Ta funkcja gdy nie ma danej wartości na liście rozwijanej dodaje tę wartość do tabeli i od razu do formularza z ktorego funkcja jest wywoływana
Tak jak w tej bazie: www.shintokage.6r.pl/bazafilmy.mdb
Kiedy poprzez formularz SpisFilmow doda się nowego kogoś w zdjęciach kogo nie ma na liście to ten ktoś się doda ale tylko po nazwisku
natmiast ja bym chciła aby acces zapytał się mnie oddielnie o podanie nazwiska i imienia i dodał pełen rekord
ps. baza jest na razie pomotana i niepełna, robię ja tylko dla siebie, nie jestem expertem wszystko w fazie testów i modyfikkacji, piszę żeby ktoś nie zarzucał że nie ma relacji czy czekoś tam, pewnie później jeszcze połowę pozmieniam. |