Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan
Etiketler
Yazar: accessman - Cevaplar: 3 - İzleme: 2731
metin kutusundaki harflerin timer ile tek tek yazdırılması
iyi günler
timer ile metin harfleri tek tek yazdırma örneği.

Kod:
Option Compare Database
Dim metin3 As String
Dim tara As Integer
Private Sub Form_Open(Cancel As Integer)
metin3 = ""
tara = 0
End Sub

Private Sub Form_Timer()
Dim metin1 As String
Dim metin2 As String

metin1 = "bugun okula geldim."
tara = tara + 1
metin2 = Mid(metin1, tara, 1)
metin3 = metin3 & metin2
son = metin3
timeinterval = 0
End Sub
daktilo efektiyle harf harf metin yazdırın
form2 de bence güzel oldu
[link=h
Yazar: access acemisi - Cevaplar: 6 - İzleme: 2107
Sorguda Harflerin Büyük Gözükmesi
Değerli arkadaşlar :
Tablomda adisoyadi alanı var. Sorguda bu adivesoyadi alanını .iki ayrı sorguda AD ve SOYADI şeklinde ayırdım.

SOYADI: IIf(InStr([adisoyadi];" ")>0;Right([adisoyadi];Len([adisoyadi])-(InStr(Right([adisoyadi];(Len([adisoyadi])-(InStr([adisoyadi];" ")+InStr(Right([adisoyadi];(Len([adisoyadi])-InStr([adisoyadi];" ")));" "))));" ")+(InStr([adisoyadi];" ")+InStr(Right([adisoyadi];Len([adisoyadi])-InStr([adisoyadi];" "));" ")))))

İsteğim şu: adisoyadi  alanı verilerini Başharfle
Task