Pytanie : Gdy Kontrolka ActiveX na formularzowy zmiana, stosować nowy wartość inny kontrola na forma.

I mieć "Kalendarzowy" Kontrolka ActiveX na forma wymieniać "frmMain".  Jeżeli dawać dla ewentualny wydarzenie:
1) Na Updated
2) Na Enter
3) Na Exit
4) Na Dostawać Focus
5) Na Przegrany Focus

I mieć inny formularzowy kontrola wymieniać "txtDate" brak wartość być DateRange90 ("Początek"), che opierać się na the funkcja
listed pod che opierać się na mój kalendarzowy ActiveX Control.

When the forma ładunek, the "txtDate" zaludniać z the wartość DateRange90 ("Początek").  , Gdy the użytkownik zmieniać the kalendarzowy data przez the Kontrolka ActiveX, I chcieć the nowy data odbijać w "txtDate".  Jakaś pomysł na jak I móc ten praca? 

(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

Public Funkcja DateRange90 (StartEnd) Długo
    
    Ciemnawy StartYear Sznurek
    Ciemnawy StartMonth Sznurek
    Ciemnawy StartDay Sznurek
    Ciemnawy EndYear Sznurek
    Ciemnawy EndMonth Sznurek
    Ciemnawy EndDay Sznurek
    
    Ciemnawy StartDay_S Sznurek
    Ciemnawy EndDay_S Sznurek
    
    Ciemnawy StartDay_I Długo
    Ciemnawy EndDay_I Długo
    
    Jeżeli StartEnd = "Zaczynać" Wtedy
        StartYear = [Forma]! [frmMain]! actxCalendar90Start.Year
        StartMonth = [Forma]! [frmMain]! actxCalendar90Start.Month
        StartDay = [Forma]! [frmMain]! actxCalendar90Start.Day
        
        Jeżeli Len (StartMonth) = (1) Wtedy
            StartMonth = "(0)" & StartMonth
        Kończyć Jeżeli
        
        Jeżeli Len (StartDay) = (1) Wtedy
            StartDay = "(0)" & StartDay
        Kończyć Jeżeli
        
        StartDay_S = StartYear & StartMonth & StartDay
        StartDay_I = CLng (StartDay_S)
        DateRange90 = StartDay_I
        
    ElseIf StartEnd = "Końcówka" Wtedy
        EndYear = [Forma]! [frmMain]! actxCalendar90End.Year
        EndMonth = [Forma]! [frmMain]! actxCalendar90End.Month
        EndDay = [Forma]! [frmMain]! actxCalendar90End.Day
        
        Jeżeli Len (EndDay) = (1) Wtedy
            EndDay = "(0)" & EndDay
        Kończyć Jeżeli
        
        Jeżeli Len (EndMonth) = (1) Wtedy
            EndMonth = "(0)" & EndMonth
        Kończyć Jeżeli
        
        EndDay_S = EndYear & EndMonth & EndDay
        EndDay_I = CLng (EndDay_S)
        
        DateRange90 = EndDay_I
    Kończyć Jeżeli
    

Kończyć Funkcja

Odpowiedź : Gdy Kontrolka ActiveX na formularzowy zmiana, stosować nowy wartość inny kontrola na forma.

Zadawalać pozwalać różny projekt wzór (To być co PayPal i inny wyszukany miejsce use).

Gdy ty mieć wiadomość dla, używać the aktualny DATETIME, mój klient id, i the wiadomość zawartość i uzupełniać wiadomość przegląd using md5 ().  Przechować mój wiadomość i the md5 () sznurek w twój baza danych.

Wysyłać plain-text email z połączenie the wiadomość-czytelnik pismo.  The pismo mieć the md5 () klucz w the URL i ono być tylko dostępny dostępny HTTPS.

The pismo wymagać mój klient ID i hasło i potwierdzać te.  Wtedy gdy I uwiarygodniać ono pokazywać the wiadomość nad the HTTPS strona internetowa.

W ten projekt wzór ty mieć w zasadzie żadny ryzyko przechwycenie the email -- hasło kto obwąchiwać ono wciąż potrzebować the UID i Hasło.  I ponieważ ty przedstawiać the wiadomość nad HTTPS, ty potrzebować potrzebować, i twój klient potrzebować decrypt potrzebować - ono być wszystko automatyczny.  Ty móc nawet postępowy HTML tytułowanie twój wiadomość spojrzenie ładny!

To robić sens dla twój app?

Najlepszy, ~Ray
Inne rozwiązania  
 
programming4us programming4us