AccessTr.neT

Bul · 06/01/2021, 20:16

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

Bul · 08/01/2021, 21:34

Normalde okla gösterdiğim yerler tersi olmalı.
Resimdeki gibi deneyin.

[Resim: do.php?img=10666]

Bul · 08/01/2021, 23:24

(08/01/2021, 21:34)feraz yazdı: Normalde okla gösterdiğim yerler tersi olmalı.
Resimdeki gibi deneyin.

 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.

Bul · 08/01/2021, 23:55

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.

Bul · 09/01/2021, 00:58

(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

Bul · 09/01/2021, 01:03

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.

AccessTr.neT

Userform İle Tanımlı Adresten Sms Atmak

Userform İle Tanımlı Adresten Sms Atmak

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri