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:

' 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:

BuyukHarfeGec

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

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.