Private Sub btn_KAYDET_Click()
On Error GoTo Err_btn_KAYDET_Click
Dim rs As ADODB.Recordset
Dim strSQL As String
'-----------------------------------------------------------------------
'Kontroller
'-----------------------------------------------------------------------
If IsNull(Me.frm_TANIMI) Or IsEmpty(Me.frm_TANIMI) Then
MsgBox "Projenin adını giriniz!...", 46
Me.frm_TANIMI.SetFocus
Exit Sub
End If
Dim KayitNo
KayitNo = DCount("*", "PROJE", "PROJE_ADI='" & Me.frm_TANIMI & "'")
If KayitNo > 0 Then
MsgBox "Bu adla proje kayıtlı."
Me.frm_TANIMI.SetFocus
Exit Sub
End If
'-----------------------------------------------------------------------
' Kayıt İşlemleri
'-----------------------------------------------------------------------
strSQL = "Select * From PROJE Where True=False"
Set rs = New ADODB.Recordset
rs.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("PROJE_ADI") = Me.frm_TANIMI
rs("PROJE_YETKILI") = Me.frm_TANIMI1
rs("PROJE_MAIL") = Me.frm_TANIMI2
rs("PROJE_TEL") = Me.frm_TANIMI3
rs("PROJE_ADRESI") = Me.frm_TANIMI4
rs("TARIH") = Me.frm_TANIMI5
rs("PRMUD") = Me.frm_TANIMI6
rs("PROGG") = Me.frm_TANIMI8
rs("PRAMIR") = Me.frm_TANIMI7
rs("PRDAN") = Me.frm_TANIMI9
rs("PRTEM") = Me.frm_TANIMI10
rs("PRTEK") = Me.frm_TANIMI11
rs("PRPEY") = Me.frm_TANIMI12
rs("TXTRESİM5") = Me.mtn_proresim
rs("TXTRESİM6") = Me.mtn_projeresim1
rs("TXTRESİM7") = Me.mtn_projeresim2
rs("TXTRESİM8") = Me.mtn_projeresim3
rs.Update
rs.Close
GProjeId = DMax("PROJE_ID", "PROJE")
'------------------------------------------------------------------------
' strSQL = "Select * From SORU Where True=False"
' Set rs = New ADODB.Recordset
' rs.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
' rs.AddNew
' rs("PROJE_ID") = Me.frm_NO
' rs.Update
' rs.Close
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO SORU ( SORU_ID, SORU, PROJE_ID ) SELECT TOP 10 SORU_ID, SORU, " & GProjeId & " FROM SORU WHERE (((PROJE_ID) = 1)) ORDER BY SORU.SORU_ID;"
DoCmd.SetWarnings True
' DoCmd.SetWarnings False
' DoCmd.OpenQuery "Sorgu1"
' DoCmd.SetWarnings True
'-----------------------------------------------------------------------
[Forms]![frm_degerlendir].ProjeListesi.Requery
DoCmd.Close acForm, "frm_degerlendir_Proje_Ekle"
Exit_btn_KAYDET_Click:
Exit Sub
Err_btn_KAYDET_Click:
MsgBox Err.Description
Resume Exit_btn_KAYDET_Click
End Sub
Kaydet butonunun tıklandığında olayındaki kodların tamamını aşağıdaki ile değiştir.
