Stok arama

[hedefkaya]

aşağıdaki örnekte STOK kutusuna rakam yazdığımda varsa bağlı stoğu getirsin stok yoksa yazdığım numara STOK kutusunda kalsın bir satır aşağı insin.
yardımlarınızı bekliyorum teşekürler.

 

[Taruz]

Merhaba..

Formunuza arama isminde ilişkisiz yeni bir metin kutusu yerleştirin ve güncelleştirme sonrasında olayına bunu yazın..:

If DCount("*", "stok", "[stok no]=" & Me.arama) > 0 Then
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[stok no] = " & Str(Nz(Me![arama], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Else
Undo
DoCmd.GoToRecord , , acNewRec
[stok no] = arama
End If

 

[hedefkaya]

SAYIN TARUZ ilgin için teşekürler fakat

If DCount("*", "stok", "[stok no]=" & Me.arama) > 0 Then
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[stok no] = " & Str(Nz(Me![arama], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Else
Undo
DoCmd.GoToRecord , , acNewRec
[stok no] = arama
End If


bu kod sadece veri türü sayı olan kutularda çalışıyor
bu kodu veri tütü metin olan kutulardanasıl çalıştıra bilirim
teşekürler

 

[Taruz]

Kod örneğinize göre hazırlandığı için sayı veri türlerinde çalışması normal.. Metin türü için bu yapıyı kullanınız..:

Dim kriter As String
kriter = Me.arama
If DCount("*", "stok", "[stok no]= '" & kriter & "'") > 0 Then
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[stok no] = '" & kriter & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Else
Undo
DoCmd.GoToRecord , , acNewRec
[stok no] = arama
End If