AccessTr.neT

S.aleykum değerli forum üyeleri-adminler;
Motorlu Taşıtlar Sınav Görevlisi (Ehliyet Sınavları) belirlemek için bu işle görevli arkadaşlarımın isteği üzerine tasarlamış olduğum uygulama örneği ektedir.

Örnek sorunsuz bir şekilde çalışmakta ve işleyişe büyük katkı sağlamış bulunmaktadır.
Uygulamanın geliştirilmesi için burada paylaşıyorum, dileyen herkes fikir olması açısından inceleyebilir-geliştirip kullanabilir ya da  bu hali ile  kullanabilir.

Uygulama için benim de sizden bir ricam var, herhangi birisi için görev verildiğinde (Görevli EVET/HAYIR) yani evet kutucuğuna onay tiki atıldığında,
SAYIN; X KİŞİ 12.03.2017 Pazar Günü Ehliyet Sınavı Direksiyon Uygulamasında Görevlendirildiniz şeklinde SMS atmak mümkün mü??

Bu konuda öneri ve yardımlarınızı bekliyor saygılar sunuyorum.

Not:Kurumsal olarak sms şirketi ya da milli eğitim bakanlığı kurumsal sms paketi üyeliği üzerinden sms.ler yollanacak.

Microsoft Access İle SMS Gönder

Bağlantısındaki örneği inceleyiniz.

Değerli Ozan hocam;bahsettiğiniz konudaki örneğinizi daha önce de incelemiştim.Konuyu tam kavrayamadığımdan sanırım,mevcut uygulamaya uyarlamada sıkıntı yaşadım.Verdiğiniz örnek başlı başına bir uygulama.

Bizim istediğimiz halihazırda sistemde kayıtlı olan öğretmenlere sınav görevi verildiğinde (sınav tarihi-sınav günü hanesi doldurulup görev evet-hayırdan evet işaretlendiğinde) kime görev verildiyse o kişi işaretlenir işaretlenmez arka planda O KİŞİNİN TEL NO'ya SMS yollamasıdır.Bunun için onay kutusunun tıklandığında olay yordamına nasıl bir kod yazmalıyız bu konuda yardıma ihtiyacım var.

Öneri ve yardımlarınızı bekliyor saygılar sunuyorum.


Not:Benzer özellikteki diğer konumda ise aynı şekilde bu defa SMS değil de MAİL yollaması sözkonusu.

Merhaba, Sizin sms firmanız ne bilmiyorum. Eklediğim bağlantıdaki uygulamada iletimerkezi'ne ait api kullanıldı. 

A2 Grubu kısmındaki alt formdaki "Onay123" onay kutusunun güncelleştirme sonrasında olayına

If Onay123 = -1 Then

MsgBox (Me.telefon & "Numaralı telefona SMS gönderilsin mi?")



GMesaj = "SAYIN " & Me.ad_soyad & "; " & Me.grv_tarih & " " & Metin187 & " günü Ehliyet Sınavı Direksiyon Uygulamasında Görevlendirildiniz"



GirisTel = "000000" ' kullanıcı tel no

GirisSifre = "000000" ' kullanıcı şifresi

GBaslik = "AccessTrneT" 'kullanıcı başlığı



GZaman = Format(Date, "dd/mm/yyyy") & " " & Format(Time(), "hh:nn")

GZaman = Replace(GZaman, ".", "/")

XMLVerisi = "<?xml version='1.0' encoding='UTF-8' ?><request><authentication><username>" & GirisTel & "</username><password>" & GirisSifre & "</password></authentication><order><sender>" & GBaslik & " </sender><sendDateTime>" & GZaman & "</sendDateTime><message><text><![CDATA[" & GMesaj & "]]></text><receipents><number>" & Me.telefon & "</number></receipents></message></order></request>"

GelenXML = XMLPOST("http://api.iletimerkezi.com/v1/send-sms", XMLVerisi)



MsgBox (GelenXML)



End If

Aynı formun Vba sayfasına

Private Function XMLPOST(ByVal PostAddress As String, ByVal xmlData As String) As String

On Error GoTo hata_kontrol

    Dim XMLSender As New MSXML2.XMLHTTP

    XMLSender.Open "POST", PostAddress, False

    XMLSender.send xmlData

    XMLPOST = XMLSender.responseText

    Exit Function

hata_kontrol:

    XMLPOST = ""

End Function

Kodu ekle, son olarak Microsoft XML referansını ekle. Onay kutusu tıklandığında gönderilen sms aşağıdaki gibidir.

Konunuza geri dönüş yapmanızı bekliyoruz.......

Değerli Ozan Hocam vermiş olduğunuz kod ile sorun çözüldü.Çok tşk ederim.Konu taşınabilir.

Not:İş yoğunluğu sebebiyle ancak fırsat bulabildim geç cevap verdiğim için kusura bakmayınız.
Saygılar