(19-12-2009, 11:56)jxompjer demiş ki: Program çok güzel. Ancak bir sorum olacaktı. Bu metin kutularının yanındaki "ekle" butonlarına tıklayıp yeni bir şey eklediğimizde formu tekrar açmamız gerekiyor. Acaba tekrar açma olayı olmadan güncellenebilir mi?

(24-12-2009, 19:04)jxompjer demiş ki: Cevabınız için teşekkürler. Peki bunu nasıl yapacağız acaba. Yani kodları ve nereye yazacağımızı anlatırsan çok güzel olacak.

Private Sub Command24_Click()
On Error GoTo Err_Command24_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "GELIR TIPI"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, "GELIR TABLOSU FORMU", acSaveYes
Exit_Command24_Click:
    Exit Sub
 
Err_Command24_Click:
    MsgBox Err.Description
    Resume Exit_Command24_Click
 
End Sub

DoCmd.OpenForm , "GELIR TABLOSU FORMU"