Option Compare Database Private Sub Ayrıntı_Print Me. FillStyle = 0 yerlestir harfyerlestir End Sub Private Sub yerlestir Dim x As Integer Dim y As Integer Dim z As Integer For x = 1 To 11 y = Me . Value z = Me . Left Me. Circle (z + 80, (y 300) + 500), 100, 0 Next x End Sub Private Sub harfyerlestir Dim harfler As String harfler = "abcçdefgğhıijklmnoprsştuüvyz" Dim x As Integer Dim y As Integer Dim i As Integer Dim z As Integer Dim t As Integer Dim c As Integer y = Len t = Len For c = 1 To 20 Me = "" Next c For x = 1 To t Me . Value = Mid(Me. adı_soyadı, x, 1) For z = 1 To y If Mid(Me. adı_soyadı, x, 1) = Mid(harfler, z, 1) Then Me. Circle (Me . Left, (z 200) + 6000), 100, 0 End If Next z Next x End Sub Yukarıda yazdığım kod bir access dosyasındaki VB kodlarıdır. Accesste bu kodlar soldan sağa yazılmış bir ad soyadı optik kodlar gibi işaretleme yapıyor. Benim sizden ricam bu ad soyad kısmını soldan sağa değilde yukarıdan aşağıya şeklinde yazdırıp optik gibi kodlamayıda yukarıdan aşağıya değilde soldan sağa şeklinde yapmanız. tabi bu mümkünse. daha nce bu kodları içerisinde barındıran dosyayı altta linki olan optik doldurma ile ilgili konuda paylaşmıştım burada da paylaşıyorum zip halini. dosya linki: http://dosya.co/hbtyaefpq8po/optik_kodlama-acc. rar.html konu linki: https://www.tahribat.com/forum/optik-form-doldurma-programi-istek-234930 İnsanları sevin, saygınızı gsterin ama kesinlikle insanlara acımayın. Çünkü acıdığınız anda acınacak duruma düşüyorsunuz

emirhan-exp tarafından 14/Ağu/18 00:41 tarihinde düzenlenmiştir

@EyupErol, @ksavir `e zel mesajdan bir sor bakalım dnecek mi? Düzel`ti`yorum ^^D), doğrusu : @Kvasir, olacak. RitmFarbRacourci tarafından 24/Mar/18 01:19 tarihinde düzenlenmiştir I'şıkY'ılı;^^`) Zk't^^` RnSySyTk. dl. SpRtÇzBşBkYd Kryptia. agogE Sa'd-l'Suud az. ç'k 'lmyn'Dşn Pnct'tnAnNttn Blgi, YpBlgi 'Ct'nDrm. CmdyDrm. MdrnDrm hRşYdşR ClptcPth'Strsm M'nPhs' Ld, X/Y YrYnZmnGrçklk, AlgBzklğ KrzFrst'tr Tiytr' Pugchv, Jtrn, İmmlmn, FllngLef, Pik' SuprmcySprrty CoBehTh elFnmno:NzrioRonldo AdnKy TkSs, TkHrf . RtNsTk. KvMp. Mk. TrmDyn ScklkNmRzgr ŞkHcBy ccp. kky Snrlr'Çz SnaSnLzmsn 'NsnKsknçtr BgDppr. MagllnCl'ds. S'thCro's Ch'kW'ng CreazioneDiAdamo^^`, Arctrs. Spic' ArcScnd, YySnye TrbProp, TrbJet, TrbFan 3.10^5km/sn 343m/sn 900-1240m/snMacH RamJt, ScRamJt Przdi^^' Tbu. XL Prsek MAtv^^` mLAT G'dWllHnting . 3id't^^` TareZmenPr ParaMotor TrflrVArsİlşklr +. , ZminŞkil. .. Bu imza @SubZero tarafindan degistirilmistir. "Bu kadar uzun karmakarisik bir imza yapma diye uyardim ama heeheeeey _hey kim sylüyor, kim dinliyor." Imzanizi SubZero'ya bilgi vermeden degistirmeyiniz. Tesekkurler...

@EyupErol, @ksavir `e zel mesajdan bir sor bakalım dnecek mi? Düzel`ti`yorum ^^D), doğrusu : @Kvasir, olacak. son giriş yaptığı tarih 20 Mayıs 2017 yazıyor hocam :(ilgin için teşekkür ederim. Grmeyen kaldıysa diye bir kez daha konunun güncel olduğunu belirteyim. Visual Basic ten anlayan birisi yardımcı olabilir mi? istediğim şey mümkün mü? İnsanları sevin, saygınızı gsterin ama kesinlikle insanlara acımayın. Çünkü acıdığınız anda acınacak duruma düşüyorsunuz

Belki bir bilen grür yardım eder diye bir kez daha konu yukarı. İnsanları sevin, saygınızı gsterin ama kesinlikle insanlara acımayın. Çünkü acıdığınız anda acınacak duruma düşüyorsunuz

konu yukarı İnsanları sevin, saygınızı gsterin ama kesinlikle insanlara acımayın. Çünkü acıdığınız anda acınacak duruma düşüyorsunuz

dosya silinmiş, upload edebilir misin? If my calculations are correct, when this baby hits eighty-eight miles per hour... you"re gonna see some serious shit.