AccessTr.neT

Tam Versiyon: Userform İle Tanımlı Adresten Sms Atmak
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5
Herkese Merhaba
ekteki dosya ile userform ile arada sms gidiyor genelde ise sms göndermiyor. aşağıda belirttiğim kısımda hata veriyor ama çözemedim Ekteki dosya da
Kod:
Dim tur As String
tur = "Normal"
Dim smsNN As String
smsNN = vbNullString

bu kısımda normal yazınca Türkçemizin karekterlerini ingilizce karaktere çevirip yolluyor . Normal Yazan yerde Türkçe yazınca ise Türkçe karakterleri ingilizce karaktere çevirmeden Türkçe ç ş ğ ü ö şeklinde göndermesini istiyorum.
Yardım edebilecek olan varsa çok sevinirim.

Hata aldığım kısım aşağıda
Dim cevap As String
cevap = bytRetData

Dim ilkKarakter As String
ilkKarakter = Left$(cevap, 1)
If ilkKarakter = "1" Then
MsgBox "SMS Gönderimi Başarıyla Tamamlandı.!"
Else
MsgBox "SMS Gönderimi BAŞARISIZ.!"
End If
Set oXmlHttp = Nothing
Debug.Print smsNN
Normalde okla gösterdiğim yerler tersi olmalı.
Resimdeki gibi deneyin.


[Resim: do.php?img=10666]
(08/01/2021, 21:34)feraz yazdı: [ -> ]Normalde okla gösterdiğim yerler tersi  olmalı.
Resimdeki gibi deneyin.


[Resim: do.php?img=10666]
 Dim cevap As String
cevap = bytRetData

Dim ilkKarakter As String
ilkKarakter = Left$(cevap, 1)
If ilkKarakter = "1" Then
MsgBox "SMS Gönderimi Başarıyla Tamamlandı.!"
Else
MsgBox "SMS Gönderimi BAŞARISIZ.!"
End If
Set oXmlHttp = Nothing
Debug.Print smsNN

Hocam buradaki kısım hatalı görünüyor.
Ben dosyanızı denerken.Comboboxtan seçim yapmıştım ve textboxlara veri girince resime eklediğim yer hata vermişti çünkü dizi yaptığınız için ve dizi olarak uygulamadığınız için hata vermişti.
O kısma sonra bakabilirim.
Kısaca resimde gösterdiğim yerde hatalı yazmıştınız.

(08/01/2021, 23:24)hayalibey yazdı: [ -> ]cevap = bytRetData
Burdaki byReyData kodunu yazabilirmisiniz bir mobilden inceleyeyim.
(08/01/2021, 23:55)feraz yazdı: [ -> ]Ben dosyanızı denerken.Comboboxtan seçim yapmıştım ve textboxlara veri girince resime eklediğim yer hata vermişti çünkü dizi yaptığınız için ve dizi olarak uygulamadığınız için hata vermişti.
O kısma sonra bakabilirim.
Kısaca resimde gösterdiğim yerde hatalı yazmıştınız.

(08/01/2021, 23:24)hayalibey yazdı: [ -> ]cevap = bytRetData
Burdaki byReyData kodunu yazabilirmisiniz bir mobilden inceleyeyim.

Hocam elimde olan tüm kodlar yüklü olan dosyada mevcut . Elimde malesef başka kod yok
Bende Pc açmadan kodu eklerseniz bakayım demek istemiştim mobilden.

cevap = bytRetData
Burdan gelen sonucun solundaki 1 ise diye şart koşmuşsunuz.Onun için bakacaktım koda.

(06/01/2021, 20:16)hayalibey yazdı: [ -> ]Left$(cevap, 1)
Ayrıca burdaki dolar işaretine gerekte yok.
Sayfalar: 1 2 3 4 5