Questione : Forma modale di JQuery

Ricerca del codice modale di jquery.  Volere basicamente potere mettere una forma su ordinazione in una disposizione modale.  il

I può fare le ricerche del google come pure il tipo seguente, così vogliate rispondono soltanto a se avete esperienza fare this.

Note: Non sono nuovo al Javascript ma all'nuovi a jquery.

class= del

Risposta : Forma modale di JQuery

> come posso regolarmi se importo > 0 dovuto e dopo i 30 giorni della data della fattura
aggiungere >0 alla colonna del amountdue e <>            DOVE (((AmountDue) >0) E ((DateDue)<> e (), - 30))))

Per per trasmettere il email. potreste fare funzionare il codice ogni volta che aprite la base di dati, quando aprite una forma specifica, quando scattate un tasto o persino lo denominate da una macro ed usate un'operazione preveduta trasmetterla ad un momento specifico. Dipende da come volete farli.

Per il codice. qui è un esempio semplice. modificando alcuno del codice altri hanno inviato. Incollare queste due funzioni in un modulo nella vostra base di dati e pubblicare la funzione “YourSavedQueryName„ cambiante di SendReport al nome reale della vostra domanda e “[email protected]„ al vostro email address così come niente altro (quali i nomi di campo) quei ha bisogno di variabile. Allora denominare la funzione di SendReport da dovunque abbiate voluto (come sopra uno scatto del tasto o da una macro) trasmettere il rapporto.

Funzione pubblica OutlookSend (MailUser di ByVal come stringa, ByVal MsgSubject come stringa, ByVal msgbody come stringa) come booleano
appOutLook fioco come Outlook.Application
MailOutLook fioco come Outlook.MailItem
Sull'errore ErrHandler di avanzamento

Se non "" di IsNull (MailUser) e <> del MailUser allora

Regolare il appOutLook = CreateObject (“Outlook.Application„)
Regolare MailOutLook = appOutLook.CreateItem (olMailItem)
Destinatario = MailUser
Con MailOutLook
. A = destinatario
. Oggetto = MsgSubject
. Corpo = msgbody
.DeleteAfterSubmit = allineare 'questo lascerebbe la prospettiva trasmettere la nota senza immagazzinarla nel vostro scomparto trasmesso
. Trasmettere
Concluder con

Regolare MailOutLook = niente
Regolare il appOutLook = niente

Concluder se 'non IsNull (MailUser)

ExitHere:
Uscire la funzione

ErrHandler:
  Selezionare il caso Err.Number
Caso 0
   
    Riassunto ExitHere

Caso altrimenti

    MsgBox “errore„ & Err.Number & “(" & Err.Description & ") in OutlookSend„

Estremità prescelta
Funzione di conclusione





Funzione pubblica SendReport ()

   
    MyMsgBody fioco, MySubject, MyMailAddress come stringa
    ItemCount fioco come numero intero
    Sull'errore ErrHandler di avanzamento

Se DCount (“*„, “YourSavedQueryName„) > 0 allora


Dbs fiochi come base di dati, rst come DAO.Recordset

    Regolare i dbs = CurrentDb
    Regolare il rst = dbs.OpenRecordset (“YourSavedQueryName„)

rst.MoveFirst
ItemCount = 0
Fare fino a rst.EOF
item1 = rst! AmountDue
item2 = rst! WorkOrder
item3 = rst! [Data della fattura]
MyMsgBody = MyMsgBody & item1 & vbTab & item2 & vbTab & item3 & vbCrLf
ItemCount = ItemCount + 1
rst.MoveNext
Ciclo
rst. Fine

MyMailAddress = “[email protected]
MySubject = “rapporto dovuto delle fatture: „ & ItemCount & “articoli„

Se non il "" di IsNull (MyMsgBody) e <> di MyMsgBody allora macera = OutlookSend (MyMailAddress, MySubject, MyMsgBody)

Concluder se


ExitHere:
Uscire la funzione

ErrHandler:
  Selezionare il caso Err.Number
Caso 0
   
    Riassunto ExitHere

Caso altrimenti

    MsgBox “errore„ & Err.Number & “(" & Err.Description & ") in SendReport„

Estremità prescelta
Funzione di conclusione
Altre soluzioni  
 
programming4us programming4us