MS ACCESS - kilka pytań.

Odpowiedz Nowy wątek
2019-01-14 08:46
0
  1. Mam sytuację, w której mam jedną tabelę oraz jeden formularz. Mam też już jakieś dane wprowadzone do bazy danych. Gdy włączam widok formularza, taki jak będzie widział użytkownik to w polach do wypełniania są dane z ostatnio wprowadzonego formularza. Jak zrobić, aby te wartości były puste?
  2. Jak ustawić szare podpowiedzi na danym polu? Dajmy na to, mamy pole: WIEK i jeśli nic nie jest wpisane to chcę, aby wyświetlało się tam: wprowadź tutaj swój wiek. I gdy użytkownik to kliknie to szare pole znika?
  3. Załóżmy, że mam pole "Tak" "Nie". Jeśli ktoś kliknie "Nie" to się po prostu zapisuje do bazy danych. Jeśli ktoś zaznaczy "Tak" to odblokowywuje się / pokazuje się nowe pole do wpisania tam jakiejś wartości. Jak to zrobić?

Pozostało 580 znaków

2019-01-14 09:34
1

Ad1) W właściwościach formularza w zdarzeniu OnLoad wprowadź:

DoCmd.GoToRecord acDataForm, "NazwaTwojegoFormularza", acNewRec

Ad2) Dostałeś już odpowiedź w tym wątku (Twoim własnym zresztą!) :
MS ACCESS - jak zrobić rodzaj pola, które się automatycznie zwiększa (formularz)?

Ad3) Oprogramuj przyciski Tak i Nie w zdarzeniu On Click:

"Nie":

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

"Tak":

NazwaTwojegoPolaTekstowego.Visible = True

Czyli to pole na wejsciu ustawiasz jako nie widoczne.

Pozostało 580 znaków

2019-01-14 10:01
0

Znaczy się - co do punktu pierwszego.
@BlackBad

edytowany 1x, ostatnio: Tomasz Papryka, 2019-01-14 10:02

Pozostało 580 znaków

2019-01-14 10:14
1

Ok, chyba sie nie do końca zrozumieliśmy. W Zdarzeniu OnLoad - wybierz [Event Procedure] i kliknij w ikonke z korpkami ... Przeniesie Cie do Modules - gdzie możesz pisać kod w VB i tam masz wkleić ten kod co podałem. Patrz załącznik.

screenshot-20190114101412.png

Pozostało 580 znaków

2019-01-14 10:29
0

@BlackBad:
Dobra, do mnie trzeba łopatologicznie - nie złość się proszę; jestem w tym nowy.
Przechodząc do punktu trzeciego, spójrz na załącznik.
Chciałem rozwiązać taką opcję, że mam taki formularz, pole kombi. Nie przyciski. I tutaj chciałbym, jeżeli NIE to zablokowane, jeżeli TAK to odblokowane.
Chciałem zrobić coś takiego, ale chyba nie tędy droga.

If [Element programu] = "NIE" Then
   result = Tekst1077.Visible = False
Else
   result = Tekst1077.Visible = True
End If

Tym samym nawiązując do podpunktu drugiego. Posługując się linkiem podanym w tamtym temacie.

https://stackoverflow.com/questions/21536192/textbox-text-disappear-on-text-entry-excel-vba

Pod jakie zdarzenie lub w które miejsce mam podpiąć coś analogicznego? (Mowa o polu tekstowym).

edytowany 2x, ostatnio: Tomasz Papryka, 2019-01-14 10:47

Pozostało 580 znaków

2019-01-14 11:02
1
Private Sub cmb_AfterUpdate()

If cmb.Value = "Tak" Then
    Label3.Visible = False
ElseIf cmb.Value = "Nie" Then
    Label3.Visible = True
End If

End Sub

Gdzie cmb to nazwa mojego combi field. A label3 to jakiś tam obiekt (w tym wypadku etykieta) która w zależności co wybierzesz w combi albo się chowa albo pojawia.

Czad, dzięki. - Tomasz Papryka 2019-01-14 11:09

Pozostało 580 znaków

2019-01-14 12:16
0

@BlackBad
Chcę zrobić sumowanie kilku pól.
C 2019
C 2020
C 2021
SUMA C
W tym celu użyłem w źródle formantów SUMA C:

= [C 2019]+[C 2020]+[C 2021]

Ale tym samym chciałbym aby zapisywało się do tabeli ten wynik, do SUMY C, która istnieje. Jak to zrobić?

Pozostało 580 znaków

2019-01-14 12:47
1

No dobra po kolei ...
Primo - co sam zrobiłeś żeby spróbować otrzymać zamierzony efekt ? Co próbowałeś i jak ... co nie poszło, z czym masz problem ? Rozumiesz musisz trochę też sam szukać i kombinować ..
Secundo - pisz jaśniej! Ja się muszę domyślać co masz na myśli a i tak nie jestem pewien czy dobrze rozumiem :|
Tertio - pytania z tematu zostały odpowiedziane - w sumie ten wątek powinieneś zamknąć oznaczając post z odpowiedzią i otworzyć nowy temat. Staraj się tak robić z następnymi pytaniami.

Co do meritum - rozumiem, że masz 3 pola na formularzu C 2019 /20 /21 z wartościami liczbowymi i chcesz zapisać sumę z tych 3 pól do tablicy - po np. naciśnięciu jakiegoś przycisku, zgadza się ?

To teraz wędka czyli pseudo kod:

Gdy klikniesz przycisk
otwórz połączenie z baza (ADO lub DAO)
stwórz recordset
stworz i zapisz do zmiennej zmSumaC = [C 2019].Value +[C 2020].Value +[C 2021].Value
Napisz zapytanie SQL ala " INSERT INTO TwojaNazwaTablicy (SumaC) VALUES (' " & zmSumaC & " ')
Wykonaj zapytanie
zamknij recordset i połaczenie

I masz co chciałeś. Spróbuj to napisać sam... jak będziesz miał problemy napisz z czym konkretnie.

Pozostało 580 znaków

2019-01-14 12:57
0

Znalazłem taki tutorial: > http://codevba.com/msaccess/dao_recordset.htm#
Chcę na nim pracować, jednak mój VBA wygląda tak jak na załączonym obrazku.
Chcę, aby moje VBA wyglądało tak jak na przedstawionej wcześniej stronie (na załączniku masz opcję, o którą mi chodzi). Jak to zrobić?

Już nieistotne. - Tomasz Papryka 2019-01-14 13:11
ufff too late dodałem odpowiedź .... ale mam nadzieje, że sam do tego doszedłeś ;) - BlackBad 2019-01-14 13:18

Pozostało 580 znaków

2019-01-14 13:17

Powiem po imieniu ... Tomek!!! Nie załamuj mnie :) Weź no Panie wypij jaką kawę czy zieloną hebatę ;)

odpal stronę główną Home z tego portalu co podałeś i przeczytaj co tam jest napisane na górze jak byk:
**
"Welcome to Code VBA - the Office programming power solution
Prices starting at 79.95 € / US$ 90.45

Code VBA is an add-in for both professional software developers and MS Office users of Visual Basic for Applications."**

Chcesz wydać 90 baksów na jakieś dodatki do VB ? Na psu bude Ci to. Odpal google i jeszcze raz poszukaj tutoriali do VBA i generalnie MS Access. Do tego co potrzebujesz znajdziesz pewnie nawet konkretne rozwiązania na stack overflow. Poszukaj ...

Dostałem po prostu zadanie i się jaram jak jakakolwiek rzecz mi wyjdzie i chcę przeć do przodu niczym buldożer :D Jak wypiję kawę to się jeszcze bardziej roztrzepię i tyle z tego będzie. - Tomasz Papryka 2019-01-14 13:18
Rozumiem ;) Fajnie, że jest radocha ... ale na spokojnie jeszcze dużo pracy i radości jak i płaczu przed Tobą, nie oszukujmy się jesteś na samiutkim początku drogi ... Good Luck! - BlackBad 2019-01-14 13:20

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0