'CurrentDb.Execute " insert into T_UyeHesap " & _ ' " ( UyeNo,Tarih,IslemTuru, Tutar, Aciklama ) values " & _ " ( " & Me.UyeNo_TXT & ",'" & Me.Tarih_TXT & "','Alacak', '" & Me.Tutar_TXT & "','" & Me.Aciklama_TXT & "')" 'End If
RS.Move 0, RS.LastModified lngID = RS!AutoNumberFieldName
DoCmd.RunSQL "INSERT INTO Tbl_Kayit ([user],[pa]) VALUES ('" & Me.Metin0.Value & "','" & Me.Metin2.Value & "')"
DoCmd.SetWarnings false DoCmd.RunSQL "INSERT INTO TblKullanici ( kullanici_adi, kullanici_soyad, kullanici_nick, kullanici_parola, kullanici_turu, kullanici_soru) VALUES ( '" & Me.TxAdi & "','" & Me.TxSoyadi & "','" & Me.TxTakmaAd & "','" & Me.TxParola & "','" & Me.TxKullaniciTur & "','" & Me.TxSoru & "')" DoCmd.SetWarnings True