AccessTr.neT - Userform İle Tanımlı Adresten Sms Atmak

Sayfalar: 1 2 3 4 5

(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

(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.

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.

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

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

(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.

Sayfalar: 1 2 3 4 5