Skip to main content

AccessTr.neT


Access - vba kalıp takip prog geliştirme yardımı

Access - vba kalıp takip prog geliştirme yardımı

Çözüldü #1
Arkadaşlar öncelikle merhabalar foruma yeni katıldım konuyu yanlış kategoriye açmışsam kusura bakmayın.

Şirket için Access ve Vba nın birleşiminden kalıp takip programı yazmaya çalışıyorum. Tıkandığım yerler oldu prgramın şu andaki hali ektedir.

Programda giriş formunda paraloa alanına 1,2,3,4,5,6 ve admin olarak girdiğinde izin vermektedir.

Paraloa eğer 1 e eşitse vardiya amiri alanlarına hükmedecek.
Paraloa eğer 2 e eşitse kalıphane alanlarına hükmedecek.
Paraloa eğer 3 e eşitse teknik müdür alanlarına hükmedecek.
Paraloa eğer 4 e eşitse onay müdür alanlarına hükmedecek.
Paraloa eğer 5 e eşitse üretim alanlarına hükmedecek.
Paraloa eğer 6 e eşitse kalite alanlarına hükmedecek.
enson admin olarak girdiğimde full kontrol.

Şimdi yapmak istediklerim şöyle;

Vardiya amiri hata ve diğer alanları doldurmadan diğerleri işlem yapamıyacak. Ve ayrıca vardiya amiri en son ne girdiyse o gözükecek, gözükmesi gereken yerler de örneğin paralo 2 ise.

Kaydet butonunda ayrı bir sıkıntım var kayıt işlemini yapmıyor gibime geliyor.

Son olarakda Vardiya amiri için söylüyorum;
VARDİYA AMİRİ KALIP ADInı girdiğimiz anda o anki zamanı otomatik olarak
V. A. GİRDİĞİ TARİH alanına atayacak ve bu alan disable olacak.

Arkadaşlar bu konu hakkında acil bilgiye yardıma ihtiyaçım vardır. İyi çalışmalar hepinize.
Son olarakda Vardiya amiri için söylüyorum;
VARDİYA AMİRİ KALIP ADInı girdiğimiz anda o anki zamanı otomatik olarak
V. A. GİRDİĞİ TARİH alanına atayacak ve bu alan disable olacak.

Arkadaşlar burayı hallettim kodu ekledim. Diğerlerinide buna bağlı olarak düzenleyip yapabildiğim kadarıyla en son halini atmaya çalışacağım ama sizden de bu konuda yardımlarınızı bekliyorum.

Private Sub v_amiri_kalip_adi_AfterUpdate()
v_amiri_tarih = Date + Now
v_amiri_tarih.Enabled = False

End Sub
.rar kalip.rar (Dosya Boyutu: 86,67 KB | İndirme Sayısı: 59)
Son Düzenleme: 13/10/2009, 09:41, Düzenleyen: s.balci.
Cevapla
Çözüldü #2
Arkadaşlar son hali ekte lakin yapamadığım işlemler aşağıda.

Vardiya amiri kayıt etti çıktı. sırada kalıphane var kalıphane şifresi yani 2 ile sisteme girğimizde vardiya amirinin girdiği verileri karşımıza çıkarsın, enable true olsun. daha sonra 3 girdiğimizde onayı veren kişi neye onay vereceğiniz bilmek ister ve bunun için son girilen veya onayı boş olana girmesi lazım zaten onun onayından geçmeyen kalıp işleme alınmayacak. Eksikliklerede bir bakarsanız sevinirim. İyi çalışmalar.
.rar kalip2.rar (Dosya Boyutu: 101,57 KB | İndirme Sayısı: 22)
Son Düzenleme: 13/10/2009, 10:58, Düzenleyen: s.balci.
Cevapla
Çözüldü #3
Arkadaşlar acil yardıma ihtiyaçım var. Konu hakkında görüşlerinizi bekliyorum
Cevapla
Çözüldü #4
Hocam aynı soruyu bi sürü farklı yerde görüyorum. Yapsam bile nasıl birleştirmeyi düşünüyorsunuz?Img-grin
Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
                                                                                        Descartes


Cevapla
Çözüldü #5
En azından mantık olarak yardımı dokunsa benim için kardır aynı zamanda kod bloğu olarak da almam gayet kolay olacaktır yeter ki sistem isteklerimi karşılasın. Açıkcası yardım alabileceğim tüm yerlere yazıyorum.

Buda son hali yardımlarını bekliyorum.
.rar KALIP TAKİP.rar (Dosya Boyutu: 112,48 KB | İndirme Sayısı: 41)
Son Düzenleme: 13/10/2009, 17:54, Düzenleyen: s.balci.
Cevapla
Çözüldü #6
TextBox9 a girilen değere göre arama yapıp liste elemanına aradığım değeri görüntülemek istiyorum ve mümkünse bu değeri excelle aktarmak istiyorum.

[Resim: access_.jpg]

Private Sub TextBox9_Updated(Code As Integer)
Dim txtSearchString As Variant
Dim strSQL As String

txtSearchString = Me![TextBox9]

If Not IsNull(Me![TextBox9]) Then

strSQL = "SELECT * FROM kalip "

strSQL = strSQL & "WHERE WHERE ((kalip.kalip_no)Like '" & txtSearchString & "*') "

End If

Me!Liste0.RowSource = strSQL
End Sub
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task