Dlookup ile bilgileri aldırma

TBLSICAKSU isimli tablodaki ILK alanını SON olarak değiştir.

Aşağıdaki kodu modüle kaydet.

Public Function AyNumarasiBul(GAyAdi As String) As Integer



    Select Case Left(GAyAdi, 3)

        Case "OCA"

            AyNumarasiBul = 1

        Case "ŞUB"

            AyNumarasiBul = 2

        Case "MAR"

            AyNumarasiBul = 3

        Case "NİS"

            AyNumarasiBul = 4

        Case "MAY"

            AyNumarasiBul = 5

        Case "HAZ"

            AyNumarasiBul = 6

        Case "TEM"

            AyNumarasiBul = 7

        Case "AĞU"

            AyNumarasiBul = 8

        Case "EYL"

            AyNumarasiBul = 9

        Case "EKİ"

            AyNumarasiBul = 10

        Case "KAS"

            AyNumarasiBul = 11

        Case "ARA"

            AyNumarasiBul = 12

        Case Else

            AyNumarasiBul = 0

    End Select

End Function

Aşağıdaki kodları da formdaki kaydet isimli butona ekle

'ATOZ112



'AŞAĞIDAKİ KODLAR DAHİL EDİLMİŞTİR.

If Len(DLookup("donemi", "TBLSICAKSU", "donemi='" & Me.donemsec & "'")) > 0 Then

    MsgBox ("Bu kayıt daha önceden girilmiştir.kontrol ediniz."), vbCritical, "MÜKERRER KAYIT UYARISI"

    Exit Sub

Else



    DoCmd.SetWarnings False

    DoCmd.RunSQL "INSERT INTO TBLSICAKSU ( SON, DAIRENO, DONEMI ) SELECT G_TBLCARIHAREKET.SON, G_TBLCARIHAREKET.DAIRENO, [Forms]![FRM_SICAKSU]![donemsec] AS YENIDONEM FROM (SELECT TBLCARIHAREKET.GIDERNO, AyNumarasiBul([DONEMI]) AS ESKIDONEM, TBLCARIHAREKET.DAIRENO, TBLCARIHAREKET.ADISOYADI, TBLCARIHAREKET.ARSAPAYI, TBLCARIHAREKET.DAIREM2, TBLCARIHAREKET.BLOK, TBLCARIHAREKET.ISINMA, TBLCARIHAREKET.ISITMA, TBLCARIHAREKET.GOREVLI, TBLCARIHAREKET.ELEKTRIK, TBLCARIHAREKET.ASANSOR, TBLCARIHAREKET.ODEMEYEN, TBLCARIHAREKET.KIDEM, TBLCARIHAREKET.BAKIM, TBLCARIHAREKET.DEMIRBAS, TBLCARIHAREKET.TEMIZLIK, TBLCARIHAREKET.BORC, TBLCARIHAREKET.ALACAK, TBLCARIHAREKET.ACIKLAMA, TBLCARIHAREKET.SON, TBLCARIHAREKET.ILK, TBLCARIHAREKET.SARF, TBLCARIHAREKET.SSTUTARI, TBLCARIHAREKET.DEM FROM TBLCARIHAREKET)  AS G_TBLCARIHAREKET INNER JOIN TBLCARIHAREKET ON G_TBLCARIHAREKET.GIDERNO = TBLCARIHAREKET.GIDERNO WHERE (((G_TBLCARIHAREKET.ESKIDONEM)=AyNumarasiBul([Forms]![FRM_SICAKSU]![donemsec])-1));"

    DoCmd.RunSQL "UPDATE TBLSICAKSU INNER JOIN TBLCARIHAREKET ON (TBLSICAKSU.DAIRENO = TBLCARIHAREKET.DAIRENO) AND (TBLSICAKSU.DONEMI = TBLCARIHAREKET.DONEMI) SET TBLCARIHAREKET.ILK = [TBLSICAKSU].[SON];"

    DoCmd.RunSQL "DELETE DAIRENO FROM TBLSICAKSU;"

    

    Me.Requery

    DoCmd.SetWarnings True



End If

Hocalarıma çok teşekkür ederim. Konu çözülmüştür.

Sağlıkla kalın,

Saygılarımla.