Entry Form di simpan di file lain

  1. 10 bulan yang lalu

    Assalamualaikum War.Wab mas Fujiansyah92
    Salama kenal dan senang sekali bisa kenal dg mas Fujiansyah92

  2. mas Fujiansyah92, klo boleh saya mau tanya tentang pembuatan entry form di satu file tersipam pada file lain
    Contoh:
    form difile database tahun 2017
    terimpan di bank data
    terima kasih

  3. Di sunting 10 bulan yang lalu oleh Fujiansyah92

    Wa'alaikum salam wr.wb

    Nextnya klo mau mention . gunakan tanda @ .. seperti ini @mumuskh .

    Klo simplenya sih seperti ini :

    1. Saya menambahkan ini Workbooks("BANK DATA.xlsb").Activate Jadi
    tatkala form tampil maka file yg digunakan adalah file Bank Data . Jadi codingnya :

    Private Sub UserForm_Initialize()
        Me.TxtDate.Value = Format(Date, "dd mmmm yyyy")
        Call Hapusdata
        CmdTambah.Enabled = False
        CmdCetak.Enabled = False
        CmdEdit.Enabled = False
        Workbooks("BANK DATA.xlsb").Activate
    End Sub

    2. Saya juga menambahkan Workbooks("DATABASE TAHUN 2017.xlsb").Activate tatkala formnya di close . Maka akan kembali ke workbook pertama (database th 2017) .
    Jadi seperti ini :

    Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Workbooks("DATABASE TAHUN 2017.xlsb").Activate
    End Sub

    Terlampir yg sudah dimodif

  4. baik, terima kasih banyak ilmunya, dan sy coba dlu@Fujiansyah92

  5. mohon maaf, perlu pencerahannya lagi@Fujiansyah92 , stlh dicoba muncul seperti dlm file yg kami lampirkan, terima kasih banyak

  6. ini filenya

  7. 1. Silahkan cek nama filenya ...apakah sudah sama ? misal di coding

     Workbooks("BANK DATA.xlsb").Activate


    makan pastikan nama filenya bukan yg lain (misal : BANK DATA(1).xlsb )
    2. Silahkan cek , apakah file tsb sudah dibuka atau belum . Jika belum, buka terlebih dahulu .
    atau gunakan error handle jadi sperti ini :

    Private Sub UserForm_Initialize()
    Dim errh
    On Error GoTo errh
        Me.TxtDate.Value = Format(Date, "dd mmmm yyyy")
        Call Hapusdata
        CmdTambah.Enabled = False
        CmdCetak.Enabled = False
        CmdEdit.Enabled = False
        Workbooks("BANK DATA.xlsb").Activate
        Exit Sub
    errh:
        MsgBox "Data was not found . please open the file : Bank Data.xlsb", vbCritical
        
    End Sub

    3. cek juga nama file dan extensinya ...

  8. Mohon pencerahannya sy bingung dn tidak faham
    bagaimana cara input form yg kesimpan ke file lain setiap entry data user loginnya jg tersimpan dan jika ada file ganda formnya menolak
    seperti sy contohkan form siswa input datanya dan rekap bank datanya
    terima kasih

 

atau Mendaftar untuk ikut berdiskusi!