MS Access - stworzenie combo boxa, który pokaże wszystkich pracowników danej firmy

0
0
1

Od niedawna zacząłem swoją przygodę z MS Access i jestem w trakcie tworzenia bazy danych, lecz zmagam się z kilkoma problemami tworzenia formularza.

Dokładnie mówiąc mam zamiar, aby według stworzonego combo box'a (gdzie wybieram nazwę firmy) pokazywałoby wszystkich pracowników danej firmy. Nie do końca pamiętam jak tego dokonać.

Utworzyć kwerendę i podpiąć do combo box'a?
Jeśli tak, to jak podpinać kwerendy do combo boxów?

Relacje między tabelami już stworzyłem (stworzyłem jedną tabelę dla wszystkich pracowników różnych firm oraz drugą tabelę dla wszystkich firm).

Drugą sprawą, którą chcę poruszyć jest kwestia związana z hyperlinkiem. Chcę, aby w kolumnie E-mail po kliknięciu w maila otworzyło się nowe okienko z MS Outlook.

Czy MS Access ma taką wbudowaną możliwość? Czy jest konieczność stworzenia linijki w VBA?

Ostatnią sprawą, którą chcę poruszyć jest: Czy podczas wyszukiwania firmy w combo boxie, po wpisaniu kilku liter z nazwy firmy (w środku) wyszuka ją prawidłowo? Poniżej przykład.

Pełna nazwa firmy to Sprzedaż Detaliczna Jacek Górny, a po wpisaniu "Górny" wyszuka daną firmę lub zaproponuje ją do wpisania. Aktualnie, gdy wyszukuję firmę muszę wpisać dokładny początek nazwy firmy.

Za każdą radę będę bardzo wdzięczny! :)

Zapytał
@ Tobiasz_Kusch_5elj | 26.11.2019
- 0
- 0
- 0

1

Cześć.

Można. W załączeniu przykład.

Można też w VBA. Jak będziesz chciał, to też mogę podesłać.

Pozdrawiam.
Tomek.

Załączniki

accdb
PrzykładLR1.accdb ( 672K )

Komentarze (1)

Odpowiedział
@ Tomasz_Kasprzycki | 26.11.2019
- 2
- 4
- 8

Komentarze

Cześć,
Dzięki za pomoc, przeanalizuję twój plik.
Mam nadzieję, że będę wstanie odnieść się w swoim pliku.
Co do kodu VBA, to chętnie zobczę jeszcze ten sposób.
Pozdrawiam,
Tobiasz

Skomentował : @ Tobiasz_Kusch_5elj ,26.11.2019

0
0
0

1

Jak chcesz mieć treść w HTML, to tak:

Dim olAP, olMAIL As Object
Dim LinkDoDok, MailCCList, MailToList, textHTML As String

textHTML = "<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd'>" _
& "<html xmlns='http://www.w3.org/1999/xhtml'>" _
& "    <head>Tu coś trzeba napisać..." _
& "    </head>" _
& "    <body>Tu tym bardziej coś trzeba napisać..." _
& "    </body>" _
& "</html>"

MailToList = "jan@kowalski.pl; anna@nowak.pl" 'choć rzecz jana można to pominąć, wtedy musimy ręcznie adresatów wpisać już w outlooku
MailCCList = "zbyszek@kieliszek.pl" 'jak wyżej

Set olAP = New Outlook.Application
Set olMAIL = olAP.CreateItem(olMailItem)
'bolHTML = True

With olMAIL
    .To = MailToList
    .CC = MailCCList
    .Subject = "Tu jakiś tytuł" ' można rzecz jasna pominąć i wpisać w outlooku
    .HTMLBody = textHTML
    .Display
End With

Jeśli nie zależy Ci na HTML, to tak:

DoCmd.SendObject + parametry (są opisane w poniższym linku):

https://docs.microsoft.com/pl-pl/office/vba/api/access.docmd.sendobject?f1url=https%3A%2F%2Fmsdn.microsoft.com%2Fquery%2Fdev11.query%3FappId%3DDev11IDEF1%26l%3Dpl-PL%26k%3Dk(vbaac10.chm4180)%3Bk(TargetFrameworkMoniker-Office.Version%3Dv15)%26rd%3Dtrue

Skomentuj

Odpowiedział
@ Tomasz_Kasprzycki | 26.11.2019
- 2
- 4
- 8

Pytanie