n° 219
Novembre 2017
Aprile 25, 2018, 05:05:40 *
Benvenuto! Accedi o registrati.
Hai dimenticato l'e-mail di attivazione?

Accesso con nome utente, password e durata della sessione
Notizia:
 
   Indice   Linux Windows Techassistance Gameassistance videogame hardware Aiuto Ricerca Agenda Downloads Accedi Registrati  


* Messaggi recenti
Messaggi recenti
Pagine: [1] 2 3 ... 10
 1 
 inserita:: Aprile 24, 2018, 10:21:23  
Aperta da Pandenico - Ultimo messaggio da Pandenico
buona sera,

ho questa esigenza per il mio lavoro, ringrazio chi mi vorra' aiutare:

devo imposta il Excel delle cartelline ad es.
nel foglio1 voglio
Ufficio........... capo reparto............. totale fatture........ periodo di fatturazione....... e altri la nomi ad
es Cartellina ufficio 1.
Foglio successivo stessi campi, nomino ad es. cartellina ufficio2. ecc.... diciamo per 20 fogli.

poi voglio un foglio riepilogativo con i campi del foglio1, foglio2, foglio3 disposti sotto forma di tabella

come posso realizzare la mia esigenza?
grazie.
saluti.

 2 
 inserita:: Aprile 24, 2018, 06:01:42  
Aperta da lupin_85 - Ultimo messaggio da lupin_85
Buonasera a tutti,
ho un problema nella comunicazione TCP con una stampante fiscale PRT300FX.

Ho provato sia usando PHP che usando il comando "nc IP PORTA < file.txt" ma il risultato non cambia.

Da quanto lancio il comando a quando esce lo scontrino passano diversi secondi.
Ne passano sempre di più se aumento il numero di righe dello scontrino.

Secondo voi da cosa può dipendere??

Grazie

 3 
 inserita:: Aprile 24, 2018, 04:11:10  
Aperta da Mircosoft - Ultimo messaggio da Mircosoft
Grazie della risposta...

Il problema e' proprio quello...
La funzione di ricarica tabella nell'istanza su cui e' fatta la modifica viene richiamata prima dell'invio del telegramma e rilegge i dati aggiornati...

Allego pezzo di codice utilizzato
Codice:
'//####################################################
'//#Modifica Campo Tabela Zone
'//####################################################
    Set DBP = OpenDatabase(CfgLayout.DB_Park, , False)
    Set RsZona = DBP.OpenRecordset("SELECT * FROM Piazze INNER JOIN Zone ON Piazze.ID_Zona = Zone.ID_Zona WHERE Piazze.ID_Piazza = " & SelPiazza)
    If Not RsZona.EOF Then
        RsZona.edit
        If Index = 0 Then
            If RsZona.Fields("TipoZona") = ZONA_STOC_FINITI Then
              CambiaColore = 1
            End If
            RsZona.Fields("TipoZona") = ZONA_EMERGENZA
        Else
            If RsZona.Fields("TipoZona") = ZONA_EMERGENZA And RsZona.Fields("TipoZonaDefault") = ZONA_STOC_FINITI Then
              CambiaColore = 2
            End If
            RsZona.Fields("TipoZona") = RsZona.Fields("TipoZonaDefault")
        End If
        RsZona.Update
''        '//#Mirco 2018_04_24 - Gestione aggiornamento senza Recordset
''        iSelZona = RsZona.Fields("Zone.ID_Zona").value
''        If (Index = 0) Then
''            iNuovoTipoZona = ZONA_EMERGENZA
''        ElseIf (Index = 1) Then
''            iNuovoTipoZona = RsZona.Fields("TipoZonaDefault").value
''        End If
''        strSql = "Update Zone Set TipoZona = " & Str(iNuovoTipoZona) & " " & _
''                 "Where ID_Zona = " & Str(iSelZona) & "                  "
''        DBP.Execute (strSql)
    End If
    RsZona.Close
    DBP.Close
    Set RsZona = Nothing
    Set DBP = Nothing
'//####################################################
'//#Rielttura Tabella Zone
'//####################################################
    Call CaricaZone
'//####################################################
'//#Invio Telegramma all'altra Istanza
'//####################################################
    Call MasterRemoteSend(TERM_CARICA_ZONE)



Codice:
Public Sub CaricaZone()
On Local Error Resume Next
Dim Dbpark As Database
Dim TbZone As Recordset
    'Carica tutte le zone
    Set Dbpark = OpenDatabase(CfgLayout.DB_Park, , False)
        Set TbZone = Dbpark.OpenRecordset("SELECT Zone.* From Zone Where (((Zone.ID_Zona) > 0))ORDER BY Zone.ID_Zona;")
        With TbZone
            .MoveLast
            ReDim Zone(.Fields(ZP_ZONA_ID).value)
            Zone(0).TipoZona = .Fields(ZP_ZONA_ID).value
            .MoveFirst
            Do While Not .EOF
                Zone(.Fields(ZP_ZONA_ID)).Nome = .Fields(SP_NOME).value
                Zone(.Fields(ZP_ZONA_ID)).Descrizione = .Fields(ZP_DESCR).value
                Zone(.Fields(ZP_ZONA_ID)).TipoZona = .Fields(ZP_TIPO).value
                .MoveNext
            Loop
        End With
        TbZone.Close
    Dbpark.Close
End Sub



Codice:
'//####################################################
'//#Ricezione Telegramma all'altra Istanza
'//####################################################
    Case TERM_CARICA_ZONE
        '//#Mirco 2018_04_19
        Punto = 44
        Sleep (5000)
        CaricaZone
        If (IsLoaded("Park")) Then
            Call Draw_Box(Park.Sinottico, Piazze(), Parcheggio(), CfgLayout, CfgLayout.Color_Place, SetColor, , Park.SelPiano)
        End If


 4 
 inserita:: Aprile 24, 2018, 04:06:51  
Aperta da Mircosoft - Ultimo messaggio da michele.p
E se provassi a fare dapprima una query per verificare l'aggiornamento dei dati e, in caso positivo, permetti l'invio in automatico del telegramma per l'avvenuto aggiornamento?

Sull'esempio di questo snip in PHP (il terzo dall'alto, o il primo dal basso  Linguaccia ):

https://www.w3schools.com/php/php_mysql_update.asp

 5 
 inserita:: Aprile 24, 2018, 02:55:59  
Aperta da Mircosoft - Ultimo messaggio da Mircosoft
Salve,
Sicuramente ho sbagliato sezione e chiedo scusa...

Ho un problema con un DataBase Access utilizzato in condivisione tra due istanze dello stesso programma creato in VB6

Il programma puo' essere lanciato in Modalità Master o Terminale
le due istanze del programma sono in collegamento tramite connessione tcp

Ad ogni operazione effettuata su una delle istanze viene inviato un telegramma all'altra istanza per compiere determinate azioni...

Il mio problema nasce nel momento che attraverso una delle due istanze modifico un singolo campo di una singola tabella e invio il telegramma di rilettura dell'intera tabella modificata...

La stessa funzione restituisce risultati differenti...
L'istanza su cui viene effettuata la modifica rilegge i dati appena modificati

l'altra istanza rilegge i dati non ancora aggiornati
(Inserendo un istruzione Sleep(5000) prima della rilettura i dati sono aggiornati...
ma non posso permettermelo)

Sembra che i dati non vengano salvati immediatamente sul database ma ci sia un periodo di latenza tra le istruzioni di update e chiusura della connessione e l'effettivo salvataggio su file fisico per cui l'altra istanza non vede i dati aggiornati...

la mia domanda e' la seguente:
-E' un impostazione di Access?
-Devo eseguire un comando specifico da VB6 per forzare il riversamnto delle modifiche prima di inviare il telegramma di aggiornamento all'altra istanza?


 6 
 inserita:: Aprile 22, 2018, 12:03:39  
Aperta da marcoluigiano - Ultimo messaggio da michele.p
QUesta procedura potrebbe essere utile al tuo caso...

https://support.office.com/en-us/article/assign-a-macro-to-a-button-728c83ec-61d0-40bd-b6ba-927f84eb5d2c

 7 
 inserita:: Aprile 22, 2018, 10:17:11  
Aperta da marcoluigiano - Ultimo messaggio da marcoluigiano
ho trovato un codice che fa al caso mio:

Codice:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim est As String
 
    est = CStr(Target.Value) & ".pdf"
     
    If Intersect(Target, Range("a:a")) Is Nothing Then Exit Sub
    If Target = "" Or Target.Cells.Count > 1 Then Exit Sub
     
    Application.EnableEvents = False
    ActiveSheet.Hyperlinks.Add Anchor:=Target, Address:="C:\Excel\" & est, TextToDisplay:=CStr(Target.Value)
    Application.EnableEvents = True
End Sub


il problema e che viene incorporato direttamente nel foglio di lavoro, io invece vorrei creare una macro che si lancia con un pulsante é possibile?

 8 
 inserita:: Aprile 22, 2018, 09:40:31  
Aperta da marcoluigiano - Ultimo messaggio da marcoluigiano
Chiedo scusa forse non mi sono spiegato  a dovere io il percorso della cartella lo conosco, devo solo visualizzare in una cella il percorso ad es: \\percorso di rete\N1.jpg se nella cella A ce scritto N1

 9 
 inserita:: Aprile 21, 2018, 10:38:30  
Aperta da marcoluigiano - Ultimo messaggio da michele.p
Il punto è: come fa a sapere dove andare a trovare il file?

Si dovrebbe creare nella macro una ricerca ai file all'interno del filesystem.  Occhi al cielo

Ammesso che io abbia capito la richiesta.  Sorriso

 10 
 inserita:: Aprile 20, 2018, 05:30:34  
Aperta da giancarlo19633 - Ultimo messaggio da giancarlo19633
Spett.le Community vi volevo semplicemente informare che ieri ho mandato una email alla Edizioni Master per sapere quando sarebbero usciti i nuovi numeri delle riviste "IO PROGRAMMO" e "OFFICE MAGAZINE". Mi e' stato risposte che le 2 riviste in oggetto non saranno piu' edite dalla Edizioni Master. Ora non so se la risposta che mi e' stata fornita sottintende che saranno pubblicate da un'altra casa editrice. Il mio post e' solo una segnalazione per quanti stanno ancora aspettando l'uscita delle 2 riviste citate prima.

Sperando che questa mia informazione vi sia utile, colgo l'occasione per salutare tutta la Community.

Pagine: [1] 2 3 ... 10
Copyright © 2017 Edizioni Master SpA. p.iva : 02105820787

Tutti i diritti di proprietà letteraria e artistica riservati. - Privacy



powered by Simple Machines