Ö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.
Seçilen Verilerin Word'e Aktarılması
Ş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.
Dün yazmıştım kontrol kodlarını hazırlar eklerim diye.
Tüm olasılıkları kullandım.İsterseniz deneyebilirsiniz.
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
Konuyu Okuyanlar: 1 Ziyaretçi
