en üstteki sucno yazan text kutusunda yanacak öylemi. eger öyleyse aşağıdaki kodları yapıştır...
On Error GoTo Err_Komut96_Click
Dim ctrl As Control
DoCmd.GoToRecord , , acNewRec
For Each ctrl In Me.Controls
If ctrl.Tag = "A" Then
ctrl.Enabled = True
End If
Next
Me.SucNo = DMax("SucNo", "Tablo") + 1
SucNo.SetFocus---> yanması için sadece bu kodu ekledim.
Exit_Komut96_Click:
Exit Sub
Err_Komut96_Click:
MsgBox Err.Description
Resume Exit_Komut96_Click
<<< 10-HAGİ-10 >>>
Son Düzenleme: 18/12/2011, 01:17, Düzenleyen: mcmaho.