Newsgroup: it.comp.appl.access
Titolo: problema con codice - esperti -

Ho un problema con il modulo di un DB e non riesco a trovare l'errore o
meglio non riesco a risolverlo perchè nella compilazione mi da un errore su
una riga di comando (quella evidenziata sulla destra da una
freccia)...potete aiutarmi????....inserisco anche un'altra parte ulteriore
dove nell'esecuzione mi da errore....
So che sarà un pò un casino capire...già faccio fatica io che l'ho
creato....ma se qualcuno ce la fa.....
Grazie mille comunque a chi mi può aiutare....
Robby
Private Sub Pulsante30_Click()
On Error GoTo Err_Pulsante30_Click
    Dim x As Integer
    Dim stDialStr As String
    Dim PrevCtl As Control
    Const ERR_OBJNOTEXIST = 2467
    Set PrevCtl = Screen.PreviousControl
    If TypeOf PrevCtl Is TextBox Then
      stDialStr = IIf(VarType(PrevCtl) > V_NULL, PrevCtl, "")
    ElseIf TypeOf PrevCtl Is ListBox Then
      stDialStr = IIf(VarType(PrevCtl) > V_NULL, PrevCtl, "")
    ElseIf TypeOf PrevCtl Is ComboBox Then
      stDialStr = IIf(VarType(PrevCtl) > V_NULL, PrevCtl, "")
    Else
      stDialStr = ""
    End If
    x = wlib_AutoDial(stDialStr)
<-----------!!!!!!!????? (errore: sub o function non definita)
Exit_Pulsante30_Click:
    Exit Sub
Err_Pulsante30_Click:
    If (Err = ERR_OBJNOTEXIST) Then
      Resume Next
    End If
    MsgBox Error$
E nel cliccare su questo pulsante....(guarda la freccia!l'ho aggiunta io per
farvi vedere dov'è l'errore...).
In fondo c'è il modulo che ho creato....
Private Sub Pulsante45_Click()
On Error GoTo ERRORE
DoCmd.SetWarnings False
Dim NEGOZIO As Database   <------- , TABELLA_PROD As Recordset
Dim QTA As Integer
Dim LAST As String
CODICE = Forms![VEN_INS]![COD]
QTA = Forms![VEN_INS]![QUANTITA']
DoCmd.GoToRecord A_FORM, "VEN_INS", A_LAST
LAST = Forms![VEN_INS]![COD]
DoCmd.GoToRecord A_FORM, "VEN_INS", A_FIRST
Do
CODICE = Forms![VEN_INS]![COD]
Set NEGOZIO = DBEngine.Workspaces(0).Databases(0)
Set TABELLA_PROD = NEGOZIO.OpenRecordset("MAGAZZINO", DB_OPEN_TABLE)
TABELLA_PROD.Index = "COD_MAG"
TABELLA_PROD.Seek "=", CODICE
    If Not TABELLA_PROD.NoMatch Then
        TABELLA_PROD.Edit
        TABELLA_PROD("GIACENZA") = TABELLA_PROD("GIACENZA") -
Forms![VEN_INS]![QUANTITA']
        TABELLA_PROD.Update
    End If
TABELLA_PROD.Close
    If CODICE = LAST Then
        Exit Do
    End If
DoCmd.GoToRecord A_FORM, "VEN_INS", A_NEXT
Loop
RISPOSTA = MsgBox("Venduti n° " & [Q] & " per un importo di £ " &
Format([tot], "#,##0") & Chr(13) & Chr(10) & "Reinizializzare il modulo per
una nuova vendita?", 68, "Aggiornamento database completato")
If RISPOSTA = 6 Then
    DoCmd.OpenQuery "VEN_CLEAN"
    DoCmd.Requery
Else
    DoCmd.Close A_FORM, "VEN_INS"
    DoCmd.OpenQuery "VEN_CLEAN"
End If
GoTo FINE
FINE:
    Exit Sub
ERRORE:
    MsgBox "Non è possibile aggiornare il database se non ci sono articoli
caricati nel modulo.", 48, "Attenzione!!"
    Resume FINE
End Sub
------------ modulo -----------
Function Corr_car()
DoCmd.SetWarnings False
Dim PRIMO As String
Dim NEGOZIO As Database, MAGAZZINO As Recordset
Dim ARTICOLO As String
Set NEGOZIO = DBEngine.Workspaces(0).Databases(0)
Set MAGAZZINO = NEGOZIO.OpenRecordset("ARTICOLO", DB_OPEN_TABLE)
MAGAZZINO.Index = "SVILUPPATORI"
MAGAZZINO.MoveFirst
Do Until MAGAZZINO.EOF
PRIMO = UCase(Left$(MAGAZZINO("ARTICOLO"), 1))
Loop
MAGAZZINO.Close
End Function


wrote:

wlib_AutoDial dov'è definito?
in esecuzione che valore restituisce?
Saluti.
Emanuele.