Access - vba kalıp takip prog geliştirme yardımı
Tarih
13/10/2009 09:05
Konu Sahibi
s.balci
Yorumlar
7
Okunma
3526
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



s.balci
Üye
Kullanici Avatari
Üye
6
1
13/10/2009
0
Bolu
Ofis 2003
16/10/2009,10:27
Çözüldü 
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


Ek Dosyalar
.rar   kalip.rar (Dosya Boyutu: 86,67 KB / İndirme Sayısı: 51)
s.balci, 13-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


s.balci
Üye
Kullanici Avatari
Üye
6
1
13/10/2009
0
Bolu
Ofis 2003
16/10/2009,10:27
Çözüldü 
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.


Ek Dosyalar
.rar   kalip2.rar (Dosya Boyutu: 101,57 KB / İndirme Sayısı: 19)
s.balci, 13-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


s.balci
Üye
Kullanici Avatari
Üye
6
1
13/10/2009
0
Bolu
Ofis 2003
16/10/2009,10:27
Çözüldü 
Arkadaşlar acil yardıma ihtiyaçım var. Konu hakkında görüşlerinizi bekliyorum
s.balci, 13-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Bilgisayarcı
Atçalı
Kullanici Avatari
Onursal
657
29/01/2008
410
Antalya
Ofis 2003
01/11/2011,15:17
Çözüldü 
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


s.balci
Üye
Kullanici Avatari
Üye
6
1
13/10/2009
0
Bolu
Ofis 2003
16/10/2009,10:27
Çözüldü 
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.


Ek Dosyalar
.rar   KALIP TAKİP.rar (Dosya Boyutu: 112,48 KB / İndirme Sayısı: 38)
s.balci, 13-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


s.balci
Üye
Kullanici Avatari
Üye
6
1
13/10/2009
0
Bolu
Ofis 2003
16/10/2009,10:27
Çözüldü 
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

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
s.balci, 13-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Tablolar arası hesaplanmış alanda Iff komutu yardımı nightashes 17 332 06/12/2016, 18:46 nightashes
  Personel İzin Takip Prog. Hakkında ? captain_10 4 223 28/11/2016, 14:28 atoz112
  Okullar İçin Evrak Kayıt-Takip Programı mehami 7 180 17/10/2016, 12:51 mehami
  Şoför Günlük Takip dayko 11 293 10/10/2016, 20:32 dayko
  Depo Takip Programı Enes5734 3 1.405 07/10/2016, 11:48 atoz112


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya