Aktywne Wpisy
niech to w końcu wybrzmi, #!$%@?ć wszystkie użalające się nad sobą ofiary losu takie jak @qew12 które do końca życia będą wmawiać sobie i innym, że one nic nie mogom i nic nie umiejom, bo sie bojom i w ogóle smutno im ( ͡° ʖ̯ ͡°) na tym polega życie, jedni cierpią bardziej, drudzy mniej, ale trzeba mimo wszystko zdawać sobie sprawę z tego, że tak ono wygląda
PanHaroldHe +72
2024 a wykopki odkrywają podstawowe funkcje GPT ( ͡° ͜ʖ ͡°)
#wykopgpt #programista15k #it #programowanie
#wykopgpt #programista15k #it #programowanie
Witam
Proszę o pomoc w stworzonej przez mnie aplikacji "Access" pt. przychodnia lekarska.
Mam problem z modułem "Zajęte wizyty" - jest to formularz który pokazuje umówione wizyty do danych lekarzy.
Wizytę rezerwuję się poprzez wpisanie numeru ID kartoteki danego pacjenta.
Mój problem polega na oprogramowaniu przycisku "Anuluj wizytę" - przycisk ten miałby wykonywać polecenie SQL, które zrobi "delete" na wybranym IDKartoteki - zamieniając na nulla - wtedy zajęta wizyta znika i pojawia się w module "Dostępne wizyty"
Zgodnie załączonym obrazkiem
http://pokazywarka.pl/fnn9xr/
Po wciśnięciu przycisku "Anuluj wizytę" - IDKartoteki powinno się zmienić na null dla wybranej ID_Wizyty czyli numer 34.
Dodatkowo chciałbym aby była możliwość wybrania na początku u jakiego lekarza danej specjalności oglądamy wizytę. Czyli wybieramy z rozwijanej listy np. gastrologa i pojawiają się nam tylko wizyty dla gastrologa, zmieniamy na ginekologa i możemy zobaczyć tylko wizyty gastrologa.
Proszę o pomoc w zaprogramowaniu.
co do gastrologa to znow przydałby się układ tabel, ale tak na szybko (i znów zgodnie z tym jak ja bym to zrobił) to:
select * from wizyty w left join lekarze l on w.lekarz_id=l.lekarz_id left
w sql będzie to wyglądało tak: UPDATE Wizyty SET IDKartoteki = NULL WHERE IDWizyty = 34
Twoje drugie życzenie będzie najprościej osiągnąć używając filtrów (możesz podpiąć pole kombi do filtra na formularzu), jako źródło pola kombi ustawiasz typy lekarzy (pewnie masz na to jakiś słownik, jak nie to powinieneś)
napiszę na szybko (jc to "ide" Ci poprawi):
Dim sql As String
sql = "UPDATE Wizyty SET IDKartoteki = NULL WHERE IDWizyty = " & Me.ID_Wizyty
DoCmd.RunSql sql
takie coś na bank zadziała na accesie podłączonym do ms sql, nie wiem jak się zachowa na mdb ale w sumie powinno zadziałać
czy mógłbym prosić o wytłumaczenie & Me? rozumiem że to wyciąga wartość z pola które zdefiniuje w dalszej części?
Dim sql As String - deklaracja zmiennej sql jako łańcuch znaków, tak naprawdę zmienna mogła by się też nazywać wykoppeel
sql = ... - przypisanie wartości do tej zmiennej, zmienna jest typu string więc piszemy ją w cudzysłowiach, część naszego zapytania chcemy pobrać dynamicznie z formularza, symbolem konkatenacji stringów w VBA jest & (w innych językach najczęściej +), Me oznacza aktywne miejsce,