syn dayday,
öncelikle yorumların için teşekkür ederim. dediniz gibi yapıyorum zaten ben işin o bölümünde değilim kendimi yazılım konusunda geliştirmek olduğu için bu araştırmaya girdim. değerli üstadlarım yardımlarıyla bilgi hazineme yenilerini eklemek istiyorum. imzanda dediğin gibi "bildiğimin alimi bilmediğimin talibiyim"
Sn ayt01,
UrunAdi atanacak ve tusa basildiginda forma kayit eklemeyi, Butonlarin isimlerini Buton1 den Buton27 ye kadar yeniden adlandirin. Asagida ki kodu formun altina tasiyin. Barkodu iki hane olanlarin dugmelere atanmasi formun yuklenmesi ile islem yapilacaktir. Barkodu ikinin uzerinde olanlar dugmelere atama yapilmayacaktir. Yontemi kendi projenize uygulayabilirsiniz.
Option Compare Database
Private Sub Form_Load()
Call TusAdlandir
End Sub
Sub TusAdlandir()
Dim Sayac As Long, Kayit As Recordset
Set Kayit = CurrentDb.OpenRecordset("SELECT [ÜrünKod-Açıklama] & ' (' & [BarkKodu] & ')' AS Kimo FROM [Urun Kayıt] WHERE (((Len([BarkKodu]))<3)) ORDER BY [ÜrünKod-Açıklama] & ' (' & [BarkKodu] & ')'")
Kayit.MoveLast: Kayit.MoveFirst
Do Until Kayit.EOF
Sayac = Sayac + 1
Me.Controls("Buton" & Sayac).Caption = Kayit.Fields(0)
Kayit.MoveNext
Loop
For Sayac = (Kayit.RecordCount + 1) To 27
Me.Controls("Buton" & Sayac).Caption = "BOş"
Next Sayac
Kayit.Close: Set Kayit = Noting
End Sub
Sub ISLEM(BarKd As String)
CurrentDb.Execute "UPDATE [Urun Kayıt] SET [Urun Kayıt].[Mevcut Stok] = [mevcut stok]-" & [Forms]![sut2]![m] & " WHERE ((([Urun Kayıt].BarkKodu)='" & BarKd & "'))"
CurrentDb.Execute "INSERT INTO Urunsat ( srn, BarkKodu, ÜrünAdı, [ÜrünKod-Açıklama], ÜrünGrup, AlışFiyat, SatışFiyat, OlçüBirim, [Mevcut Stok], AsgariStok, Miktar ) SELECT [Urun Kayıt].SrNO, [Urun Kayıt].BarkKodu, [Urun Kayıt].ÜrünAdı, [Urun Kayıt].[ÜrünKod-Açıklama], [Urun Kayıt].ÜrünGrup, [Urun Kayıt].AlışFiyat, [Urun Kayıt].SatışFiyat, [Urun Kayıt].OlçüBirim, [Urun Kayıt].[Mevcut Stok], [Urun Kayıt].AsgariStok, " & [Forms]![sut2]![m] & " AS mık FROM [Urun Kayıt] WHERE ((([Urun Kayıt].BarkKodu)='" & BarKd & "'))"
Me.Refresh
Me.brk.SetFocus
End Sub
Private Sub Buton1_Click()
Call ISLEM(DLookup("[BarkKodu]", "Urun Kayıt", "[ÜrünKod-Açıklama]='" & Mid(Me.Buton1.Caption, 1, InStr(1, Me.Buton1.Caption, "(", vbTextCompare) - 1) & "'"))
End Sub
yardımlarınız için çok teşekkür ederim. fakat bir türlü çalıştıramadım.
Kayit.Close: Set Kayit = Noşing
te hata alıyorum. sizden ricam yüklediğim vt ye bunu yazıp paylaşmanız. lütfennn
sayac otomatik değilde; örneğin "UrunSec" tablosu yapıp (Alanlarıda (Brkkod, UrunAdı)) bu tablodan seçerek (çift tıklama) yapsam hangi butona hangi ürünü seçimini ben atasam ve "UrunAdı" nı butona yazıp "Brkkod" unuda UPDATE ve INSERT INTO alanlarının içine eklesek. bu şekilde yapma imkanımız varmı. kendimi ifade edebildim mi bilmiyorum.
