🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.bazy-danych.msaccess
Article #137534

Re: Autoaktualizacja PolaKombi

#137534
From: Zbigniew Bratko
Date: Wed, 04 Oct 2017 08:24
48 lines
2587 bytes
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
Technical Details
Message-ID: <or25sf$979$1@node2.news.atman.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!.POSTED!not-for-mail
References: <e09b8549-1920-4773-b593-320956fa7df7@googlegroups.com> <6faf5dbe-002b-42e3-b036-f6338c03695b@googlegroups.com> <2302e6d0-046c-4a9e-969a-9278813116af@googlegroups.com>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!.POSTED!not-for-mail
From: Zbigniew Bratko <byle@co.pl>
Newsgroups: pl.comp.bazy-danych.msaccess
Subject: Re: Autoaktualizacja PolaKombi
Date: Wed, 4 Oct 2017 10:24:43 +0200
Organization: ATMAN - ATM S.A.
Lines: 48
Message-ID: <or25sf$979$1@node2.news.atman.pl>
References: <e09b8549-1920-4773-b593-320956fa7df7@googlegroups.com> <6faf5dbe-002b-42e3-b036-f6338c03695b@googlegroups.com> <2302e6d0-046c-4a9e-969a-9278813116af@googlegroups.com>
NNTP-Posting-Host: 5.172.235.195
Mime-Version: 1.0
X-Trace: node2.news.atman.pl 1507105487 9449 5.172.235.195 (4 Oct 2017 08:24:47 GMT)
X-Complaints-To: usenet@atman.pl
NNTP-Posting-Date: Wed, 4 Oct 2017 08:24:47 +0000 (UTC)
User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:52.0) Gecko/20100101 Thunderbird/52.3.0
In-Reply-To: <2302e6d0-046c-4a9e-969a-9278813116af@googlegroups.com>
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit