PDA

View Full Version : Hide form or command buttons on startup



TonC
05-08-2016, 11:40 PM
Hello,:crying:
Is there a vba-code when a user logged in (by a Select Case statement) to hide / disable buttons
or hide / disable forms?

example:
When user is logged in, the frmMainform is opened. But at the same time some buttons or forms must be disabled or to be hide for acces user.

Case 3
'msgbox "Dit is case 3"
DoCmd.ShowToolbar "Ribbon", acToolbarNo
'Hidding Navigation Pane
DoCmd.NavigateTo "acNavigationCategoryObjectType"
DoCmd.RunCommand acCmdWindowHide
Me.lblCmdVBA.Visible = False

Forms!frmReserveringsrekening.Form.Visible = False (this is not the Main form)

So user, must have no acces for;
-Some buttons on other forms (not the Main form)
- Some other forms. (not the Main form)

The other forms are closed so I get the following error:

http://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAX0AAADcCAIAAAATLOb5AAASNElEQVR4nO2dW3Lb yBVAsRwtgOJqLBZKO7GlKZU2oBXMSKxidmD9zpTkGrNKla/kw39JPJ4k5g6SDzz6dfsBErggzXM bApsdN 7D5sgARR/Q8AQJdq7gAA4OzAOwCgDd4BAG1a7/wVAGB6HO/8CQAwPXgHALTBOwCgDd4BAG3wDgBog3cAQBu8AwDa4B0A0AbvAIA2eEeb5/uLi4uL68e34Jm3x2vzzPN9pNTkNAEmG3 v7i4uH92N749Xl9cXD Nd3wn92Xt8drsbIuyotssDHmyzDgHXXaCRMO OgTqrhKeb6XAxLE02ln5HhS3ulac4QNpwDe0aZ/o/YmU8EyQwPXNDHvhOKZSDtF3okswOB4wTvaPN9fXFzf318L0/b 3kwmb741b mWsUw17i7CgYe9va9RKuwcu1xfWwXCSe3NdFs7jhKsOq8f3 R tX K8Zd7x139BGkIspDLMEwI3tGmmSLP7vKgnQPPsnecMyZvj9edd4J3fHe2Nzu4dZptYuHi9Y63l7 PaMTvZnXi z3jn7fHaUUdYRZhG06AdilCNkIVchmFC8I423QzwJ463zZoV4uR31xvhUU63kzBv44WDxhLesSN wazQ7Cbsn1jtiqcLzyrIo p2lWnIZhgnBO9r0Y9zMW2dT4B15UuT84O4fLI1ihQd4x3TAE5nfi/CALPanc6yT907fpHdiWahGOGufyzBMCN7RJjgKkSf9eN7pC1yEdgsLD/BOJx5fDf5Ojnyi3vEPdYZ4x1JfpJowC3hnTvCONsGJCWs9IHpH/qTInSvJQ6c/7UL3z2MdZ3XxX197ZogeF/ZeED6IchVh1oIDvROrJsxCNsMwIXhHG HTHuHMiHdK1v2Ap/88y5oqsVPF1klS97xL8Xnl1Ic7nTidInY74cdS9iRvV0LmcNA6XbTncZZcjZSFXIZhQvCONuFCJ X5mJDhOSh0suadanU ahLOvYuEgPLN7ZCY21bhPen6zo/ZDsr9QIG8uPK8sniMy1UhZyGUYJgTvAIA2eAcAtME7AKAN3gEAbfAOAGiDdwBAG7wDANrgHQDQB u8AgDYZ7/wdAGAMhnlnBwBwGHgHALTBOwCgDd4BAG3wDgBog3cAQBu8AwDa4B0A0AbvAIA2eAcAtME7AKAN3 gEAbfAOAGiDdwBAG7wDANrgHQDQBu8AgDZ4p2N7t1zebeeOAuAcGM07y8qm3hS2L8727V1fm/fkpu43bWrTXLOp3xK03rcSPkhHciCJ5g6vE BkGc87 00GcRZt6s4cm9oyz6aulnW9NN5x/NL/vb1b uYpmauTzmdkAWAxpXfMsqXe7Ny51z42JSKz0uxj9pC9Y/3pT3KrlUZbzcKoX4l4yyYvqO3dcnl35y6l5LjDDobdrGtLil3MXqJSMdQbq2YvqkhfEB4cHdMdZ 23qyl2ACN7JLQS6ZwP97OzjrOXd1tWQvxSKH2eZIK0trr 2d8u TLP8shZUZmW2S3jHeco00D4KEpWOIRaV0Be8A0fKZOsdbxL2b9Tesynv9AdZ9vt4uDpqiu3lHdE UnkCFsBvlxc8ihfXbT3XRbWrPqVaisjGUbJGzCjA/R sd58yOXK2zKXGcNdA76Y44p5tc xR6Z7e9W9abTjuZRGVrthOAd BEmO78jnScZZ IMEsZaeGQPeHTH EEByfyeWXvHJNZuZgDOP9oxWtxZ Z83W5w53fYQed4x9S6vVvWdW0deIXHWfkYpFXY0o L4yw4ShTPK1sbrI ldvZJXn /8KDKmVHeydj45 h9K327lr/8kLyzs9HjrCC2sIPuaR1T3lNj6rxyJAZxFRZ tQDvwFFyrt8bjBzG/SAEJ7gAjooz9E64wPpBsJY7WAeOmjP0DgDMDN4BAG3wDgBog3cAQBu8AwDa4B0A0AbvAIA2eAcA tME7AKAN3gEAbfAOAGiDdwBAG7wDANrgHQDQBu8AgDbH4Z0Dfw 4 GZcX51Zu9gxg3jRPmBf9r5B 7aIMbIwwS/c7qpB8 9wp7Ixcb 6cDYD7xnGBKG80uuM43liWbRHtWOEkmikpL6xypzDhTdDCbD2N7Z7wd9D/GO Mvwh7BfNgeFEd5DYmhzR8sRTs6xQjrCrs3C0XnHlY71pm5uFOXf4tLqSfzul/7vrVudtX7b07n7lbl7hHWbzbpeVt0fXaHYT6YLPyDv9cK7W6nFoEa9u/S5XczkwOtg6k6kUvll6X1HnWq8DEhNdD8yH 4svdZDIokOmNjrJQ6bMFeDYsj2yI3TvaHI9m7Zxut1LD5f2vCiN60tqaEgJP/ AtEXuqlenI ljOidZXSl08yCbXiLSysXwt0vg/thxdY77UbxzjnBrXP6 dDf/DPlneStO8UwhjZqUiG2Zd YNBOMdCfSMe476oXhNCo14exSdv/VwkgSAyb2ekWGjZ rATEU9ChoZ3u3rOvavl2jFIq7xR9IsSbKasiHlJw sbvRzr/ead7lg8FhlBjOcLtkOPkrG/fuVzZiFrYFdwr01jW7YOaIYcRyHQsj1qj3Fuqlq 2ye2vAbDDhnUgT5dPdd IPwkjEvDWrunzMgujTkSQHzKBhI961tTA/2R457TQZrDfNqqJbWySXUcn54r7DldaQDalw uwiQ30gI5/fMe9z/Vv97oBh5LUxi3e8Fsfyjhko8ductnTTPh/MNnon0rB8rPvR 45KYUSa2NjDoDCGAZGUVRLNUjxXQ70cC8ZvpmmlfdgdZQWzo3C JMonaigJ6XS9YzJqxbT1bp4ZRiw8Fdwzs0/HLtjY7istFEsU4B0VOa9Z8tadYhhDZWdaENpyb0yaD2YbuRNpNM9y5v3h64Sx8WUkNtHVUhxDSS T5jhQPGy9XBTF0I7ugR24z9bJ/8eu6rs3yamdVWz5fglCLasiGlJ4 Qh6iiS1hivuFticz nOt4c0zC7wjLSPFe1/5no4ssGMKsHZy4oyFMbp32hbcUNpOBjcmzQbjDYVE cSbqn/fUTeM8LWTm jOaRXGUBRJfMAMHTZergpiGHJHWRvLnu5Dr9rS WKZfUANBSGlpo YhwPuRXcc3xuE4 R47jt6PJHAGOAd8Dme 44eTyQwLngHALTBOwCgDd6BkZjxstgDPtA9U bO2A/tnbmTe5LsmbTgW7TZepwC4Sf0Q0h8xFbowXMbKnP394f2Dqixz1c53C cHDINSr6WATZzp2XE6ySGX5S4s8frNrg4LfyyRHdhiVxt8OZmfSlDLiA0N7R 6bJPJ j 5TUfztR3Viqc0tLU9SPsr/XqvsK1MWGYFCUu3ZS6aP4UvggTjFA/YPfq3OLk29/1sb8ZJMdj7eCnN GdcDCKSXC/dpR rXNJlq4RcVIhXRcaG0t7j7FNQUjpV3lKRvPOsIsSUxenRa4biF0valcbXm6aLiA0N7B 8bJPIS/uesBPhfs90Uhe3W9UWt8n7cPoK5NS7fbIu87T/TP9QogBh f eTbF0mZmSyEl1i82Fd1Oq9LKMJgF6GV LItn2QvJ LltVLlJh5pLO09xkpCSr3K0zLecdagixITF6d5ezWl ynqxXf99IFwtqG1h97ELzX5Q8EugHS7229xToJaQqYN25T aau3BMlQkrd6zzFyz5jL0Qk4JR3Uoc8/ZyzK0lehrp3ev23 kivg5NU5oVIJ9nLSRhDYux5y0z7wVhjLBZS7FWemBHP72wHXJTYlk5enObs6Xk6Uu0e3kkGWVR/ MB b4yNuaR3UvE0bOoB3pHfxyL2iczAaEIO8s5uUy/vNtYl2k5HIt4flN5GbeEuh/S6xDvhRa1 mUgXCr0zdIyVqFCRMc8rb8svStztdrmL0 z9rE1DrsrLD/2wueH1hw sYt3wcDsRDP3kcVb4NtQsE7qhbdfWL86l vvWves8pcs xXbjAe/rnWbie8cjfjz2Kk9Mb2LKBQnpd5F6Lb0CBXVGDmriXkh0odw76TGWDKnbZcBltOMy6udZXsTb5D owf3Gaf1FicAKv7Gd90kPfb254/dKD8Jo9u9rmvLK05E6fV678sWKdaPBTJNcvXm4auewzzEwi4L29I59ik1 Q0gsgw4QIr0i 1/7bT2mS7XM Vhtu WgXCr2THWPieeXsNa67U/QOzMJ8q Uz4pAkc1FrAN45ffCOAsOTzEWtCfAOAGiDdwBAG7wDANrgHQDQBu8AgDZ4BwC0wTsAoA3eAQBt8 A4AaIN3AEAbvAMA2uAdANAG7wCANngHALTBOwCgDd4BAG3wDgBog3cAQBu8AwDa4B0A0AbvAIA2 eAcAtME7AKAN3gEAbfAOAGiDdwBAG7wDANrgHQDQBu8AgDZ4BwC0wTsAoA3eAQBt8A4AaIN3AEA bvAMA2uAdANAG7wCANngHALTBOwCgDd4BAG3wDgBog3cAQBu8AwDa4B0A0AbvAIA2eAcAtME7AK AN3gEAbfAOAGiDdwBAG7wDANrgHQDQBu8AgDZ4BwC0wTsAoA3eAQBt8A4AaIN3AEAbvAMA2uAdA NAG7wCANngHALTBOwCgDd4BAG3wDgBog3cAQBu8AwDa4B0A0AbvAIA2eAcAtME7AKAN3gEAbfAO AGiDdwBAG7wDANrgHQDQBu8AgDYje dv50ciG385P7IDbu4AZ CsspEdAA3je f7OZH1TuHL8GNQ0l9yUv7syYF3lMh6Z 4AVSn0ztxhqpL1ztwBjgneUQLv2OCdELwjgncOIuud/54Thd6ZO0xVst6ZO8AxwTtK4B0bvBOCd0TwzkFkvfOfefn9p8vLn37Xaq3QO1rhHAVZ7 iFMv1gOB3vfPn4cGNYf55GD5OR9c6/S/h0e1kZVutYufWqWq37/z7dXl7efsrWfHn7qaTkGBR6x4 wqop676HVqQPbynpn/PBi0U6fsZPyzsPHL/3jU1PPaN7pB8S4g0Nzcu7tnf0i1O3a3uAdkWPyjv2nWQd1IvK2fPn48PDx49r6s181PXz84mxoG/C3mBr2X2plvRPmUOD19vLy9rV5vF5Vq3W7sV0CdM95W5q9Xm8vL29vV/1qwStZVV2Z13B7pE6/tmIKvRPtu73RDsEu0z524xbKr1bOJncHqYDY6O2qqqrVujzVA3NSOkLSeDkUXm5vwAR9H4mT9c7 3z ub9efvn9edCL58fLhZf/4ebnEWR bZoMKuynCLXcPn9Y23VxlZ73wr4fVmYQ40Fjev3759e1pVq6f 2cXNa7il/7fqnnhaVW3JbotdMtwu1unXNoBC78T7XlXV6smK8/VmUa2eumjtyK0HYvk 9ObJ9olmQ/OnW0CuJEhjNtUDc1I6QtL4OayqzIDx j4aJ 4d/ CrYEv4OFgB VtiNcziHW9ehbNR3GKcEgwvccCVtBLO8FGHneAdrxUvhlhUgoCk8q0hnlat1MJGn1bV4uapoNGS LQNzMpp37KbTL66QnBFCaDhZ7zR/DvWOvVrpa g3JbZM750/Sni5WSxuXto/nq6qqydnS1jG2mJvT295uqoSJcNWwmdzFHon3ncpBi8b/ePwgVj D7vbT1dVVYkFngoaDbeEKR2Yk9IRksZrOv3iRpMzAifqnf5wqew4y9kx6pRWOMkt03nnawkvHxa LDy/N48eravHh5evjVVVdPdqFgi3NXva 7eO2imZDZcqY7VZJqc7wcRmF3on2Pejpy4dFdfXY/Wf1yDwXKe/l8 XDld3zx1TChUoKUh1LV9Y7QxIcwWs6/eIKg200Tso7N97hkLc9dV7ZmOLz2qum3/CwXj IW47KO2Y93A0Ve6OZadaW6GRoZmJVVdXi6sop023P1OnVNuqwK/COHZWlG7tHX7/2vVl8ePHLC/k0PXfLiwnvKsl7R0rpkJxM6Z34gAn7PhKn453RCc8iT0nWO/86Tn55V737ZfRaC70zers v71fLN7/dkiBPYikNOudcaPIM0XfO87OO9ZyR/ULQFnv/POY Pld/0b37ucJ6i/0zgQtu/z6frF4/ shBYrJpjTrnTGiGMJ4fQ85O /MxWl5Z2qOxTvHxNF5Z0rwjhJZ7/zjnCj0ztxhqpL1ztwBjgneUQLv2OCdELwjwu8rH0p6VJ0b2QE3d4AzcFbZyA6ABu4nAQDa4B0A0 AbvAIA2eAcAtME7AKAN3gEAbfAOAGiDdwBAG7wDANrgHQDQBu8AgDZ4BwC0GewdAIDDGeAdAIDR wTsAoA3eAQBt8A4AaIN3AEAbxzsAAGrgHQDQ5v/yml9mpTyiNgAAAABJRU5ErkJggg==

Can't find the form "frmReserveringrekening"



Within the Case Select statement in my frmLogin, I would like the have some VBA to do so.
The Mainform gives the above Error. (on_load event)

Thanks for the help.

ranman256
05-11-2016, 12:25 PM
upon form load event
get user id then turn on/off items...



vUser = Environ("Username")
select case vUser
case "jsmith"
btnEdit.enabled = false
case "bjones"
btnSave.enabled = false
end select