AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Otomatik Doldurma

1 2
16/09/2011, 16:10

mozuer

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.
17/09/2011, 01:05

ozanakkaya

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
17/09/2011, 11:53

mozuer

Sn. sledgeab;
Sayenizde istediğimizden fazlasıyla bir program oluyor.
Diğer satırları da otomatik doldurabilirmiyiz. E.2 E.3 ........
17/09/2011, 14:34

ozanakkaya

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


17/09/2011, 16:35

mozuer

Sn.sledgeab
.Fields("pz_no") = "E." & i hata veriyor.
17/09/2011, 16:56

ercansahin

Sn mozuer;
Ben de denedim gayet sağlıklı çalışıyor. Birde bu örneği inceleyin isterseniz.
1 2