Dim rS As New ADODB.Recordset
SQL = "SELECT dbo_SFaturalar.FaturaNo, dbo_SFaturalar.Durumu FROM dbo_SFaturalar " & _
"WHERE dbo_SFaturalar.FaturaNo='" & Me.FaturaNo & "'" & " AND dbo_SFaturalar.Durumu <>'Silindi';"
rS.Open SQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If rS.EOF = False Then GoTo 100
GoTo 200
100
MsgBox "HOPS!!"
Me.FaturaNo = Null: Me.FaturaTarih.SetFocus: Me.FaturaNo.SetFocus
200
rS.Close: Set rS = Nothing
örnek olmadığı için yazamadım. aşağıdaki kodu kendinize uyarlayabilirsiniz.
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter.
Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
C#
Angular
React
React Native
MsSql
MySql
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter.
Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
C#
Angular
React
React Native
MsSql
MySql
