[FORM] Teklif Kayıt Numarasını Artırmak

M_Kemal_Askeri · 29-01-2020, 02:58

Herkese selam,

Daha önce sorduğum ve sayın dsezgin tarafından verilen bir kod ile çözülen problemimi maalesef az bir farkla başka bir form üzerinde yaşıyorum. Sayın dsezgin'in vermiş olduğu kodu uyguladım ama kayıt numarasını arttıramadım. (Kodu biraz değiştirdim)

ilk Kod: YIL-S veya A-Kayıt Numarası şeklinde, ikinci Kod ise: YIL-Prjfir_id (Firmanın projeye kayıt numarası)-Teklif Kayıt Numarası şeklinde.
Yazılışında tek fark, ilk kodda var olan iki seçenekli Seçenek kutusu ikinci kodda yoktur. Ben de ikinci kodda seçenek kullanmadan Firmanın projeye kayıt numarasını ekledim ve kodu yazdım, diğer her şey aynı ama maalesef kayıt numarasında artırıma gitmiyor.

Kodu "Frm_Emlak_Proje_Firma_Teklif_List" ana formundaki "AltForm_Proje_Firma_Malzeme_Tklf_Kayit" alt formunun Kayıt butonuna yazdım.
Maksadım, bir firma tarafından bir projeye birden fazla teklif verilirse ayrı ayrı numaralandırmak.

Konuyla ilgili örneği ekledim.
teşekkür ederim.
Sayın dsezgin belki bana kızacak ama maalesef durum bu Nah

dsezgin · 29-01-2020, 08:51

(29-01-2020, 02:58)M_Kemal_Askeri demiş ki: Sayın dsezgin belki bana kızacak ama maalesef durum bu

Niye boyle bir hisse kapildiniz, projenizi gelistirmek en dogal hak. Onerilerimizle anladigimiz kadar katkida bulunmak isterim. Sonuc alana kadar konuyu gundeme getirmeniz de dogal.

Kaydet dugme tiklama olay yordamini asagidaki gibi degistirin.

Visual Basic
Private Sub Komut24_Click()
On Error GoTo Err_Komut24_Click
Dim EnSon As Long
    If Nz(Me.TklfNu, "") = "" Then
        EnSon = Nz(DMax("mid(TklfNu,9,len(TklfNu))", "Tbl_Proje_Firma_Malzeme_Tklf_Kayit", "Mid([TklfNu],1,4)=" & Year(Me.TklfTrh) & " And Mid([TklfNu],6,2)='" & Me.Parent.[Prjfir_id] & "'"), 0)
        Me.TklfNu = Year(Me.TklfTrh) & "-" & Me.Parent.[Prjfir_id] & "-" & Format(IIf(EnSon = 0, 1, EnSon + 1), "000000")
    End If
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.RefreshRecord
Exit_Komut24_Click:
    Exit Sub
Err_Komut24_Click:
    MsgBox Err.Description
    Resume Exit_Komut24_Click
End Sub

M_Kemal_Askeri · 29-01-2020, 23:04

Sayın dsezgin sorun sayenizde çözüldü gene.

o cümleyi yazdım çünkü aynı konuyu daha önce de açmıştım. Yine sabırla cevaplamıştınız. Bir söz vardır "benim oğlum bina okur döner döner gene okur" diye. Bu söz misali aynı probleme geri dönmek ve yine çözememek bana o cümleyi yazdırdı.

Ama işte bilgi sınıra ulaştı mı çözüm yolu da tıkanıyor. Neyseki siz ve sizin gibi değerli üstatlarımız var sitede ve sabırla yardım ediyorsunuz.

Size ve bütün üstatlarımıza teşekkür ederim.

Kendinize iyi bakın.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[VBA] Kayıt Iptali: Kayıt Iptal Tablosuna Ekle, Kayıdı Sil Işlemi	programmer67	6	309	21-07-2023, 10:40 Son Mesaj: onur_can
	Işlem Sıra Numarasını Butonlarla Değiştirme	husem	5	303	27-02-2022, 11:54 Son Mesaj: husem
	[FORM] Puantaj Kayıt Formlarında Kayıt Hataları	M_Kemal_Askeri	11	995	26-02-2021, 15:27 Son Mesaj: M_Kemal_Askeri
	Program Konusu Hakkında Yardım (teklif Takip, Maliyetlendirme Veya Diğerleri)	adnnfrm	0	401	25-01-2021, 05:44 Son Mesaj: adnnfrm
	[VBA] Liste Den Kayıt Seçme Ve Yazdırma Yada Listeden Kayıt Seçim Buton Ile Yazdırma	Ahmet51	6	1.103	10-02-2020, 16:24 Son Mesaj: Ahmet51
	[VBA] Kayıt Butonuna Tıklamadan Kayıt Etme Sorunu	mkmugla	2	650	20-01-2020, 08:27 Son Mesaj: mkmugla
	[FORM] Form Teklif Malzemelerini Satır Satır çağırma Hk.	eagen_91	1	470	30-09-2019, 17:14 Son Mesaj: celalll
	[FORM] Yeni kayıt butonu liste kutusunu güncellemiyor ve yeni kayıt yapmıyor.	Orion	2	1.040	25-08-2018, 21:07 Son Mesaj: Orion

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL