Wypowiedzi

  • Dariusz Myszkowski
    Wpis na grupie Ms Access w temacie Automatyczny dialer
    29.09.2022, 14:07

    Ze względu na to, że lubię skracać sobie czas, wymyśliłem, że chciałbym w mojej bazie klientów mieć możliwość automatycznego wybierania numeru telefonu do klienta.

    Metody używam na swojej stronie internetowej - po naciśnięciu na dany przycisk strona generuje kod html, np:
    <a href="tel:+48123456789">telefon</a>
    Google pyta się, z którego urządzenia ma zadzwonić i odpala mój telefon.

    To samo chciałbym zastosować klikając na przycisk w Accessie.

    Ktoś ma pomysł jak powinien wyglądać kod po naciśnięciu przycisku?

  • Dariusz Myszkowski
    Wpis na grupie Ms Access w temacie gdzie jest błąd?
    1.02.2021, 12:08

    Tak, Prawda/Fałsz...

    Niestety już tak mam zastosowane, ale dzięki za dobrą radę!

  • Dariusz Myszkowski
    Wpis na grupie Ms Access w temacie gdzie jest błąd?
    29.01.2021, 13:04

    Hmmm... Znalazłem błąd w kodzie, który wcześniej skleciłem (kod niżej)

    zwracam uwagę na linię: Set rcs1....
    kwerenda tam zawarta zwraca mi poprawne wartości, a więc buduje skrót do mailingu dla osób, które w bazie danych mają mailing zaznaczony na "tak"
    Ale już w poniższym kodzie, niezależnie od tego, czy wpiszę: (Dane.mailing)=yes, czy (Dane.mailing)=no, access buduje mi plik ze wszystkimi mailami (a nie wybranymi).
    Czy mogę prosić o pomoc?

    Dim rcs1 As DAO.Recordset
    Dim strBCC1 As String

    Set rcs1 = CurrentDb.OpenRecordset("SELECT Dane.[e-mail] FROM Dane WHERE (((Dane.semestr)=1) AND ((Dane.mailing)=yes)) OR (((Dane.semestr)=2) AND ((Dane.mailing)=yes));")

    With rcs1
    Do Until .EOF
    strBCC1 = strBCC1 & Left(.Fields(0).Value, InStr(1, .Fields(0).Value, "#", vbDatabaseCompare) - 1) & ";"
    .MoveNext
    Loop
    End With

    strBCC1 = Left(strBCC1, Len(strBCC1) - 1)

    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")

    Dim Fileout As Object
    Set Fileout = fso.CreateTextFile("D:/Dropbox/Dokumenty/maile1klasa.url", True, True)
    Fileout.Write "[{000214A0-0000-0000-C000-000000000046}]" & vbCrLf & "Prop3=19,4" & vbCrLf & "[InternetShortcut]" & vbCrLf & "URL=mailto:?bcc=" & strBCC1 & vbCrLf & "IDList=" & vbCrLf & "HotKey=0" & vbCrLf & "IconFile=C:\Windows\system32\SHELL32.dll" & vbCrLf & "IconIndex=156" & vbCrLf & "[InternetShortcut.A]" & vbCrLf & "[InternetShortcut.W]"
    Fileout.CloseTen post został edytowany przez Autora dnia 29.01.21 o godzinie 13:34

  • Dariusz Myszkowski
    Wpis na grupie Ms Access w temacie tworzenie pliku skrótu
    6.11.2020, 14:49

    już sobie poradziłem

    próbowałęm .lnk, a tu...
    po prostu .url.....

  • Dariusz Myszkowski
    Wpis na grupie Ms Access w temacie tworzenie pliku skrótu
    6.11.2020, 14:19

    Witam :)

    Chciałbym aby baza danych stworzyła plik typu shortcut.

    Po co mi to? Ano chciałbym, aby osoby, które nie mają dostępu do bazy danych mogły w najprostszy i najszybszy sposób wysłać maila do grupy osób klikając na taki shortcut.

    Wszystko udało mi się wykonać - czyli mogę stworzyć plik z ciągiem znaków jaki w typowym shortcucie się znajduje.

    Niestety nie wiem w jaki sposób nazwać plik, a dokładnie jego rozszerzenie.

    Kod:
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")

    Dim Fileout As Object
    Set Fileout = fso.CreateTextFile("C:\skrót.???", True, True)
    Fileout.Write "[InternetShortcut]URL=mailto:?bcc=" & stringmaili
    Fileout.Close

    ktoś pomoże?

  • Dariusz Myszkowski
    Wpis na grupie Ms Access w temacie Procenty w formularzu i tabeli
    7.10.2020, 11:43

    Przekonałeś mnie! :)

    Niby o tym myślałem, ale chciałem zrobić po swojemu. Chyba tak jest po prostu prościej...

    Dzięki!

  • Dariusz Myszkowski
    Wpis na grupie Ms Access w temacie Procenty w formularzu i tabeli
    2.10.2020, 11:45

    Tak, wszystko rozumiem.
    tylko chciałem mieć poprawną tabelę, ponieważ to właśnie formularz ją otwiera i klikając na selektor można wstawić dane do formularza. A więc tabela jest w użyciu i widoczna dla usera. A co za tym idzie, powinna być dla niego zrozumiała i posiadać wartości procentowe.

    Poradziłem sobie w taki sposób, że tabela zawiera wartości całkowite odzwierciedlające wartość procentową, np: 8% = 8, a nie 0,08. A to formularz poprawnie wszystko zlicza i podaje dalej.

    Dzięki!Ten post został edytowany przez Autora dnia 02.10.20 o godzinie 11:45

  • Dariusz Myszkowski
    Wpis na grupie Ms Access w temacie Procenty w formularzu i tabeli
    1.10.2020, 14:20

    Mam tabelę z listą produktów oraz polem procentowym (Vat)

    Mam formularz, który korzysta z innej tabeli (dane). w formularzu jest przycisk, który szuka w tabeli produktów odpowiednią wartość w oparciu o klucz i wpisuje tę wartość do formularza (czyli też do tabeli 'dane').

    Wszystko mi działa oprócz pola procentów. Tzn. pomimo, że VAT ustawiony jest np. na 8% to po wykonaniu kodu formularz otrzymuje VAT = 0%.
    Co ciekawe, jeśli ustawię w liście produktów VAT = 80, formularz otrzymuje wartość 100%.
    Dopiero, kiedy ustawię w liście produktów VAT = 800%, formularz otrzyma prawidłową wartość 800%
    Podejrzewam, że ma to coś wspólnego z podwójnym procentowaniem i pewnie, jeśli lista produktów byłaby zapisana w sposób dzisiętny, a formularz w procentowy, to wszystko by śmigało. Jednak chciałbym w obu przypadkach mieć wizualizację %.

    Ktoś pomoże?

    Edit: widzę, że to samo zjawisko/problem występuje już w edycji tabeli, a dokładnie w 'rozmiarze pola'. Czy mam coś tu ustawić? Próbuję metodą prób i błędów i nic to nie daje...Ten post został edytowany przez Autora dnia 01.10.20 o godzinie 14:24

  • Dariusz Myszkowski
    Wpis na grupie Ms Access w temacie Czasowy popup
    27.02.2020, 09:42

    tak, tak, znam to rozwiązanie.

    Ale chodzi mi o coś znacznie prostszego, jak krótka informacja, która znika sama po sekundzie.

    dziwię się, że jest to raczej niewykonalne. :)

    Dzięki za wsparcie!

  • Dariusz Myszkowski
    Wpis na grupie Ms Access w temacie Czasowy popup
    23.02.2020, 11:55

    Czy istnieje możliwość wyświetlenia popupu, który po czasie np. 1-2 sekundy zniknie?

    W sieci znalazłem to:
    Dim AckTime As Integer, InfoBox As Object
    Set InfoBox = CreateObject("WScript.Shell")
    'Set the message box to close after 10 seconds
    AckTime = 10
    Select Case InfoBox.Popup("Click OK (this window closes automatically after 10 seconds).", _
    AckTime, "This is your Message Box", 0)
    Case 1, -1
    Exit Sub
    End Select

    ...ale i tak trzeba ręcznie zamknąć okienko...

  • Dariusz Myszkowski
    Wpis na grupie Ms Access w temacie problem ze zwróceniem prawidłowej wartości pola tekstowego
    13.02.2020, 13:48

    strTekst30 = [Formularze]![formularz].[miesiąc]

    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, _
    strQry, "C:\Dane_zbiorcze_" & strTekst30 & ".xls", True

    i wyskakuje błąd: Access nie może odnaleźć pola "|1", do którego istnieje odwołanie w wyrażeniu

    dlaczego"|1", a nie "1"?

    czy ktoś ma pomysł?

  • Dariusz Myszkowski
    Wpis na grupie Ms Access w temacie Dlast dlaczego runtime error2471?
    31.01.2020, 14:15

    Wielkie dzięki! :)

  • Dariusz Myszkowski
    Wpis na grupie Ms Access w temacie Dlast dlaczego runtime error2471?
    31.01.2020, 13:55

    Potrzebuję, aby w formularzu po wpisaniu w pole danego nazwiska drugie pole zwracało automatycznie ostatnio wpisywaną ulicę przynależną w tabeli do tegoż nazwiska.

    tabela: "Formularz"
    komórki: "nazwisko", "ulica"

    używam w formularzu zdarzenia po aktualzacji:

    'Me!ulica = DLast("ulica", "Formularz", "[nazwisko] = " & Me![nazwisko])

    Access zwraca runtime error 2471

    Wydaje się, że wszystko jest zrobione poprawnie. Ewentualnie kryteria DLast może źle zapisałem?

    'Me!ulica = DLast("ulica", "Formularz", Not Null) - działa, ale nie o to chodzi...

    Jakieś pomysły? Pomóżcie, bo prosta rzecz, a nie idzie...Ten post został edytowany przez Autora dnia 31.01.20 o godzinie 14:12

  • Dariusz Myszkowski
    Wpis na grupie Ms Access w temacie Wielokrotny wybór w formularzu
    13.03.2019, 23:31

    Jeśli nie ma innej prostszej metody, Twoja propozycja jest jedyną sensowną.

    Dziękuję!

    Edit: otagowanie w przypadku listy wartości nic nie daje. Przy otwieraniu formularza ustawiam .locked = true, ale kiedy przyciskiem odblokowuję wszystkie otagowane kontrolki, odblokowanie działa wszędzie tylko nie na liście wartości.
    Czyli wynik podobny jak w przypadku allowedits....

    Me.wybór_Value.Locked = False także nie działa...Ten post został edytowany przez Autora dnia 13.03.19 o godzinie 23:51

  • Dariusz Myszkowski
    Wpis na grupie Ms Access w temacie Wielokrotny wybór w formularzu
    13.03.2019, 19:29

    Zwykle w formularzu używałem po prostu allowedits = treue/false, aby przez pomyłkę nie nadpisać jakichś informacji. Dodawałem dwa przyciski: Edit i Zapisz.
    Teraz z listą pól allowedits nie działa.

    Nie chcę blokować za pomocą .locked, bo musiałbym każdy formant w taki sposób zablokować. Zwykle robiłem to za pomocą jednej instrukcji.

  • Dariusz Myszkowski
    Wpis na grupie Ms Access w temacie Wielokrotny wybór w formularzu
    12.03.2019, 22:59

    Dzięki Krzysztof.

    Sposób drugi znam, ale chciałem go uniknąć, gdyż chcę, żeby wszystkie dane były w jednej tabeli.

    Analizuję sposób pierwszy...

    Edit: I mam cię tu bracie!

    Problem polegał na tym, że miałem ustawione allowedits = false przy ładowaniu formularza.

    po naciśnięciu klawisza edytuj uruchamiała się procedura allowedit = true, ale uwaga...

    nie dotyczy to okna pola listy!

    A ja myślałem, że coś źle w innych ustawieniach robię i zmieniałem, kombinowałem... Twój przykład pomógł mi, gdyż uświadomiłem sobie, że (prawie) wszystko robiłem dobrze.

    Ściągnę pomysł, żeby jednak w tabeli ustawić wielokrotny wybór jako pole kombi, bo zwróci mi wyniki jako ciag znaków oddzielonych przecinkami. :)

    Teraz wystarczy, że pokombinuję jak zrobić allowedits dla obiektu pola listy w formularzu.
    Może masz pomysł? ustawiam we właściwościach formularza edycja dozwolona-nie; przycisk uruchamia komendę allowedits która pozwala na edytowanie wszystkich danych oprócz wybór.value (czyli naszej listy wielokrotnego wyboru)
    Próbowałem wybór.value.allowedits = true, ale nie działa

    Edit:
    Me.wybór_Value.AllowValueListEdits = True też nie, chociaż wydaje się, że to dobra komenda

    Dzięki jeszcze raz!Ten post został edytowany przez Autora dnia 12.03.19 o godzinie 23:48

  • Dariusz Myszkowski
    Wpis na grupie Ms Access w temacie Wielokrotny wybór w formularzu
    12.03.2019, 20:27

    zaznaczam wielokrotny wybór we właściwościach pola listy i ustawiam na prosty (lub złożony).

    Tak, w zależności jak ustawię źródła wierszy itd, checkboxy pojawiają się lub znikają. Przy jednym ustawieniu źródeł pokazują mi się nawet liczby autonumerowania z tabeli wyboru.

    z poziomu tabeli checkboxy oczywiście są, i tak, jak pisałem wczesniej - tutaj wszystko gra.Ten post został edytowany przez Autora dnia 12.03.19 o godzinie 20:28

  • Dariusz Myszkowski
    Wpis na grupie Ms Access w temacie Wielokrotny wybór w formularzu
    12.03.2019, 20:07

    Krzysztof, dzięki za dotychczasowe rady. :)

    z poziomu tabeli wszystko wygląda w porządku. można edytować, zmieniać, dane się zapisują.

    link w międzyczasie zmieniałem, ale jest już aktualny.

    dodałem ID w tabeli wyboru (autonumerowanie, klucz podstawowy), ale z mojej analizy wynika, że nic to nie daje. Wszystko działa tak samo jak opisywałem. Czyli jeśli wybór jest jednokrotny to wszystko śmiga, kiedy przełączam na wielokrotny to " formularz nie pokazuje wcześniej zachowanych wyborów (chociaż istanieją cały czas w tabeli), brak jest możliwości przejścia do nowego rekordu lub przejścia do innego rekordu (tutaj wywala błąd: indeks i klucz podstawowy nie mogą zawierać wartości null) więc jest to nie zapisywalne w tabeli..."

    ukrywanie kolumny w polu kombi (a dokładnie w polu listy) nie jest mi na tym etapie potrzebne. Widzę tylko jedną kolumnę.Ten post został edytowany przez Autora dnia 12.03.19 o godzinie 20:16

  • Dariusz Myszkowski
    Wpis na grupie Ms Access w temacie Wielokrotny wybór w formularzu
    12.03.2019, 18:40

    relacja jest ustawiona w ten sposób:
    https://www.dropbox.com/s/q1kc3zaywozmq5s/rel.png?dl=0

    rodzaj wycieczki to tabela z wyborami
    Dane to tabela podstawowa

    @Edit
    Chodzi Ci, żeby stworzyć tyle kolumn tabeli ile jest wyborów?
    Mogę tak zrobić, ale jest tego ze 30 szt.

    Edit
    Na tą chwilę udało mi się ustatwić wszystko w ten sposób, że przy wyborze jednokrotnym wszystko działa, tak jak powinno. Czyli zachowuje wybory w tabeli i jest to odczytywalne/edytowalne z poziomu formularza.

    niestety, kiedy ustawię wybór wielokrotny w formularzu na prosty lub złożony wszystko się rozjeżdża: formularz nie pokazuje wcześniej zachowanych wyborów (chociaż istanieją cały czas w tabeli), brak jest możliwości przejścia do nowego rekordu lub przejścia do innego rekordu (tutaj wywala błąd: indeks i klucz podstawowy nie mogą zawierać wartości null) więc jest to nie zapisywalne w tabeli...Ten post został edytowany przez Autora dnia 12.03.19 o godzinie 19:31

  • Dariusz Myszkowski
    Wpis na grupie Ms Access w temacie Wielokrotny wybór w formularzu
    12.03.2019, 14:05

    Witam!

    Jestem w miarę początkującym użytkownikiem, a dokładniej rzadko tworzę w MS Access, dlatego moje pytanie może się wydać proste.
    Nie mogę sobie jednak z tym poradzić...

    stworzyłem tabelę z kolumną która pobiera wartości z innej tabeli. Chciałbym, aby użytkownik miał możliwość dokonania wielokrotnego wyboru tego kontentu.
    Z poziomu widoku tabeli wszystko działa :)

    Natomiast kiedy tworzę listę wybieraną w formularzu, tworzą mi się straszne głupoty. W najlepszym przypadku widzę listę wybieralną z checkboxami, ale są one nieaktywne...
    we właściwościach formularza ustawione są:
    źródło formantu - kolumna podstawowej tabeli
    źródło wierszy - tabela z wyborami
    typ źródła wierszy - tabela/kwerenda

    zanzaczona opcja wielokrotnego wyboru oczywiście.

    Najśmieszniejsze jest to, że już coś takiego robiłem wielokrotnie, a teraz ni w ząb...

    Kto mi pomoże?

Dołącz do GoldenLine

Oferty pracy

Sprawdź aktualne oferty pracy

Aplikuj w łatwy sposób

Aplikuj jednym kliknięciem

Wyślij zaproszenie do