Portal — AccessTr.neT

| Facebook ile Bağlan | Twitter İle Bağlan | Google+ İle Bağlan

Yazar: accessman

06/05/2020, 14:45

Yorum 6

https://codekabinett.com/rdumps.php?Lang...ransaction
adresinde anlatılıyor ama ben çok anlayamadım

Public Sub TransactionDemo()

On Error GoTo tran_Err



    DAO.DBEngine.BeginTrans    

    CurrentDb.Execute "INSERT INTO tblLog (Text1) VALUES ('New banana delivery')", dbFailOnError

    CurrentDb.Execute "UPDATE tblInfo SET InfoText = 'Banana count: 2983' WHERE ID = 6 ", dbFailOnError

    CurrentDb.Execute "DELETE FROM tblTemp", dbFailOnError

    DAO.DBEngine.CommitTrans

    

Exit Sub

    

tran_Err:

    DAO.DBEngine.Rollback

    MsgBox "Transaction failed. Error: " & Err.Description



End Sub

Yazar: accessman

05/05/2020, 12:04

Forum: Access Örnekleri ve Uygulamaları

Yorum 1

bugün yeni bir şey daha öğrendim
https://accesstr.net/konu-sayi-alanina-t...tml?page=8
sn. @alicimri nin örneğini inceliyordum. mouse butonların üzerinde hareket ederken nasıl oluyor da buton renkleri nasıl değiştiriyor diye kod bulamadım. meğer resimdeki yerden ayarlanıyormuş
[Resim: do.php?img=10171]

ayrıca örnek çok güzel olmuş ellerine sağlık @alicimri

[Resim: do.php?img=10172]

tik.rar (Dosya Boyutu: 40,97 KB | İndirme Sayısı: 13)

Yazar: accessman

04/05/2020, 18:06

Forum: Access Örnekleri ve Uygulamaları

Yorum 2

Color Picker

different color picker

agpColorPicker.zip (Dosya Boyutu: 26,57 KB | İndirme Sayısı: 7)

ColorPicker.rar (Dosya Boyutu: 44 KB | İndirme Sayısı: 22)

Yazar: accessman

03/05/2020, 09:51

Forum: Access Örnekleri ve Uygulamaları

Yorum Yok

Kod:

Public Sub SelectComboBoxItemByText(cmb As ComboBox, Value As String)

    On Error GoTo ErrHandler_

Dim i As Integer

    For i = 0 To cmb.ListCount - 1

        If cmb.Column(1, i) = Value Then

            cmb.SetFocus

            cmb.Selected(i) = True

            cmb.Text = Value

            Exit For

        End If

    Next i

End Sub

ExitProc_:

    DoCmd.Hourglass False

    Exit Sub

ErrHandler_:

    DoCmd.Hourglass False

    Call LogError(Err, "basTools", "SelectComboBoxItemByText")

    Resume ExitProc_

    Resume ' use for debugging

End Sub

Kod:

Public Sub SelectComboBoxItemById(cmb As ComboBox, Value As Integer)

    On Error GoTo ErrHandler_

Dim i As Integer

    For i = 0 To cmb.ListCount - 1

        If cmb.Column(0, i) = Value Then

            cmb.SetFocus

            cmb.Selected(i) = True

            cmb = Value

            Exit For

        End If

    Next i

ExitProc_:

    DoCmd.Hourglass False

    Exit Sub

ErrHandler_:

    DoCmd.Hourglass False

    Call LogError(Err, "basTools", "SelectComboBoxItemById")

    Resume ExitProc_

    Resume ' use for debugging

End Sub

1 ... 16 17 18 19 20 ... 383

Toplam Üyeler 142.256

Son Üye LavinaAgui

Toplam Konular 25.177

Toplam Yorumlar 182.320

Detaylı İstatistikler

Şu anda 64 aktif kullanıcı var. AdsenseBot, AhrefsBot, Applebot, Bing Bot, Google Bot, Majestic12, PetalBot, SemrushBot, YandexBot, majestic12, C*e*l*o*y*c*e

(1 Üye - 53 Ziyaretçi)