AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Seçilen Verilerin Word'e Aktarılması

1 2 3 4 5 6 7 8 9 10
18/02/2020, 10:22

alicimri

Ö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.
18/02/2020, 13:55

prestij06

(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.
18/02/2020, 14:32

ozanakkaya

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
18/02/2020, 17:54

prestij06

Ş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.
18/02/2020, 18:02

feraz

Harf yazıncada hata vermiyor mu?
18/02/2020, 23:31

feraz

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
1 2 3 4 5 6 7 8 9 10