MERHABA ARKADAŞLAR BEN FORMA YENİ ÜYE OLDUĞUM GİBİ ACCESS TEDE YENİ BİRİSİYİM BEN HAZIRLAMIŞ OLDUĞUM BİR BİLET SATIŞ OTOMASTONU İÇİN TARİH VE SAATİ AYNI ANDA KULLANILARAK VERİYE ULAŞMAK İSTİYORUM KUSURA BAKMAZSANIZ ÖRNEK BÜYÜK OLDUĞU İÇİN GÖNDEREMEDİM. YANİ BÜGÜNDEN 5 GÜN SONRA SAAT 08:00 E BİLET KESECEĞİM BEN 5 GÜN SONRAKİ TARİHİ VE SAATİ YAZDIĞI ZAMAN O TABLO AÇILACAK VE BEN BİLETİ KESİP KAYDECEĞİM.
BİR DİĞERİDE PROGRAMA AÇILIŞTA KULLANICI ADI VE ŞİFRE GİRİLECEK ŞEKİLDE BİR TABLO OLUŞTURMAK İSTİYORUM. BİRDEN ÇOK KULLANICI KENDİSİNE ŞİFRE ATAYABİLSİN İSTİYORUM. UMARIM DERDİMİ BİRAZ ANLATABİLMİŞİMDİR YARDIMCI OLACAK ARKADAŞLARA ŞİMDİDEN TEŞEKKÜRLER.

Merhaba; hoşgeldiniz

İlk sorununuzu çözüme ulaştırmak bu şekli ile zor.. Tablolarınızın tasarım ve ilişkilerini bilmek gerekiyor..

Şifre olayı için bu linkteki çalışmayı programınıza dahil edebilirsiniz..

http://www.accessforumlari.com/showthread.php?tid=148


Araçlar menüsünden sıkıştır onar yapıp winrar veya türevi programlarla sıkıştırıp öyle eklemeyi deneyebilirsiniz..

Saygılar..

teşekkürler taruz. şıkıştırmama rağmen boyut okadar küçülmüyor. şifrematik programını ekledim ama çalıştırdığımda şu bölümde kodlarda hata veriyor. yardımcı olusanız sevinirim. yada gönderdiğim programa zahmet olmazsa uygulayabilirseniz sevinirim.

Private Sub Form_Open(Cancel As Integer)
fSetAccessWindow (SW_SHOWMINIMIZED)
' Minimize the database window and initialize the form.

Dim dbs As Database
Dim rst As Recordset

On Error GoTo Form_Open_Err

DoCmd.Hourglass False
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("*tblKullanici")
If rst.RecordCount = 0 Then
rst.AddNew
rst![Kullanıcı_ad] = Null
rst.Update


End If
rst.Close
dbs.Close


Form_Open_Exit:
Exit Sub

Merhaba..

Hata veren satırı silebilirsiniz.. O kod, access penceresini gizleme ile ilgili.. Sıkıntı sadece o ise o satırı silince sorun ortadan kalkar..