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

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

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.

Arkadaşlar acil yardıma ihtiyaçım var. Konu hakkında görüşlerinizi bekliyorum

Hocam aynı soruyu bi sürü farklı yerde görüyorum. Yapsam bile nasıl birleştirmeyi düşünüyorsunuz?

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.

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.



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