O aplicatie reusita

Informatii despre cum se utilizeaza Microsoft Access 2003. Baze de date, Interogari, Formulare, Rapoarte, etc
condy67ro
Mesaje: 17
Membru din: Joi Mar 29, 2012 1:45 pm
Localitate: caracal
Contact:

O aplicatie reusita

Mesaj de condy67ro » Lun Apr 30, 2012 9:00 am

Cu ajutorul acestui forum am reusit sa realizez aceasta aplicatie. Multumesc tuturor membrilor acestui forum, administratorului si moderatorilor.
parola user1=1
parola user2=2
parola administrator=ij125
frontend=MasiniDemo.mde
backend=Masini_princ.mdb cu parola ij125
ruleaza office 2003,2007,2010
Astept intrebarile si comentariile dumneavoastra.
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

io2000
Mesaje: 29
Membru din: Mie Ian 11, 2012 11:06 pm

Re: O aplicatie reusita

Mesaj de io2000 » Mar Mai 01, 2012 6:30 pm

Arata bine... Totusi nu am reusit sa o explorez la maxim pentru ca la Home imi apare o eroare la expresia On Mouse Move. Mi'a placut si as dori sa stiu cum ai facut relink'ul catre baza de date daca e in alt loc. Ce trebuie facut. Multumiri.

condy67ro
Mesaje: 17
Membru din: Joi Mar 29, 2012 1:45 pm
Localitate: caracal
Contact:

Re: O aplicatie reusita

Mesaj de condy67ro » Mie Mai 02, 2012 4:13 pm

un printscreen nu strica cu eroarea afisata, despre link fi te rog mai explicit
Ultima oară modificat Mie Mai 02, 2012 6:30 pm de către Dr.Windows, modificat 1 dată în total.
Motiv: Stergere citat pentru ca raspunsul este imediat dupa mesajul citat.

alcoool2
Mesaje: 969
Membru din: Mie Dec 15, 2010 4:25 pm

Re: O aplicatie reusita

Mesaj de alcoool2 » Mie Mai 02, 2012 4:57 pm

La re-link pe mine m-a pus sa il definesc din nou la deschiderea bazei de date.
Poate era bune sa atasezi si mdb-ul front endului ;)
10Q itlearning

condy67ro
Mesaje: 17
Membru din: Joi Mar 29, 2012 1:45 pm
Localitate: caracal
Contact:

Re: O aplicatie reusita

Mesaj de condy67ro » Mie Mai 02, 2012 5:23 pm

Click OK, cauta Masini_princ.mdb in folderul descarcat, click Masini_princ.mdb,Click Open si gata!!!

L.E.: Nu postez aplicatii moca, doresc sa impartasesc cat mai multe cunostinte tuturor celo interesati
Ultima oară modificat Mie Mai 02, 2012 5:42 pm de către Dr.Windows, modificat 1 dată în total.
Motiv: Combinare mesaje

alcoool2
Mesaje: 969
Membru din: Mie Dec 15, 2010 4:25 pm

Re: O aplicatie reusita

Mesaj de alcoool2 » Mie Mai 02, 2012 6:58 pm

condy67ro scrie:Click OK, cauta Masini_princ.mdb in folderul descarcat, click Masini_princ.mdb,Click Open si gata!!!
Am cerut mdb-ul pentru front end pentru a iți furniza eventuale soluții de optimizare, acum depinde de tine dacă le vrei.
condy67ro scrie:L.E.: Nu postez aplicatii moca, doresc sa impartasesc cat mai multe cunostinte tuturor celo interesati
Pai și atunci de ce ai mai postat-o pe forum --- ce te aștepți sa învețe colegii din exemplul tău ? --- poate doar niște browsing de formuri? --- sau ar trebui sa învețe dedesubturile unei baza de date (pe care tu le ți ascunse)?
10Q itlearning

io2000
Mesaje: 29
Membru din: Mie Ian 11, 2012 11:06 pm

Re: O aplicatie reusita

Mesaj de io2000 » Mie Mai 02, 2012 11:12 pm

1.JPG
M'am referit la faptul ca daca baza de date nu e in acelasi folder cu front'end'ul apare fereastra de relink in care cauti baza de date sa o poti deschide (vezi atasamentul 1). M'ar interesa sa stiu cum se face chestia asta iar la eroarea cu mouse on move vezi captura 2. Apare, evident, cand vreau sa mut mouse'ul.
Numai de bine.


Editare ulterioara: Am vazut ca ai raspuns la mesajul meu cu codul pentru relink... Multumesc. Am cerut mai multe detalii acolo.
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

condy67ro
Mesaje: 17
Membru din: Joi Mar 29, 2012 1:45 pm
Localitate: caracal
Contact:

Re: O aplicatie reusita

Mesaj de condy67ro » Joi Mai 03, 2012 7:17 am

Deschide Control Panel,Region and Language,Administrative,Change System Locale...
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

condy67ro
Mesaje: 17
Membru din: Joi Mar 29, 2012 1:45 pm
Localitate: caracal
Contact:

Re: O aplicatie reusita

Mesaj de condy67ro » Joi Mai 03, 2012 7:35 am

MODUL Browse

Cod: Selectaţi tot

Option Compare Database

Option Explicit

' Declarations for Windows Common Dialogs procedures
Private Type CLTAPI_OPENFILE
 strFilter As String       ' Filter string
 intFilterIndex As Long     ' Initial Filter to display.
 strInitialDir As String     ' Initial directory for the dialog to open in.
 strInitialFile As String    ' Initial file name to populate the dialog with.
 strDialogTitle As String    ' Dialog title
 strDefaultExtension As String  ' Default extension to append to file if user didn't specify one.
 lngFlags As Long        ' Flags (see constant list) to be used.
 strFullPathReturned As String  ' Full path of file picked.
 strFileNameReturned As String  ' File name of file picked.
 intFileOffset As Integer    ' Offset in full path (strFullPathReturned) where the file name (strFileNameReturned) begins.
 intFileExtension As Integer   ' Offset in full path (strFullPathReturned) where the file extension begins.
End Type

Const ALLFILES = "All Files"

Private Type CLTAPI_WINOPENFILENAME
  lStructSize As Long
  hWndOwner As Long
  hInstance As Long
  lpstrFilter As String
  lpstrCustomFilter As String
  nMaxCustrFilter As Long
  nFilterIndex As Long
  lpstrFile As String
  nMaxFile As Long
  lpstrFileTitle As String
  nMaxFileTitle As Long
  lpstrInitialDir As String
  lpstrTitle As String
  Flags As Long
  nFileOffset As Integer
  nFileExtension As Integer
  lpstrDefExt As String
  lCustrData As Long
  lpfnHook As Long
  lpTemplateName As String
End Type

Const OFN_ALLOWMULTISELECT = &H200
Const OFN_CREATEPROMPT = &H2000
Const OFN_EXPLORER = &H80000
Const OFN_FILEMUSTEXIST = &H1000
Const OFN_HIDEREADONLY = &H4
Const OFN_NOCHANGEDIR = &H8
Const OFN_NODEREFERENCELINKS = &H100000
Const OFN_NONETWORKBUTTON = &H20000
Const OFN_NOREADONLYRETURN = &H8000
Const OFN_NOVALIDATE = &H100
Const OFN_OVERWRITEPROMPT = &H2
Const OFN_PATHMUSTEXIST = &H800
Const OFN_READONLY = &H1
Const OFN_SHOWHELP = &H10

Declare Function CLTAPI_GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" _
 (pOpenfilename As CLTAPI_WINOPENFILENAME) _
As Boolean
 
Declare Function CLTAPI_GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" _
 (pOpenfilename As CLTAPI_WINOPENFILENAME) _
As Boolean
 
Declare Sub CLTAPI_ChooseColor Lib "msaccess.exe" Alias "#53" _
 (ByVal hwnd As Long, rgb As Long)

Function GetOpenFile_CLT(strInitialDir As String, strTitle As String) As String
 ' Comments : Simple file open routine. For additional options, use GetFileOpenEX_CLT()
 ' Parameters: strInitialDir - path for the initial directory, or blank for the current directory
 '       strTitle - title for the dialog
 ' Returns  : string path, name and extension of the file selected
 '
 Dim fOK As Boolean
 Dim typWinOpen As CLTAPI_WINOPENFILENAME
 Dim typOpenFile As CLTAPI_OPENFILE
 Dim strFilter As String
 
 On Error GoTo PROC_ERR
 
 ' Set reasonable defaults for the structure
 strFilter = CreateFilterString_CLT("Microsoft Access Database Files (*.mdb; *.accdb)", "*.mdb; *.accdb")
 
 If strInitialDir <> "" Then
  typOpenFile.strInitialDir = strInitialDir
 Else
  typOpenFile.strInitialDir = CurDir()
 End If
 
 If strTitle <> "" Then
  typOpenFile.strDialogTitle = strTitle
 End If
 
 typOpenFile.strFilter = strFilter
 typOpenFile.lngFlags = OFN_HIDEREADONLY Or OFN_SHOWHELP
 
 ' Convert the CLT structure to a Win structure
 ConvertCLT2Win typOpenFile, typWinOpen
 
 ' Call the Common dialog
 fOK = CLTAPI_GetOpenFileName(typWinOpen)
 
 ' Convert the Win structure back to a CLT structure
 ConvertWin2CLT typWinOpen, typOpenFile
 
 GetOpenFile_CLT = typOpenFile.strFullPathReturned
   
PROC_EXIT:
 Exit Function
 
PROC_ERR:
 GetOpenFile_CLT = ""
 Resume PROC_EXIT

End Function

Sub ConvertCLT2Win(CLT_Struct As CLTAPI_OPENFILE, Win_Struct As CLTAPI_WINOPENFILENAME)
 ' Comments : Converts the passed CLTAPI structure to a Windows structure
 ' Parameters: CLT_Struct - record of type CLTAPI_OPENFILE
 '       Win_Struct - record of type CLTAPI_WINOPENFILENAME
 ' Returns  : Nothing
 '
 Dim strFile As String * 512

 On Error GoTo PROC_ERR
 
 Win_Struct.hWndOwner = Application.hWndAccessApp
 Win_Struct.hInstance = 0

 If CLT_Struct.strFilter = "" Then
  Win_Struct.lpstrFilter = ALLFILES & Chr$(0) & "*.*" & Chr$(0)
 Else
  Win_Struct.lpstrFilter = CLT_Struct.strFilter
 End If
 Win_Struct.nFilterIndex = CLT_Struct.intFilterIndex

 Win_Struct.lpstrFile = String(512, 0)
 Win_Struct.nMaxFile = 511
 
 Win_Struct.lpstrFileTitle = String$(512, 0)
 Win_Struct.nMaxFileTitle = 511

 Win_Struct.lpstrTitle = CLT_Struct.strDialogTitle
 Win_Struct.lpstrInitialDir = CLT_Struct.strInitialDir
 Win_Struct.lpstrDefExt = CLT_Struct.strDefaultExtension

 Win_Struct.Flags = CLT_Struct.lngFlags

 Win_Struct.lStructSize = Len(Win_Struct)
 
PROC_EXIT:
 Exit Sub
 
PROC_ERR:
 Resume PROC_EXIT
  
End Sub

Sub ConvertWin2CLT(Win_Struct As CLTAPI_WINOPENFILENAME, CLT_Struct As CLTAPI_OPENFILE)
 ' Comments : Converts the passed CLTAPI structure to a Windows structure
 ' Parameters: Win_Struct - record of type CLTAPI_WINOPENFILENAME
 '       CLT_Struct - record of type CLTAPI_OPENFILE
 ' Returns  : Nothing
 '
 On Error GoTo PROC_ERR
   
 CLT_Struct.strFullPathReturned = Left(Win_Struct.lpstrFile, InStr(Win_Struct.lpstrFile, vbNullChar) - 1)
 CLT_Struct.strFileNameReturned = RemoveNulls_CLT(Win_Struct.lpstrFileTitle)
 CLT_Struct.intFileOffset = Win_Struct.nFileOffset
 CLT_Struct.intFileExtension = Win_Struct.nFileExtension
 
PROC_EXIT:
 Exit Sub
 
PROC_ERR:
 Resume PROC_EXIT
 
End Sub

Function CreateFilterString_CLT(ParamArray varFilt() As Variant) As String
 ' Comments : Builds a Windows formatted filter string for "file type"
 ' Parameters: varFilter - parameter array in the format:
 '             Text, Filter, Text, Filter ...
 '             Such as:
 '             "All Files (*.*)", "*.*", "Text Files (*.TXT)", "*.TXT"
 ' Returns  : windows formatted filter string
 '
 Dim strFilter As String
 Dim intCounter As Integer
 Dim intParamCount As Integer

 On Error GoTo PROC_ERR
 
 ' Get the count of paramaters passed to the function
 intParamCount = UBound(varFilt)
 
 If (intParamCount <> -1) Then
  
  ' Count through each parameter
  For intCounter = 0 To intParamCount
   strFilter = strFilter & varFilt(intCounter) & Chr$(0)
  Next
  
  ' Check for an even number of parameters
  If (intParamCount Mod 2) = 0 Then
   strFilter = strFilter & "*.*" & Chr$(0)
  End If
  
 End If

 CreateFilterString_CLT = strFilter
 
PROC_EXIT:
 Exit Function
 
PROC_ERR:
 CreateFilterString_CLT = ""
 Resume PROC_EXIT
 
End Function

Function RemoveNulls_CLT(strIn As String) As String
 ' Comments : Removes terminator from a string
 ' Parameters: strIn - string to modify
 ' Return  : modified string
 '
 Dim intChr As Integer

 intChr = InStr(strIn, Chr$(0))

 If intChr > 0 Then
  RemoveNulls_CLT = Left$(strIn, intChr - 1)
 Else
  RemoveNulls_CLT = strIn
 End If

End Function
Pentru FormPrincipal, la deschidere PROCEDURA EVENIMENT "Call VerifyTableLinks"
Codul trimis anterior pune-l intr-un modul pe care il redenumesti Relink si la sfirsitul codului End Function
Ultima oară modificat Joi Mai 03, 2012 12:01 pm de către Catalin B., modificat 1 dată în total.
Motiv: Aplicare tag Code- rog din nou sa utilizati eticheta [code] [/code] pentru coduri

sorinapa
Mesaje: 114
Membru din: Sâm Oct 30, 2010 12:18 pm

Re: O aplicatie reusita

Mesaj de sorinapa » Lun Aug 27, 2012 8:43 pm

condy67ro scrie:Cu ajutorul acestui forum am reusit sa realizez aceasta aplicatie. Multumesc tuturor membrilor acestui forum, administratorului si moderatorilor.
parola user1=1
parola user2=2
parola administrator=ij125
frontend=MasiniDemo.mde
backend=Masini_princ.mdb cu parola ij125
ruleaza office 2003,2007,2010
Astept intrebarile si comentariile dumneavoastra.
Incerc sa bag parola ij125 la administrator, dar imi zice parola incorecta. Cum accesez si eu baza de date pt a mai invata cate ceva?
La inceput apare si mesajul "Licenta expirata de ... zile".
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
Ador munca! Pot sta ore in sir sa ma uit la ea.

Închis

Înapoi la “Intrebari despre Access 2003”