Skip to main content

AccessTr.neT


Otomatik Doldurma

Otomatik Doldurma

Çözüldü #1
Giriş Formu-19/A Butonu-DENEME-İhale Botonu ile 19/A İhale Formuna girip doldurduktan sonra Hakediş Butonuna tıklayıp 19/A Hakediş Formuna geçildiğinde Poz No alanını nasıl otomatik olarak E.1 E.2 …… olarak doldurtabilirim.
.rar İHALE ve HAKEDİŞ.rar (Dosya Boyutu: 1.006,83 KB | İndirme Sayısı: 25)
Cevapla
Çözüldü #2
A Altformun geçerli olduğunda olayındaki kodları aşağıdaki ile değiştir.

 If Not Me.NewRecord Then
Dim bul As String

If IsNull(Me.pz_no) Then
pz_no = "E.1"
Form.Requery
End If

bul = Me.pz_no

Me!txtBackColor3.ControlSource = "=[pz_no] = " & "'" & bul & "'"
Else
Me!txtBackColor3.ControlSource = "=False"
End If

form açıldığında ilk boş satıra E.1 yazacak. boş olan 2. satırı çift tıkladığında poz noya göre tamamlayacak
Cevapla
Çözüldü #3
Sn. sledgeab;
Sayenizde istediğimizden fazlasıyla bir program oluyor.
Diğer satırları da otomatik doldurabilirmiyiz. E.2 E.3 ........
Cevapla
Çözüldü #4
Aşağıdaki kodu "A Alt Form" formuna ekle

Sub Tamamla()
Dim i As Integer
strSQL = "SELECT * FROM AHK"
Set pozkayit = New ADODB.Recordset
pozkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With pozkayit
For i = 1 To 100
.Find "[is_no]=" & Me.is_no
.Fields("pz_no") = "E." & i
.Update
.MoveNext
Next i
End With
End Sub


 If IsNull(Me.pz_no) Then
pz_no = "E.1"
Form.Requery
End If
kodunu aşağıdaki ile değiştir

call tamamla


Cevapla
Çözüldü #5
Sn.sledgeab
.Fields("pz_no") = "E." & i hata veriyor.
Cevapla
Çözüldü #6
Sn mozuer;
Ben de denedim gayet sağlıklı çalışıyor. Birde bu örneği inceleyin isterseniz.
.rar İHALE ve HAKEDİŞ_2011-09-17.rar (Dosya Boyutu: 982,95 KB | İndirme Sayısı: 22)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da