Skip to main content

AccessTr.neT


Makine Günlük Çalışma Verileri ve Vardiya Bilgi Formu

Makine Günlük Çalışma Verileri ve Vardiya Bilgi Formu

Çözüldü #1
Merhaba arkadaşlar bir konuda size danışmak istiyorum karar veremedim nasıl yapıcağım konusunda
öncelikle iki tane kayıt edilmesi gereken veri var
1-Makinelerin çalıştığı saati molaları işlenen malı falan yazdığımız bir kağıt var bunu bilgisayar ortamına aktarıyoruz
2-makine verilerini vardiya bilgi formu adı altında o vardiyada yapılan işlerin hepsini bi kağıda toplamız oluyoruz .örneklerini ekledim

bunlar için ikitane Excel dosyamız var ayrı ayrı giriyoruz tek tek alt alta sıralanıo işte sonra raporlamaya çalışıyoruz binlerce kayıt oluyo başa çıkamıyoruz anlıycağınız hem kayıt işlemini sorunsuz ve kolay bi şekilde yapmak hemde raporda sıkıntı çekmemek için Access form hazırlamak istiyorum.
başlangıç aşamasında veritabanını oluşturdum formdüzeni kurdum ama kafam durdu ilerletemiyorum bu yüzden yardımlarınızı bekliyorum.teşekürler
office2007 olarak kayıtlı 2003 olarak kaydedemedim
.zip VardiyaBilgileri.zip (Dosya Boyutu: 75,46 KB | İndirme Sayısı: 52)
.xlsx Makine_Veri_Girişi_Formu.xlsx (Dosya Boyutu: 13,7 KB | İndirme Sayısı: 39)
.xlsx Vardiya_bilgi.xlsx (Dosya Boyutu: 13,94 KB | İndirme Sayısı: 36)
Cevapla
Çözüldü #2
kimse cevap vermedi heralde bilgisi olan yok bu konuda
neyse ben bişiler buldum kod satırı biraz uzun oluyo kısaltamadım ama şu şekilde olabilir fikri var aklımda hiç yoksa
If IsNull(Me.baslama) Or Me.baslama = "" Then
Else
Me.MakineID = Me.MakineAdi1
Me.HatID = Me.MakineHatti
Me.CesitID = Me.MakineCesit
Me.CalısanOperator = Me.MakineOperator
Me.YardimciCalisan = Me.Yardimci
Me.BaslamaSaati = Me.baslama
Me.DurusSaati = Me.durus1
Me.DurusSebebi = Me.durussebeb1
Me.Aciklama = Me.aciklama1
DoCmd.GoToRecord , , acNewRec
End If
If IsNull(Me.baslama2) Or Me.baslama2 = "" Then
Else
Me.MakineID = Me.MakineAdi1
Me.HatID = Me.MakineHatti
Me.CesitID = Me.MakineCesit
Me.CalısanOperator = Me.MakineOperator
Me.YardimciCalisan = Me.Yardimci
Me.BaslamaSaati = Me.baslama2
Me.DurusSaati = Me.durus2
Me.DurusSebebi = Me.durussebeb2
Me.Aciklama = Me.aciklama2
DoCmd.GoToRecord , , acNewRec
End If
Cevapla
Çözüldü #3
Veri girilen text alanlarının adını döngüye uyacak bir ad yap. Örneğin metin1, metin2 gibi, sonra da bu son rakama göre bir döngü kurarak boşluk kontrolü yaptır.
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #4
Şöyle bir şey deneyebilirsin;
dim say as integer
dim kayitdurumu as boolean
for say=1 to 36
if metin & say <>null or metin&say<>"" then
kayitdurumu=true
else
kayitdurumu=false
end if
next
if kayitdurumu=true then Kaydet
else
kaydetme
end if
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #5
bunu örnekteki alanlara nasıl uyguluycaz anlıyamadım orasını vaktin varsa uzun şekilde yazarmısın kodları
Cevapla
Çözüldü #6
MakinaID veya MakinaAdi1 bunların ikisini de tablodan mı getiriyorsun?
Kullanıcının veri girdiği alan hangisi?
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 30/12/2010, 16:57, Düzenleyen: Hayri16.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da