Skip to main content

AccessTr.neT


Userform İle Tanımlı Adresten Sms Atmak

Userform İle Tanımlı Adresten Sms Atmak

#13
(09/01/2021, 17:38)feraz yazdı:
(09/01/2021, 17:08)hayalibey yazdı: Trk(i), Ing(i)
Mantığa göre bunların yeri değişmeli.Sizinki böyle olduğu için eklemiştim.Hatta ilk resimdede yazmıştım.

Hocam Dosya üzerinde işlem yapıp güncel dosyayı yüklemeniz mümkün mü acaba
Cevapla
#14
(09/01/2021, 13:52)feraz yazdı: If ComboBox1.Value = "Türkçe" Or ComboBox1.ListIndex <> -1 Then

Burdaki Or ComboBox1.ListIndex <> -1 yeri silin.Combodan veri seçiildiyse diye düşünmüştüm şart oladak.O şaryı extra yapabilirsiniz.

Tamam abey ben son halini hazırlar eklerim.
Cevapla
#15
Ama hocam bu şekliyle dosya çalışıyor . sadece Türkçe karekter ile mesajlar hem userformdan hem de Excel sayfasından gitmiyor ingilizceye cevriliyor. il sorun bu

Bir de hem userformdan hem de Excel sayfasından gönderdiğim smlerin raporunu alamıyorum ama vatansmsin linkinde rapor almak için kodlar var ben uyarlayamadım.
Cevapla
#16
Eğer combobox2 boş geçilebilirse if ile olan kısmı silebilirsiniz.

Şimdi mesela gel yazdınız mesaj kısmına ve Türkçe seçerseniz ğel olarak gider burdada sorun olmazmı.
Tr karakterleri bozuk harfler için uygulanıyor biliyorum.

If ComboBox2.ListIndex = -1 Then
    MsgBox "GÖNDERÝM ÞEKLÝ BOS GECILEMEZ...", vbCritical, "HATA"
    Exit Sub
End If

If ComboBox2.Value = "Türkçe" Then
    For i = 0 To 11
        TextBox19.Value = Replace(TextBox19, Ing(i), Trk(i))
    Next
End If

[Resim: do.php?img=10669]
Cevapla
#17
Hocam Eğer Türkçe Seçilir ise userform TextBox19 da nasıl yazılırsa hiç dokunulmadan öyle gönder diyeceğimiz bir kod yazacağız

sistemin mantığı şöyle: Normal seçilirse ComboBox2de sms göndermeden önce Textbox19da yazılı olanlar ingilizce karşılığına dönderiliyor önce sonra sms gidiyor
Biz diyeceğiz ki Combobox2 de Türkçe yazıyor ise TextBox19da ne yazıyorsa nasıl görüyorsan öyle gönder yani hiç bir çevirme işlemi yapma TextBox19 da ne varsa onu gönder

Hocam rapor olayına (userform için ve Excel sayfasında göndermek için ayrı ayrı rapor kodları olayına) bakma imkanınız oldu mu acaba

vatansms sayfasına bkma imkanınız oldu mu Hocam
Son Düzenleme: 09/01/2021, 19:18, Düzenleyen: hayalibey.
Cevapla
#18
(09/01/2021, 19:14)hayalibey yazdı: Biz diyeceğiz ki Combobox2 de Türkçe yazıyor ise TextBox19da ne yazıyorsa nasıl görüyorsan öyle gönder yani hiç bir çevirme işlemi yapma TextBox19 da ne varsa onu gönder
Zaten son eklediğim kod böyle.
Sayfadaki Buton içindeki koduda değiştirin.Benimki userform kodu içindeki için.

(09/01/2021, 19:14)hayalibey yazdı: vatansms sayfasına bkma imkanınız oldu mu Hocam
Bakmadım.Sorunuzda hata var demiştiniz hatayı bulduk.Bugün bakayım abey.

Telefondan baktım.O linkteki kodlar Vb.net içinmiş Vba için değil abey.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da