Ö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ı
(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.
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
Ş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: 3 Ziyaretçi
