acil yardım
Tarih
02/10/2013 09:46
Konu Sahibi
hussam040
Yorumlar
10
Okunma
1324
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



hussam040
Üye
Kullanici Avatari
Üye
11
2
02/08/2011
0
Düzce
Ofis 2007
07/11/2013,14:52
Çözüldü 
Arkadaşlar yeni kayıt oldum.. memurum işlerin daha hızlı ve güvenli yürümesi için aşağıdaki değişikliklerin yapılması lazım ( yani vatandaşa hizmet için istiyorum) ..acceess de bir uygulama yaptım ancak içinden çıkamadım devlet kurumunda kullanılacak..yolunuz bir gün marmarise düşerse arayınız..


1- bu uygulamada ana giriş formu ortasındaki alanda girişi yapılan gemilerin isimleri görülmesi gerekiyor..(renkli alanda)
2-tüm form sayfaları üzerinde menüden istenilen bilgileri bulabilecek bi sorgu oluşturulması gerekli (tarihler arası sorgu-- donatan isimi-İletişim bilgisi- gemi cinsi-tam boyu (1-5m arası), arama değerleri elle yazılacak.
3-tüm girişler büyük harfle yapılması
4-girilen bilgilerin silinmek istemesi durumunda şifre istemesi.
5- raporların ön planda çalışması
6-formun tüm sayfayı kaplaması
7- formlar üzerinde forma ait bilgileri exele aktar butonu konması

galiba_mail_adresi_verilmesi_yasak@dikkatedelim.com


Ek Dosyalar
.zip   Marmaris Liman.zip (Dosya Boyutu: 192,95 KB / İndirme Sayısı: 9)
Cevapla


alpeki99
Yeniden başlayabilmek...
Kullanici Avatari
Uzman
O....
5.975
29/10/2008
Ordu
Ofis 2013 32 Bit
Bugün,22:36
Çözüldü 
1- Ana girişte renkli bir yer göremedim. Ayrıca hangi kritere göre gemi isimleri gözükecek?
2- Bu iş menü ile olmaz. Arayacağınız kriterler ile ilgili metin kutularını formda yerleştireceksiniz. Alanlara yazılan bilgilere göre ister LIKE ile ister kesin arama ile sonuca ulaşılabilir.
3- Giriş formunuzun genel deklarasyon alanına aşağıdaki kodları yapıştırın:

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
' Declare Type for API call:
Private Type OSVERSIONINFO
  dwOSVersionInfoSize As Long
  dwMajorVersion As Long
  dwMinorVersion As Long
  dwBuildNumber As Long
  dwPlatformId As Long
  szCSDVersion As String * 128   '  Maintenance string for PSS usage
End Type

' API declarations:
Private Declare PtrSafe Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Private Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare PtrSafe Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long
Private Declare PtrSafe Function SetKeyboardState Lib "user32" (lppbKeyState As Byte) As Long

' Constant declarations:
Const VK_CAPITAL = &H14
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2
Const VER_PLATFORM_WIN32_NT = 2
Const VER_PLATFORM_WIN32_WINDOWS = 1

Sub BuyukHarfeGec()
Dim o As OSVERSIONINFO
Dim CapsLockState As Boolean

    o.dwOSVersionInfoSize = Len(o)
    GetVersionEx o
    Dim keys(0 To 255) As Byte
    GetKeyboardState keys(0)
    
    ' CapsLock handling:
    CapsLockState = keys(VK_CAPITAL)
    If CapsLockState <> True Then    'Turn capslock on
      If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then  '=== Win95/98
        keys(VK_CAPITAL) = 1
        SetKeyboardState keys(0)
      ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then   '=== WinNT
      'Simulate Key Press
        keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0
      'Simulate Key Release
        keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY _
           Or KEYEVENTF_KEYUP, 0
      End If
    End If
End Sub


Formun yüklenme olayına ise aşağıdaki kodu yazın:

Visual Basic Code
BuyukHarfeGec


5- Silme tuşunun olayında IF kontrolü ile yapılabilir.
6-

Visual Basic Code
DoCmd.Maximize

7- Sitede Excel ile ilgili örnekleri hiç incelememişsiniz anlaşılan.

NOT : Bu kadar çok soruyu aynı konuda sormayın ki daha sonra arama yapanlar için daha net sonuçlar gösterilsin. Ayrıca programı bizim yapmamızı istiyorsunuz gibi gözükmesine sebep oluyor ki kimse konuya bile bakmayabilir.

AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla


hussam040
Üye
Kullanici Avatari
Üye
11
2
02/08/2011
0
Düzce
Ofis 2007
07/11/2013,14:52
Çözüldü 
öncelikle ilgilendiğin çok teşekkür ederim...ana form üzerinde her hangi bir boş yerde konulsa da olur sorun değil, tasarımla yerini değiştiririm..
1-giriş yapılan tüm gemilerin isimleri. a dan z ye sıralanması
2- mükerrer aynı ada sahip gemi girişini engellemek
Cevapla


simendifer

Kullanici Avatari
Onursal
E.... Ç....
869
30/10/2008
319
Çankırı
Ofis 2010 32 Bit
Bugün,19:21
Çözüldü 
Büyük harf i metin kutusu alan özelliği biçim e > bu işareti yazmanız yeter
silme tuşuna şifre konuldu şifre 123 buton özelliği tıklandıgında olay yordamında kodu görebilirsiniz
prg açıldıgında ilk açılacak formu Dosya secenekler gecerli veritabanı form görüntüleden ayarlayınız
raporun tam görünmesi için acıldıgında olay yordamına DoCmd.maximize yazınız diger bölümündeki açılan kalıcı yı evet olarak işaretleyiniz
mükerrer kayıt engelleme
Metin kutusunun güncelleştirme sonrasına
Private Sub barkod_BeforeUpdate(Cancel As Integer)
Dim SID As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
SID = Me.[barkod].Value
stLinkCriteria = "[barkod]=" & "'" & SID & "'"
If DCount("[barkod]", "tblgelenmal", stLinkCriteria) > 0 Then
'Undo duplicate entry
Me.Undo
MsgBox "GİRMAYA ÇALIŞTIĞINIZ " _
& SID & " NUMARALI BARKOD DAHA ÖNCE GİRİLMİŞ." _
& vbCr & vbCr & "LÜTFEN KAYITLARINIZI KONTROL EDİNİZ.", vbInformation _
, "AYNI BARKOD'u TEKRAR GİRİYORSUNUZ"
End If
DoCmd.Close
End Sub

kodu yazın gerekli alanları kendi prg nize göre değiştirin
İŞTE HAYAT DENEN ŞEY BU KADAR KISADIR.. 
Doğumda, EZAN Okunur, NAMAZ Kılınmaz  ÖLÜMDE,NAMAZ Kılınır EZAN Okunmaz.
Doğumda okunan EZAN, Ölümde Kılınacak NAMAZ İçindir 
Cevapla


hussam040
Üye
Kullanici Avatari
Üye
11
2
02/08/2011
0
Düzce
Ofis 2007
07/11/2013,14:52
Çözüldü 
öncelikle çok teşekkür ederim.... bu sayede 2000-2500 kişi nin zaman kaybının önüne geçiyorsunuz.. halka hizmet hakka hizmettir..

silme butonu çalışmıyor.
ve mükerrer giriş çalışmadı.. emeğinize teşekkürler olmazsa bu şekilde devam edeceğim..eğer düzeltebilirseniz sevinirim
Cevapla


alpeki99
Yeniden başlayabilmek...
Kullanici Avatari
Uzman
O....
5.975
29/10/2008
Ordu
Ofis 2013 32 Bit
Bugün,22:36
Çözüldü 
Sayın hussam040 sorularınızın verimli çözülmesi adına lütfen yukarıda bahsi geçtiği gibi her sorunuzu ayrı konu olarak açın lütfen. Yoksa bu konu sayfalarca devam edecektir.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Sorguda kriteri boş bırakma için yardım. okumas 3 168 24/09/2016, 11:43 okumas
Exclamation ACCES mde yardim Mehemmed Fehradli 3 168 24/09/2016, 00:18 ozanakkaya
  access Formu Tam ekran yapma yardım Onur Akgül 10 413 06/08/2016, 20:39 atoz112
  STOK TAKİP PROGRAMI YARDIM. IceMan7 6 476 21/06/2016, 15:16 atoz112
  Access mobilya mağazası yardım erdem3460 3 317 08/05/2016, 06:04 ozanakkaya


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