Merhaba ekli fotoğraftaki Msgbox ve Inputbox görsel olarak daha iyi olabilir mi acaba. (Enini boyunu ayarlayabilir miyiz? yada hazır olanları var mı?) Yardımcı olabilir misiniz?

[Resim: https://resim.accesstr.net/do.php?img=10382]

merhaba aşağıda doğru çalışan ınputbox ve kodu bulunuyor. 
[Resim: https://resim.accesstr.net/do.php?img=10395]
[Resim: https://resim.accesstr.net/do.php?img=10396]

Ben bu kodu kendi yaptığım aşağıdaki form ınputbox'a uygulamak istiyorum. Yardımcı olur musunuz?

[Resim: https://resim.accesstr.net/do.php?img=10397]

arkadaşlar, bu hatayı yaşayan yok mu, intin altını üstüne getrdim hiç bir şey bulamadım, yardımcı olur musunuz, inputbox işlevim hata veriyor, her şeyi doğru yazdığıma eminim

Private Sub Form_Current()
Dim a As String



a = İnputBox("lütfen kullanıcı kodunu giriniz")
Kntrlkul = Nz(DLookup("kullanici", "kullanicilar", "kullanici= '" & a & "'"))

If Kntrlkul <> "" Then

MsgBox "kullanıcı adı mevcut"

Me.kullanici = a
Else
DoCmd.RunSQL "INSERT INTO kullanicilar (kullanici) VALUES(

Raporun açılış olayına inputbox kontrolü koyarak, rapordaki textbox nesnesinin içindeki değeri inputboxtan girilen değere böldürüp, başka bir metin kutusuna nasıl yazdırabiliriz. Tabi değer girilmesi ve sıfır girilmemesi de gerekiyor.

[code]    Private Sub Komut712_Click()
    
        Dim stDocName As String
        Dim getStokNo As String
                getStokNo = InputBox("Aramak İstediğiniz Stok No Yazınız", "StokNo Yazmadınız")
               If getStokNo = "" Or IsNull(StokNo) Then
                   'do Nothing
               Else
               stDocName = "Sekme"
                DoCmd.OpenForm stDocName, , , "Stok=" & getStokNo
     Exit_Komut712_Click:
     Exit Sub
    Err_Komut712_Click:
    MsgBox