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.
Otomatik Doldurma
A Altformun geçerli olduğunda olayındaki kodları aşağıdaki ile değiştir.
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
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
Sn. sledgeab;
Sayenizde istediğimizden fazlasıyla bir program oluyor.
Diğer satırları da otomatik doldurabilirmiyiz. E.2 E.3 ........
Sayenizde istediğimizden fazlasıyla bir program oluyor.
Diğer satırları da otomatik doldurabilirmiyiz. E.2 E.3 ........
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ştircall tamamla
Sn.sledgeab
.Fields("pz_no") = "E." & i hata veriyor.
.Fields("pz_no") = "E." & i hata veriyor.
Sn mozuer;
Ben de denedim gayet sağlıklı çalışıyor. Birde bu örneği inceleyin isterseniz.
Ben de denedim gayet sağlıklı çalışıyor. Birde bu örneği inceleyin isterseniz.
Konuyu Okuyanlar: 1 Ziyaretçi