Skip to main content

AccessTr.neT


Seçilen Verilerin Word'e Aktarılması

Seçilen Verilerin Word'e Aktarılması

#55
Önerilerim.
1 Tabloya Evet/Hayır Veri türünden bir alan ekleyin.
2 Formunuzun Varsayılan Görüntüsünü Sürekli Form olarak ayarlayın
3 Word Belgesinde Yabancı bilgilerinin olduğu bölüme, gerekli sayıdaki satırlı bir Tablo ekleyin, başlıkları yazın.
4 Formunuz açılınca tek veya toplu yazdırmak istediğiniz kayıtların (Tabloya yeni eklediğiniz Evet/Hayır) Onay kutularını çekleyin.
5 Bir Sql sorgu metni ile tablodaki onay kutuları Evet olanları süzdürün ve döngü ile word belgesindeki tablo hücrelerine aktarın.
6 Kapatırken bir update sorgusu ile değeri Evet olan yeni alanı tekrar hayır yapın.
Cevapla
#56
(18/02/2020, 09:29)ozanakkaya yazdı: Kodu 
Dim GVeri As String
    GVeri = InputBox("İlk ve Son KAyıt", "Kayit Gir", "")
    If StrPtr(GVeri) = 0 Then
        MsgBox ("İptal")
Exit Sub
    ElseIf GVeri = vbNullString Then
        MsgBox ("İnput boş")
Exit Sub
    Else
       
  '  GIlkKayit =...... ve sonrası buraya.


End If

şeklinde deneyiniz. Kod içerisine exit sub yazılmasına gerek yok.

bu kod oldu ama format dışında yazdığımızda yine hata veriyor.
Cevapla
#57
Dim GVeri As String
Dim GSay As Integer

GVeri = InputBox("İlk ve Son KAyıt", "Kayit Gir", "")
GSay = InStr(1, GVeri, "-")

If StrPtr(GVeri) = 0 Then

    Exit Sub

ElseIf GVeri = vbNullString Then
       
    MsgBox "Input Boş"
       
ElseIf GSay = 0 Then

    MsgBox "1-2 formatında yazınız."
    Exit Sub
   
Else
       
    GIlkKayit = Left(GVeri, GSay - 1)
    GSonKayit = Mid(GVeri, GSay + 1)

    MsgBox "Aktarma Kodu Buraya"
 
End If
Cevapla
#58
Şuan deneme fırsatım oldu ve kod çalışıyor. Bu konuda destek veren herkese çok tşkler. Uğraştınız emek verdiniz. Elinize sağlık.
Cevapla
#59
Harf yazıncada hata vermiyor mu?
Cevapla
#60
Dün yazmıştım kontrol kodlarını hazırlar eklerim diye.
Tüm olasılıkları kullandım.İsterseniz deneyebilirsiniz.

Kod:
Private Sub btn_olyeri_Click()

    Dim arr, x As Integer, y As Integer, say As Integer
    Dim GVeri
    Dim GSay As Integer
   
    GVeri = InputBox("Ýlk ve Son KAyýt", "Kayit Gir", "")
    arr = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "-")
   
    If GVeri = "" Then
        MsgBox "inputboxa veri girilmedi yada iptal edildi", vbExclamation
        Exit Sub
    End If
   
    say = 0
    For y = 1 To Len(GVeri)
        For x = LBound(arr) To UBound(arr)
          If Mid(GVeri, y, 1) = arr(x) Then
            say = say + 1
          End If
        Next
    Next
   
   
    If say = 0 Or Len(GVeri) <> say Then
hata:
        MsgBox "Format Hata", vbCritical
        Exit Sub
    End If
   
    GSay = InStr(1, GVeri, "-"): If GSay = 0 Then GoTo hata
    GIlkKayit = Left(GVeri, GSay - 1): GSonKayit = Mid(GVeri, GSay + 1)
 
    If GIlkKayit = "" Or GSonKayit = "" Then
        MsgBox "ilk kayit numara yada son kayit numara bos olamaz ", vbCritical
        Exit Sub
    End If

    If GIlkKayit > GSonKayit Then
        MsgBox "ilk kayit numara son kayit numaradan büyük olamaz", vbCritical
        Exit Sub
    End If
       
    'Buraya diger kodlar gelecek

End Sub

Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da