+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Otomatik Doldurma (/konu-otomatik-doldurma.html)
Sayfalar:
1
2
Otomatik Doldurma - mozuer - 16/09/2011
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.
Cvp: Otomatik Doldurma - ozanakkaya - 17/09/2011
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 Ifform açıldığında ilk boş satıra E.1 yazacak. boş olan 2. satırı çift tıkladığında poz noya göre tamamlayacak
Cvp: Otomatik Doldurma - mozuer - 17/09/2011
Sn. sledgeab;
Sayenizde istediğimizden fazlasıyla bir program oluyor.
Diğer satırları da otomatik doldurabilirmiyiz. E.2 E.3 ........
Cvp: Otomatik Doldurma - ozanakkaya - 17/09/2011
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 Ifcall tamamlaCvp: Otomatik Doldurma - mozuer - 17/09/2011
Sn.sledgeab
.Fields("pz_no") = "E." & i hata veriyor.
Cvp: Otomatik Doldurma - ercansahin - 17/09/2011
Sn mozuer;
Ben de denedim gayet sağlıklı çalışıyor. Birde bu örneği inceleyin isterseniz.