🚀 go-pugleaf

Jeżeli zawsze zamykasz Formularz2.
Spróbuj ustawić zdarzenie Unload dla Formularza2:

Private Sub Form_Unload(Cancel As Integer)
Forms!Formularz1!PoleKombi1.Requery 
End Sub



***

Przykład na stronach Microsoftu jak odświeżać pole kombi formularza:

    Public Sub RequeryList() 

    Dim ctlCombo As Control 

    ' Return Control object pointing to a combo box. 
    Set ctlCombo = Forms!Employees!ReportsTo 

    ' Requery source of data for list box. 
    ctlCombo.Requery 

End Sub


Pozdrawiam
MF

Przepraszam, mało precyzyjnie się wyraziłem.
Nie chodzi o odświeżenie PolaKombi - tu Requery załatwia sprawę i nowy rekord znajduje się na liście.
Chciałbym natomiast aby PoleKombi samo wybrało ze swojej listy ostatni dodany do Tabveli1 rekord - tak, abym nie musiał ręcznie go wybierać poprzez wpisywanie.
Coś w rodzaju:
Me.PoleKombi.Value = [PoleKombi].[ItemData](0) - tylko tu chcę ustawić ostatni dodany w Tabeli 1

Ok, rozumiem! Nie o to chodziło.

Może załóż Bookmark na dopisany rekord i potem otwórz Formularz1 na tym rekordzie.

Przykład w MS:

https://msdn.microsoft.com/en-us/library/office/ff823084.aspx

MF

W dniu 2017-10-03 o 06:53, Stan pisze:
> Przepraszam, mało precyzyjnie się wyraziłem.
> Nie chodzi o odświeżenie PolaKombi - tu Requery załatwia sprawę i nowy rekord znajduje się na liście.
> Chciałbym natomiast aby PoleKombi samo wybrało ze swojej listy ostatni dodany do Tabveli1 rekord - tak, abym nie musiał ręcznie go wybierać poprzez wpisywanie.
> Coś w rodzaju:
> Me.PoleKombi.Value = [PoleKombi].[ItemData](0) - tylko tu chcę ustawić ostatni dodany w Tabeli 1
> 


Nie wiem jak przechowujesz w tabeli źródłowej Formularza1 dane klienta. 
Czy tylko ID klienta z Tabeli1 (wtedy pole kombi powinno posiadać dwie 
kolumny:
ID - ukryta powiązana kolumna
oraz
[Nazwisko] & ” ” & [Imię] & ” ” & [Miejscowość] - widoczna


Jeśli przechowujesz- [Nazwisko] & ” ” & [Imię] & ” ” & [Miejscowość] 
wtedy pole kombi zawiera tylko jedną kolumnę.

Przykładowy kod w Formularzu2 dla w/w przypadków:

Option Compare Database
Option Explicit

Private m_strKlient As String
Private m_lngIDKlient As String
'_____________________________
Private Sub Form_AfterUpdate()
   m_lngIDKlient = Me!ID
   m_strKlient = Me!Nazwisko & " " & Me!Imie & " " & Me!Miejscowosc
End Sub
'________________________
Private Sub Form_Close()
   ' Formularz1 musi być otwarty
   If Len(m_strKlient) > 0 Then
     Forms("Formularz1").Controls("cboKlient1").Value = m_lngIDKlient
     Forms("Formularz1").Controls("cboKlient2").Value = m_strKlient
   End If
End Sub



-- 
Pozdrowienia
BraZby
www.faq.accdb.pl
www.accdb.pl